ByteCodeCompiler.st
changeset 1300 be5542fc877e
parent 1280 73fa8c2f6b1c
child 1312 3393e713d8e8
--- a/ByteCodeCompiler.st	Thu Jul 25 19:44:06 2002 +0200
+++ b/ByteCodeCompiler.st	Fri Jul 26 17:26:33 2002 +0200
@@ -1017,8 +1017,12 @@
     (aSymbol == #retTrue) ifTrue:[^ 2].
     (aSymbol == #retFalse) ifTrue:[^ 3].
     (aSymbol == #ret0) ifTrue:[^ 4].
+    (aSymbol == #retNum) ifTrue:[^ 127].
     (aSymbol == #retTop) ifTrue:[^ 0].
 
+    (aSymbol == #mk0Block) ifTrue:[^ 156].
+    (aSymbol == #mkNilBlock) ifTrue:[^ 157].
+
     (aSymbol == #push0) ifTrue:[^120].
     (aSymbol == #push1) ifTrue:[^121].
     (aSymbol == #push2) ifTrue:[^139].
@@ -3760,6 +3764,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.201 2002-06-19 12:06:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.202 2002-07-26 15:26:33 stefan Exp $'
 ! !
 ByteCodeCompiler initialize!