src/JavaVM.st
branchjk_new_structure
changeset 1102 df54d5b34c6b
parent 1101 6050636e16b4
child 1103 bf4c6f5bc68e
--- a/src/JavaVM.st	Wed Nov 09 16:17:19 2011 +0000
+++ b/src/JavaVM.st	Wed Nov 09 16:39:15 2011 +0000
@@ -15693,18 +15693,14 @@
             objString := someObject class name , '@' 
                         , someObject identityHash printString.
         ].
-        Logger 
-            log: 'entering monitor for ' , objString , ' in ' , thisProcess name
-            severity: #info
-            facility: #JVM.
+        Logger log: 'entering monitor for ' , objString , ' in ' , thisProcess name 
+                        severity:#info facility:#JVM.
     ].
     mon enter.
     aJavaContext addMonitor: someObject.
     MonitorTrace ifTrue: [
-        Logger 
-            log: 'monitor entered in ' , thisProcess name
-            severity: #info
-            facility: #JVM.
+        Logger log: 'monitor entered in ' , thisProcess name 
+                        severity:#info facility:#JVM.
     ].
     (self enteredMonitorsOfProcess: thisProcess) add: someObject.
 
@@ -15731,7 +15727,9 @@
             log: 'leaving monitor for ' , objString , ' in ' , thisProcess name
             severity: #info
             facility: #JVM.
-    ].    
+    ].
+    mon exit.
+    aJavaContext removeMonitor: someObject.
     MonitorTrace ifTrue: [
         Logger 
             log: 'monitor left in ' , thisProcess name
@@ -15742,8 +15740,6 @@
     lastMon ~~ someObject ifTrue: [
         self halt: 'oops - monitor enter/exit nesting wrong'
     ].
-    mon exit.
-        aJavaContext removeMonitor: someObject.
     wasBlocked := OperatingSystem blockInterrupts.
      "mon count == 0 ifTrue: [ LeftMonitorObject := someObject ]."
     wasBlocked ifFalse: [ OperatingSystem unblockInterrupts ]
@@ -15950,7 +15946,7 @@
     
     enteredMonitors size > 0 ifTrue: [
         wasBlocked := OperatingSystem blockInterrupts.
-         "self syncMonitorCache."
+        "self syncMonitorCache."
         MonitorTrace ifTrue: [
             ('====> wait - reenter ' , enteredMonitors size printString 
                 , ' monitors in ' , Processor activeProcess name 
@@ -15977,7 +15973,7 @@
 
     "Created: / 30-12-1998 / 19:19:35 / cg"
     "Modified: / 08-01-1999 / 17:29:24 / cg"
-    "Modified: / 09-11-2011 / 16:23:16 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 09-11-2011 / 14:36:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
 !JavaVM class methodsFor:'vm support'!
@@ -16020,15 +16016,18 @@
     "Modified: / 31-05-2011 / 10:09:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-_ATHROW: aJavaException 
+_ATHROW:aJavaException
+
     <resource: #skipInDebuggersWalkBack>
-    aJavaException isNil ifTrue: [ self halt: 'cannot happen' ].
-    self breakPoint:#mh.
-    self throwException: aJavaException.
+
+    aJavaException isNil ifTrue:[
+        self halt:'cannot happen'
+    ].
+    self throwException:aJavaException
 
     "Created: / 08-01-1999 / 14:15:36 / cg"
-    "Modified: / 04-03-2011 / 00:07:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 09-11-2011 / 16:36:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 08-11-2011 / 16:32:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 08-11-2011 / 22:16:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _CHECKCAST2: object _: aJavaClassRef