--- 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