instVarStore instruction fixed
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 25 Feb 2009 16:49:21 +0000
changeset 8 203df4f28793
parent 7 0de2eaa86456
child 9 04518c7fb91c
instVarStore instruction fixed
IRInstVarStore.st
stx_goodies_newcompiler.st
--- a/IRInstVarStore.st	Tue Dec 02 09:43:42 2008 +0000
+++ b/IRInstVarStore.st	Wed Feb 25 16:49:21 2009 +0000
@@ -12,11 +12,12 @@
 
 executeOn: interpreter
 
-	Preferences compileBlocksAsClosures 
-		ifFalse: [interpreter storeInstVar: number] 
-		ifTrue: [interpreter pushLiteral: number.
-				interpreter send: #privStoreIn:instVar:].
-		
+        "Preferences compileBlocksAsClosures"false
+                ifFalse: [interpreter storeInstVar: number] 
+                ifTrue: [interpreter pushLiteral: number.
+                                interpreter send: #privStoreIn:instVar:].
+
+    "Modified: / 25-02-2009 / 15:24:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !IRInstVarStore methodsFor:'testing'!
--- a/stx_goodies_newcompiler.st	Tue Dec 02 09:43:42 2008 +0000
+++ b/stx_goodies_newcompiler.st	Wed Feb 25 16:49:21 2009 +0000
@@ -21,8 +21,6 @@
         #'stx:libcompat'    "Preferences - referenced by IRDecompiler>>removeClosureCreation: "
         #'stx:libwidg'    "ScrollableView - referenced by IRMethod>>inspector2TabIRCode "
     )
-
-    "Modified: / 02-12-2008 / 10:42:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !stx_goodies_newcompiler class methodsFor:'description - contents'!
@@ -64,8 +62,6 @@
         IRTempRead
         IRTempStore
     )
-
-    "Modified: / 02-12-2008 / 10:42:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 extensionMethodNames
@@ -74,8 +70,6 @@
         Class binding
         Class bindingOf:
     )
-
-    "Modified: / 02-12-2008 / 10:42:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !stx_goodies_newcompiler class methodsFor:'description - project information'!