--- a/JavaNativeMethod.st Wed Jan 27 20:36:19 2016 +0100
+++ b/JavaNativeMethod.st Wed Feb 10 18:42:24 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1996-2015 by Claus Gittinger
@@ -469,7 +467,7 @@
nextStatement: (StatementNode expression:sendTree)
)
)
-
+
selector: #ensure:
args: {
(BlockNode
@@ -487,12 +485,10 @@
}
].
- trampolineTree := MethodNode new
- arguments: args;
- selector: (TrampolineSelectors at: aNumber + 1);
- statements:
- { (ReturnNode expression: sendTree) };
- yourself.
+ trampolineTree := MethodNode new.
+ trampolineTree arguments: args.
+ trampolineTree selector: (TrampolineSelectors at: aNumber + 1).
+ trampolineTree statements: { (ReturnNode expression: sendTree) }.
compiler := ByteCodeCompiler new.
compiler methodClass: Method.
@@ -598,15 +594,15 @@
!JavaNativeMethod class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libjava/JavaNativeMethod.st,v 1.20 2015-03-20 12:08:00 vrany Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libjava/JavaNativeMethod.st,v 1.20 2015-03-20 12:08:00 vrany Exp $'
+ ^ '$Header$'
!
version_SVN
- ^ 'Id'
+ ^ '$Id$'
! !