compiler/PPCCompiler.st
changeset 486 0dd7eb52b5a1
parent 479 6316a98b7150
child 488 19a9c25960ef
--- a/compiler/PPCCompiler.st	Mon Jun 15 17:12:54 2015 +0100
+++ b/compiler/PPCCompiler.st	Mon Jun 15 17:47:38 2015 +0100
@@ -189,6 +189,25 @@
     ]
 !
 
+codeAssignParsedValueOf:aBlock to:aString 
+    | tmpVarirable  method |
+
+    self assert:aBlock isBlock.
+    self assert:aString isNil not.
+    tmpVarirable := returnVariable.
+    returnVariable := aString.
+    method := [
+            aBlock value
+        ] ensure:[ returnVariable := tmpVarirable ].
+    method isInline ifTrue:[
+        self callOnLine:method
+    ] ifFalse:[
+        self codeEvaluateAndAssign:(method call) to:aString.
+    ]
+
+    "Created: / 23-04-2015 / 18:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 codeBlock: contents
     currentMethod codeBlock: contents
 
@@ -319,28 +338,6 @@
     "Modified: / 01-06-2015 / 21:48:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-codeStoreValueOf: aBlock intoVariable: aString
-    | tmpVarirable method |
-    self assert: aBlock isBlock.
-    self assert: aString isNil not.
-    
-    tmpVarirable := returnVariable.
-    returnVariable := aString.
-    method := [  
-        aBlock value 
-    ] ensure: [ 
-        returnVariable := tmpVarirable 
-    ].
-    
-    method isInline ifTrue: [ 
-        self callOnLine: method 
-    ] ifFalse: [ 
-        self codeEvaluateAndAssign: (method call) to: aString.
-    ]	
-    
-    "Created: / 23-04-2015 / 18:21:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 codeTokenGuard: node ifFalse: codeBlock
     | guard id |
     guard := PPCTokenGuard on: node.