#BUGFIX cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Wed, 10 Feb 2016 18:42:24 +0100
branchcvs_MAIN
changeset 3527 cbd8dc366c2f
parent 3523 881fd2cc08fb
child 3529 ed2c70e9f168
#BUGFIX class: JavaNativeMethod changed: #numberOfArgs:
JavaNativeMethod.st
--- 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$'
 
 ! !