JavaNativeMethodImpl_OpenJDK6.st
branchdevelopment
changeset 2660 ac97f7e37c7a
parent 2659 d64692c5d7e8
child 2661 e807098954a0
--- a/JavaNativeMethodImpl_OpenJDK6.st	Sat Aug 17 17:55:54 2013 +0100
+++ b/JavaNativeMethodImpl_OpenJDK6.st	Sun Aug 18 00:52:51 2013 +0100
@@ -18860,7 +18860,7 @@
     "Modified: / 25-11-2011 / 19:24:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-_sun_misc_Unsafe_park: this _:a1 _: a2 _: a3
+_sun_misc_Unsafe_park: this _:absolute _: millisOrNanos _: ignored
 
     <javanative: 'sun/misc/Unsafe' name: 'park(ZJ)V'>
     "
@@ -18877,19 +18877,17 @@
      */
     "
 
-    | absolute millis tout process |
-
-    absolute := a1.
-    millis := a2.
-
-    millis ~~ 0 ifTrue:[
+    | tout process |
+
+    millisOrNanos ~~ 0 ifTrue:[
         absolute == 1 ifTrue:[
-            tout := millis - OperatingSystem getOSTime.
+            tout := millisOrNanos - OperatingSystem getOSTime.
             tout < 1 ifTrue:[
                 tout := nil.
             ].
         ] ifFalse:[
-            tout := millis.
+            "/ It's nanos in this case !!!!!!    
+            tout := (millisOrNanos / 1000000) rounded
         ]
     ] ifFalse:[
         tout := nil.
@@ -18898,7 +18896,7 @@
     process := Processor activeProcess.
     JavaVM park: process timeout: tout.
 
-    "Modified: / 17-08-2013 / 09:49:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-08-2013 / 00:49:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _sun_misc_Unsafe_putAddress: this _: a1 _: a2 _: a3