Mercurial Mercurial > hg > stx-libcomp / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
BCompiler.st
changeset 356 bb3beb18de1f
parent 350 13e1dcaf87eb
child 357 4c0f6e13867c 
--- a/BCompiler.st	Fri Oct 11 20:26:37 1996 +0200
+++ b/BCompiler.st	Sat Oct 12 19:58:07 1996 +0200
@@ -975,10 +975,10 @@
     (aSymbol == #storeInstVar) ifTrue:[extra := #index. stackDelta := -1. ^ 39].
 
     (aSymbol == #pushClassVarS) ifTrue:[stackDelta := 1. extra := #speciallitS. ^ 35].
-    (aSymbol == #pushGlobalS) ifTrue:[stackDelta := 1. extra := #speciallitS. ^ 35].
+    (aSymbol == #pushGlobalS) ifTrue:[stackDelta := 1. extra := #speciallitS. ^ 36].
 
     (aSymbol == #storeClassVarS) ifTrue:[extra := #speciallitS.stackDelta := -1. ^ 40].
-    (aSymbol == #storeGlobalS) ifTrue:[extra := #speciallitS. stackDelta := -1. ^ 40].
+    (aSymbol == #storeGlobalS) ifTrue:[extra := #speciallitS. stackDelta := -1. ^ 41].
     (aSymbol == #pushSpecialGlobal) ifTrue:[stackDelta := 1. extra := #index. ^ 200].
 
     (aSymbol == #storeOuterBlockVar) ifTrue:[stackDelta := -1. extra := #indexLevel. ^ 129].
@@ -1373,25 +1373,16 @@
                     ].
                     symIndex := symIndex + 1.
                     self appendByte:index.
-                    self appendEmptyShort.  "space for inline-generation"
-                    self appendEmptyLong.   "space for inline-address"
-                    symIndex := symIndex + 6
 
                 ] ifFalse:[ (extra == #speciallitS) ifTrue:[
                     index := symbolicCodeArray at:symIndex.
                     symIndex := symIndex + 1.
                     self appendByte:index.
-                    self appendEmptyShort.  "space for inline-generation"
-                    self appendEmptyLong.   "space for inline-address"
-                    symIndex := symIndex + 6
 
                 ] ifFalse:[ (extra == #speciallitL) ifTrue:[
                     index := symbolicCodeArray at:symIndex.
                     symIndex := symIndex + 2.
                     self appendWord:index.
-                    self appendEmptyShort.  "space for inline-generation"
-                    self appendEmptyLong.   "space for inline-address"
-                    symIndex := symIndex + 6
 
                 ] ifFalse:[ (extra == #offset) ifTrue:[
                     relocInfo at:symIndex put:codeIndex.
@@ -2344,6 +2335,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.91 1996-10-08 19:04:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.92 1996-10-12 17:57:32 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp