compiler/PPCInlinedMethod.st
changeset 516 3b81c9e53352
parent 505 19d830b74322
parent 515 b5316ef15274
child 525 751532c8f3db
--- a/compiler/PPCInlinedMethod.st	Fri Jul 31 14:07:31 2015 +0100
+++ b/compiler/PPCInlinedMethod.st	Mon Aug 17 12:56:02 2015 +0100
@@ -9,7 +9,6 @@
 	category:'PetitCompiler-Compiler-Codegen'
 !
 
-
 !PPCInlinedMethod methodsFor:'as yet unclassified'!
 
 call
@@ -18,6 +17,18 @@
     "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
+    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
 !
@@ -34,6 +45,12 @@
 
 !PPCInlinedMethod methodsFor:'code generation - variables'!
 
+allocateReturnVariable
+    self error: 'return variable must be assigned by the non-inlined method....'
+
+   "Created: / 23-04-2015 / 21:06:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 allocateReturnVariableNamed: name
     self error: 'return variable must be assigned by the non-inlined method....'
 
@@ -46,10 +63,3 @@
    "Created: / 23-04-2015 / 21:06:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!PPCInlinedMethod class methodsFor:'documentation'!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
-! !
-