compiler/PPCMethod.st
changeset 525 751532c8f3db
parent 516 3b81c9e53352
parent 524 f6f68d32de73
--- a/compiler/PPCMethod.st	Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/PPCMethod.st	Mon Aug 24 15:56:20 2015 +0100
@@ -21,12 +21,8 @@
 !PPCMethod methodsFor:'accessing'!
 
 body
-    self error: 'Should no longer be used'.
-    "    
-    ^ buffer contents
-    "
-
-    "Modified: / 17-08-2015 / 11:58:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    self halt: '???'.
+"	^ buffer contents"
 !
 
 bridge
@@ -73,24 +69,6 @@
     ^ selector
 !
 
-profile
-    self error: 'Should no longer be used'.
-    "    
-    ^ profile
-    "
-
-    "Modified: / 17-08-2015 / 11:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-profile: aBoolean
-    self error: 'Should no longer be used'.
-    "
-    profile := aBoolean 
-    "
-
-    "Modified: / 17-08-2015 / 11:58:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 source
     ^ source isString ifTrue:[ 
         source
@@ -162,13 +140,13 @@
     innerBlock := PPCCodeBlock new.
     innerBlock indentationLevel: outerBlock indentationLevel + 1.  
     [ 
-        outerBlock addOnLine:'['.
+        outerBlock addOnLine: '['.
         source := innerBlock.
         self codeOnLine: contents.
     ] ensure:[
         outerBlock 
-            code: (String streamContents:[:s | innerBlock sourceOn:s]);
-            add:']'.
+            codeOnLine: (String streamContents:[:s | innerBlock sourceOn:s]);
+            add: ']'.
         source := outerBlock.
     ]
 
@@ -207,15 +185,13 @@
 !PPCMethod methodsFor:'code generation - variables'!
 
 addVariable: name
-    self error: 'Should no longer be used'
-    "
-    (variables includes: name) ifTrue:[ 
+    self halt: 'deprecated'.
+"	(variables includes: name) ifTrue:[ 
         self error:'Duplicate variable name, must rename'.
     ].
     variables add: name.
-    "
-
-    "Modified: / 17-08-2015 / 11:56:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"
+    "Modified: / 23-04-2015 / 12:29:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 allocateReturnVariable
@@ -267,15 +243,6 @@
 
     "Created: / 23-04-2015 / 18:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-06-2015 / 18:14:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-variables
-    self error: 'Should no longer be used'.
-    "
-    ^ '  | ', (variables inject: '' into: [ :s :e | s, ' ', e]), ' |'
-    "
-
-    "Modified: / 17-08-2015 / 11:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCMethod methodsFor:'initialization'!