Author: paultcochrane
Date: Sun Jan 20 08:53:45 2008
New Revision: 25047
Modified:
trunk/languages/forth/tokenstream.pir
trunk/languages/forth/variablestack.pir
trunk/languages/forth/words.pir
Log:
[forth] Converted new .Integer to new 'Integer' as per RT#48024
Modified: trunk/languages/forth/tokenstream.pir
==============================================================================
--- trunk/languages/forth/tokenstream.pir (original)
+++ trunk/languages/forth/tokenstream.pir Sun Jan 20 08:53:45 2008
@@ -21,7 +21,7 @@
self = new $I0
.local pmc pos
- pos = new .Integer
+ pos = new 'Integer'
pos = 0
setattribute self, '$code', str
@@ -85,7 +85,7 @@
numeric:
$I0 = str
- token = new .Integer
+ token = new 'Integer'
token = $I0
return:
Modified: trunk/languages/forth/variablestack.pir
==============================================================================
--- trunk/languages/forth/variablestack.pir (original)
+++ trunk/languages/forth/variablestack.pir Sun Jan 20 08:53:45 2008
@@ -13,7 +13,7 @@
.sub init :vtable :method
.local pmc stack, cell
stack = new .ResizableIntegerArray
- cell = new .Integer
+ cell = new 'Integer'
cell = 0
setattribute self, '@stack', stack
Modified: trunk/languages/forth/words.pir
==============================================================================
--- trunk/languages/forth/words.pir (original)
+++ trunk/languages/forth/words.pir Sun Jan 20 08:53:45 2008
@@ -15,7 +15,7 @@
variables = get_hll_global ' variables'
vstack = get_hll_global ' vstack'
- $P0 = new .Integer
+ $P0 = new 'Integer'
$I0 = vstack
$P0 = $I0
@@ -385,7 +385,7 @@
code.emit(<<"END_PIR", a, $S0)
$I0 = %0
$I0 = islt $I0, 0
- %1 = new .Integer
+ %1 = new 'Integer'
%1 = $I0
END_PIR
push stack, $S0
