--- a/compiler/PPCMethod.st Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/PPCMethod.st Mon Aug 24 15:34:14 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'!