src/JavaNativeMethod.st
branchjk_new_structure
changeset 1073 e842ab17fe16
parent 1022 38b710d7dfbc
child 1075 927aeb3649fc
--- a/src/JavaNativeMethod.st	Wed Nov 02 19:09:36 2011 +0000
+++ b/src/JavaNativeMethod.st	Wed Nov 02 21:40:47 2011 +0000
@@ -281,45 +281,37 @@
 !JavaNativeMethod methodsFor:'vm support'!
 
 nativeMethodInvokation
-
     "Called by the VM when a native method is
      to be executed"
-
-    | sel mthd sender|
-
-    (mthd := nativeImplementation) isNil ifTrue:[
-        sel := self searchNativeImplementation.
-
-        mthd := (JavaVM class compiledMethodAt:sel).
-        (mthd isNil or:[mthd isLazyMethod]) ifTrue:[
+    
+    | sel  mthd  sender |
+    (mthd := nativeImplementation) isNil ifTrue: [
+        sel := self searchNativeImplementation.        
+        mthd := (JavaVM class compiledMethodAt: sel).
+        (mthd isNil or: [ mthd isLazyMethod ]) ifTrue: [
             sender := thisContext sender.
-            sender sender selector == #noByteCode ifTrue:[
+            sender sender selector == #noByteCode ifTrue: [
                 sender := sender sender.
                 sender := sender sender.
                 sender := sender sender.
             ].
-            ^ JavaVM 
-                perform:sel
-                with:sender.
+            ^ JavaVM perform: sel with: sender.
         ].
-        CacheNativeImplementation ifTrue:[
-            nativeImplementation := mthd.
-        ]
+        CacheNativeImplementation ifTrue: [ nativeImplementation := mthd. ]
     ].
+    ^ mthd 
+        valueWithReceiver: JavaVM
+        arguments: (Array with: thisContext sender)
+        selector: selector
+        search: JavaVM class
+        sender: nil
 
-    ^ mthd
-        valueWithReceiver:JavaVM
-        arguments:(Array with:thisContext sender)
-        selector:selector
-        search:JavaVM class
-        sender:nil
-
-"
-JavaNativeMethod flushAllCachedNativeMethods
-"
+    "
+     JavaNativeMethod flushAllCachedNativeMethods"
 
     "Modified: / 27-01-2000 / 13:34:53 / cg"
     "Modified: / 30-04-2011 / 23:52:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-11-2011 / 20:45:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
 !JavaNativeMethod class methodsFor:'documentation'!