compiler/PPCCodeBlock.st
changeset 516 3b81c9e53352
parent 505 19d830b74322
parent 515 b5316ef15274
--- a/compiler/PPCCodeBlock.st	Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCCodeBlock.st	Mon Aug 17 12:56:02 2015 +0100
@@ -38,16 +38,9 @@
 !PPCCodeBlock methodsFor:'code generation'!
 
 code: aStringOrBlockOrRBParseNode
-    aStringOrBlockOrRBParseNode isString ifTrue:[ 
-        self emitCodeAsString: aStringOrBlockOrRBParseNode
-    ] ifFalse:[
-        (aStringOrBlockOrRBParseNode isKindOf: RBProgramNode) ifTrue:[ 
-            self emitCodeAsRBNode: aStringOrBlockOrRBParseNode.
-        ] ifFalse:[  
-            self emitCodeAsBlock: aStringOrBlockOrRBParseNode
-        ].
-    ].
-
+    self codeNl.
+    self codeOnLine: aStringOrBlockOrRBParseNode
+    
     "Created: / 01-06-2015 / 21:07:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-06-2015 / 05:52:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -66,6 +59,22 @@
     ].
 
     "Created: / 01-06-2015 / 22:58:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+codeNl
+    self add: ''.
+!
+
+codeOnLine: aStringOrBlockOrRBParseNode
+    aStringOrBlockOrRBParseNode isString ifTrue:[ 
+        self emitCodeAsString: aStringOrBlockOrRBParseNode
+    ] ifFalse:[
+        (aStringOrBlockOrRBParseNode isKindOf: RBProgramNode) ifTrue:[ 
+            self emitCodeAsRBNode: aStringOrBlockOrRBParseNode.
+        ] ifFalse:[  
+            self emitCodeAsBlock: aStringOrBlockOrRBParseNode
+        ].
+    ].
 ! !
 
 !PPCCodeBlock methodsFor:'code generation - variables'!
@@ -178,7 +187,7 @@
 !
 
 emitCodeAsString: aString
-    buffer nextPutAll: aString
+    self addOnLine: aString
 !
 
 formatRBNode: anRBNode