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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 02 Aug 1999 10:56:07 +0200
changeset 933 dd77b70be831
parent 932 3602977c943e
child 934 716f9c76b06b
checkin from browser
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Mon Aug 02 10:55:01 1999 +0200
+++ b/BCompiler.st	Mon Aug 02 10:56:07 1999 +0200
@@ -1436,28 +1436,31 @@
     |sz insn1|
 
     (sz := symbolicCodeArray size) == 2 ifTrue:[
-	"/
-	"/ a very common sequence: return the first literal
-	"/
-	(insn1 := symbolicCodeArray at:1) == #pushLit1 ifTrue:[
-	    (symbolicCodeArray at:2) == #retTop ifTrue:[
-		^ #[222 0]
-	    ]
-	]
+        "/
+        "/ a very common sequence: return the first literal
+        "/
+        (insn1 := symbolicCodeArray at:1) == #pushLit1 ifTrue:[
+            (symbolicCodeArray at:2) == #retTop ifTrue:[
+                ^ #[222 0]
+            ]
+        ]
     ].
     sz == 1 ifTrue:[
-	"/
-	"/ another common sequence: return the receiver
-	"/
-	(insn1 := symbolicCodeArray at:1) == #retSelf ifTrue:[
-	    ^ #[5]
-	].
-	insn1 == #retTrue ifTrue:[
-	    ^ #[2]
-	].
-	insn1 == #retFalse ifTrue:[
-	    ^ #[3]
-	].
+        "/
+        "/ another common sequence: return the receiver
+        "/
+        (insn1 := symbolicCodeArray at:1) == #retSelf ifTrue:[
+            ^ #[5]
+        ].
+        insn1 == #retNil ifTrue:[
+            ^ #[1]
+        ].
+        insn1 == #retTrue ifTrue:[
+            ^ #[2]
+        ].
+        insn1 == #retFalse ifTrue:[
+            ^ #[3]
+        ].
     ].
     ^ nil
 !
@@ -3217,6 +3220,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.153 1999-07-26 07:34:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.154 1999-08-02 08:56:07 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Mon Aug 02 10:55:01 1999 +0200
+++ b/ByteCodeCompiler.st	Mon Aug 02 10:56:07 1999 +0200
@@ -1436,28 +1436,31 @@
     |sz insn1|
 
     (sz := symbolicCodeArray size) == 2 ifTrue:[
-	"/
-	"/ a very common sequence: return the first literal
-	"/
-	(insn1 := symbolicCodeArray at:1) == #pushLit1 ifTrue:[
-	    (symbolicCodeArray at:2) == #retTop ifTrue:[
-		^ #[222 0]
-	    ]
-	]
+        "/
+        "/ a very common sequence: return the first literal
+        "/
+        (insn1 := symbolicCodeArray at:1) == #pushLit1 ifTrue:[
+            (symbolicCodeArray at:2) == #retTop ifTrue:[
+                ^ #[222 0]
+            ]
+        ]
     ].
     sz == 1 ifTrue:[
-	"/
-	"/ another common sequence: return the receiver
-	"/
-	(insn1 := symbolicCodeArray at:1) == #retSelf ifTrue:[
-	    ^ #[5]
-	].
-	insn1 == #retTrue ifTrue:[
-	    ^ #[2]
-	].
-	insn1 == #retFalse ifTrue:[
-	    ^ #[3]
-	].
+        "/
+        "/ another common sequence: return the receiver
+        "/
+        (insn1 := symbolicCodeArray at:1) == #retSelf ifTrue:[
+            ^ #[5]
+        ].
+        insn1 == #retNil ifTrue:[
+            ^ #[1]
+        ].
+        insn1 == #retTrue ifTrue:[
+            ^ #[2]
+        ].
+        insn1 == #retFalse ifTrue:[
+            ^ #[3]
+        ].
     ].
     ^ nil
 !
@@ -3217,6 +3220,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.153 1999-07-26 07:34:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.154 1999-08-02 08:56:07 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp