BCompiler.st
changeset 103 f4a69d7dd387
parent 102 77e4d1119ff2
child 104 2016bfa4cd45
--- a/BCompiler.st	Thu Aug 10 20:13:01 1995 +0200
+++ b/BCompiler.st	Fri Aug 11 18:04:27 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.29 1995-08-10 18:11:01 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.30 1995-08-11 16:02:38 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,8 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.29 1995-08-10 18:11:01 claus Exp $
-$Revision: 1.29 $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.30 1995-08-11 16:02:38 claus Exp $
 "
 !
 
@@ -1394,6 +1393,15 @@
     (aSymbol == #storeInstVar9) ifTrue:[stackDelta := -1. ^118].
     (aSymbol == #storeInstVar10) ifTrue:[stackDelta := -1. ^119].
 
+    (aSymbol == #pushLit1) ifTrue:[stackDelta := 1. ^ 222].
+    (aSymbol == #pushLit2) ifTrue:[stackDelta := 1. ^ 223].
+    (aSymbol == #pushLit3) ifTrue:[stackDelta := 1. ^ 224].
+    (aSymbol == #pushLit4) ifTrue:[stackDelta := 1. ^ 225].
+    (aSymbol == #pushLit5) ifTrue:[stackDelta := 1. ^ 226].
+    (aSymbol == #pushLit6) ifTrue:[stackDelta := 1. ^ 227].
+    (aSymbol == #pushLit7) ifTrue:[stackDelta := 1. ^ 228].
+    (aSymbol == #pushLit8) ifTrue:[stackDelta := 1. ^ 229].
+
     (aSymbol == #retMethodVar1) ifTrue:[^160].
     (aSymbol == #retMethodVar2) ifTrue:[^161].
     (aSymbol == #retMethodVar3) ifTrue:[^162].
@@ -1460,6 +1468,8 @@
     (aSymbol == #mk0Block) ifTrue:[^ 156].
     (aSymbol == #mkNilBlock) ifTrue:[^ 157].
 
+    (aSymbol == #gt0) ifTrue:[lineno := true. self addLiteral:#>. ^ 212].
+
     (aSymbol == #falseJumpabs) ifTrue:[stackDelta := -1. extra := #absoffset. ^ 190].
     (aSymbol == #trueJumpabs) ifTrue:[stackDelta := -1. extra := #absoffset. ^ 191].
     (aSymbol == #nilJumpabs) ifTrue:[stackDelta := -1. extra := #absoffset. ^ 192].