Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remember &, | and not in literal array
authorClaus Gittinger <cg@exept.de>
Fri, 08 Nov 1996 14:13:15 +0100
changeset 425 b046a32edb08
parent 424 9f8ffd4289a4
child 426 871231a532fc
remember &, | and not in literal array (for senders search)
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Thu Nov 07 22:20:51 1996 +0100
+++ b/BCompiler.st	Fri Nov 08 14:13:15 1996 +0100
@@ -1232,11 +1232,11 @@
 
     (aSymbol == #pushThisContext) ifTrue:[stackDelta := 1. ^ 144].
 
-    (aSymbol == #isNil) ifTrue:[^ 188].
-    (aSymbol == #notNil) ifTrue:[^ 189].
-    (aSymbol == #not) ifTrue:[lineno := true. ^ 179].
-    (aSymbol == #&) ifTrue:[lineno := true. ^ 216].
-    (aSymbol == #|) ifTrue:[lineno := true. ^ 217].
+    (aSymbol == #isNil) ifTrue:[extraLiteral := aSymbol. ^ 188].
+    (aSymbol == #notNil) ifTrue:[extraLiteral := aSymbol. ^ 189].
+    (aSymbol == #not) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 179].
+    (aSymbol == #&) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 216].
+    (aSymbol == #|) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 217].
 
     (aSymbol == #pushClassVarL) ifTrue:[stackDelta := 1. extra := #speciallitL. ^ 218].
     (aSymbol == #pushGlobalL) ifTrue:[stackDelta := 1. extra := #speciallitL. ^ 218].
@@ -1272,7 +1272,7 @@
     errorFlag := #Error
 
     "Modified: 3.9.1995 / 12:58:47 / claus"
-    "Modified: 21.10.1996 / 11:16:10 / cg"
+    "Modified: 8.11.1996 / 14:09:04 / cg"
 !
 
 checkForCommonCode:symbolicCodeArray
@@ -2479,6 +2479,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.101 1996-11-05 19:39:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.102 1996-11-08 13:13:15 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Thu Nov 07 22:20:51 1996 +0100
+++ b/ByteCodeCompiler.st	Fri Nov 08 14:13:15 1996 +0100
@@ -1232,11 +1232,11 @@
 
     (aSymbol == #pushThisContext) ifTrue:[stackDelta := 1. ^ 144].
 
-    (aSymbol == #isNil) ifTrue:[^ 188].
-    (aSymbol == #notNil) ifTrue:[^ 189].
-    (aSymbol == #not) ifTrue:[lineno := true. ^ 179].
-    (aSymbol == #&) ifTrue:[lineno := true. ^ 216].
-    (aSymbol == #|) ifTrue:[lineno := true. ^ 217].
+    (aSymbol == #isNil) ifTrue:[extraLiteral := aSymbol. ^ 188].
+    (aSymbol == #notNil) ifTrue:[extraLiteral := aSymbol. ^ 189].
+    (aSymbol == #not) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 179].
+    (aSymbol == #&) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 216].
+    (aSymbol == #|) ifTrue:[extraLiteral := aSymbol. lineno := true. ^ 217].
 
     (aSymbol == #pushClassVarL) ifTrue:[stackDelta := 1. extra := #speciallitL. ^ 218].
     (aSymbol == #pushGlobalL) ifTrue:[stackDelta := 1. extra := #speciallitL. ^ 218].
@@ -1272,7 +1272,7 @@
     errorFlag := #Error
 
     "Modified: 3.9.1995 / 12:58:47 / claus"
-    "Modified: 21.10.1996 / 11:16:10 / cg"
+    "Modified: 8.11.1996 / 14:09:04 / cg"
 !
 
 checkForCommonCode:symbolicCodeArray
@@ -2479,6 +2479,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.101 1996-11-05 19:39:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.102 1996-11-08 13:13:15 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp