compiler/PPCInlinedMethod.st
changeset 515 b5316ef15274
parent 502 1e45d3c96ec5
child 516 3b81c9e53352
child 524 f6f68d32de73
--- a/compiler/PPCInlinedMethod.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCInlinedMethod.st	Mon Aug 17 12:13:16 2015 +0100
@@ -12,17 +12,35 @@
 !PPCInlinedMethod methodsFor:'as yet unclassified'!
 
 call
+    ^ self source
+
+    "Modified: / 24-07-2015 / 19:45:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+callOn: receiver
+    self error: 'are you sure you want to inline code from different receiver? If so, remove me!!'.
     ^ self code
 !
 
 code
-    ^ (String streamContents:[:s | buffer codeOn:s ]) trimRight
+    self error: 'deprecated?'.
+    ^ (String streamContents:[:s |" buffer codeOn:s "]) trimRight
 
     "Modified (format): / 01-06-2015 / 21:44:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isInline
     ^ true
+!
+
+source
+    ^ source isString ifTrue:[ 
+        source
+    ] ifFalse:[ 
+        (String streamContents:[:s | source sourceOn:s ]) trimRight
+    ].
+
+    "Created: / 24-07-2015 / 19:46:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCInlinedMethod methodsFor:'code generation - variables'!