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