--- a/src/JavaVM.st Thu Dec 01 11:09:01 2011 +0000
+++ b/src/JavaVM.st Thu Dec 01 16:43:13 2011 +0000
@@ -2968,6 +2968,7 @@
thread instVarNamed: 'single_step' put: 0.
thread instVarNamed: 'daemon' put: 0.
thread instVarNamed: 'stillborn' put: 0.
+ thread instVarNamed: 'threadStatus' put: 0.
thread instVarNamed: 'target' put: nil.
thread instVarNamed: 'blockerLock'
put: (JavaVM classForName: 'java.lang.Object') basicNew.
@@ -2980,14 +2981,17 @@
thread instVarAt: i put: 0.
].
thread instVarNamed: 'group' put: (self standardThreadGroup).
- threadClass classLoader isNil ifTrue: [thread instVarNamed:'contextClassLoader' put: self systemClassLoader] ifFalse: [thread instVarNamed: 'contextClassLoader' put: threadClass classLoader].
-
+ threadClass classLoader isNil ifTrue: [
+ thread instVarNamed: 'contextClassLoader' put: self systemClassLoader
+ ] ifFalse: [
+ thread instVarNamed: 'contextClassLoader' put: threadClass classLoader
+ ].
^ thread
"Created: / 03-01-1998 / 01:47:30 / cg"
"Modified: / 27-01-1998 / 00:54:33 / cg"
"Modified: / 21-11-2011 / 09:48:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 29-11-2011 / 14:30:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+ "Modified: / 01-12-2011 / 17:43:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
stProcessForJavaThread:jThread
@@ -3066,14 +3070,13 @@
bindWith: jThread printString)
severity: #debug
facility: #JVM.
-
+ jThread instVarNamed: 'threadStatus' put: 0.
(self monitorFor: jThread) disableWait.
self acquireMonitorAndNotifyAll: jThread.
-
-
].
stProcess name: 'JAVA-' , nm.
stProcess restartable: true.
+ jThread instVarNamed: 'threadStatus' put: 1.
stProcess resume.
Java threads at: jThread put: stProcess.
^ nil
@@ -3081,7 +3084,7 @@
"Modified: / 24-12-1999 / 03:14:33 / cg"
"Created: / 14-12-2010 / 21:31:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-12-2010 / 11:19:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 30-11-2011 / 22:07:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+ "Modified: / 01-12-2011 / 17:44:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
!JavaVM class methodsFor:'helpers - awt'!