(none) jk_new_structure
authorvranyj1
Thu, 03 Nov 2011 22:06:54 +0000
branchjk_new_structure
changeset 1083 d7b5db497cb2
parent 1082 50c18252e0eb
child 1084 6d17d3cb8f94
(none)
src/JavaVM.st
--- a/src/JavaVM.st	Thu Nov 03 21:38:41 2011 +0000
+++ b/src/JavaVM.st	Thu Nov 03 22:06:54 2011 +0000
@@ -7233,6 +7233,21 @@
     ^ UnimplementedNativeMethodSignal raise
 !
 
+_java_util_zip_Inflater_end: nativeContext
+
+    <javanative: 'java/util/zip/Inflater' name: 'end(J)V'>
+
+     "
+    private native static void reset(long addr);
+    "
+    | addr inflater |
+    addr := nativeContext argAt: 1.
+    inflater := ZipInflaters at: addr.
+    inflater end.
+
+    "Modified: / 03-11-2011 / 22:51:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 _java_util_zip_Inflater_getBytesWritten: nativeContext
 
     <javanative: 'java/util/zip/Inflater' name: 'getBytesWritten'>
@@ -7347,7 +7362,13 @@
 
     <javanative: 'java/util/zip/ZipFile' name: 'close(J)V'>
 
-    ^ UnimplementedNativeMethodSignal raise
+    | jzfile zar |
+    jzfile := nativeContext argAt: 1.
+    zar := ZipCache at: jzfile.
+    zar close.
+    ZipCache at: jzfile put: nil.
+
+    "Modified: / 03-11-2011 / 22:22:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 _java_util_zip_ZipFile_freeEntry: nativeContext
@@ -14733,7 +14754,9 @@
 
     <javanative: 'sun/management/VMManagementImpl' name: 'isThreadCpuTimeEnabled()Z'>
 
-    ^ UnimplementedNativeMethodSignal raise
+    ^ 0 "/false should be safe, we'll see...
+
+    "Modified: / 03-11-2011 / 22:45:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaVM class methodsFor:'native - sun.misc'!