Author: fperrad
Date: Sat Nov 8 11:37:43 2008
New Revision: 32453
Modified:
trunk/languages/forth/test.pir
trunk/languages/forth/tokenstream.pir
trunk/languages/forth/variablestack.pir
trunk/languages/forth/virtualstack.pir
Log:
[forth]
- fix syntax
Modified: trunk/languages/forth/test.pir
==============================================================================
--- trunk/languages/forth/test.pir (original)
+++ trunk/languages/forth/test.pir Sat Nov 8 11:37:43 2008
@@ -17,7 +17,7 @@
load_bytecode 'languages/forth/forth.pir'
.local pmc iter
- iter = new .Iterator, args
+ iter = new 'Iterator', args
next_file:
unless iter goto done
$S0 = shift iter
Modified: trunk/languages/forth/tokenstream.pir
==============================================================================
--- trunk/languages/forth/tokenstream.pir (original)
+++ trunk/languages/forth/tokenstream.pir Sat Nov 8 11:37:43 2008
@@ -17,8 +17,8 @@
.param int flags
.local pmc self
- $I0 = typeof class
- self = new $I0
+ $S0 = typeof class
+ self = new $S0
.local pmc pos
pos = new 'Integer'
@@ -79,7 +79,7 @@
$I1 = find_not_cclass .CCLASS_NUMERIC, str, 0, $I0
if $I1 == $I0 goto numeric
- token = new .String
+ token = new 'String'
token = str
goto return
Modified: trunk/languages/forth/variablestack.pir
==============================================================================
--- trunk/languages/forth/variablestack.pir (original)
+++ trunk/languages/forth/variablestack.pir Sat Nov 8 11:37:43 2008
@@ -12,7 +12,7 @@
.sub init :vtable :method
.local pmc stack, cell
- stack = new .ResizableIntegerArray
+ stack = new 'ResizableIntegerArray'
cell = new 'Integer'
cell = 0
Modified: trunk/languages/forth/virtualstack.pir
==============================================================================
--- trunk/languages/forth/virtualstack.pir (original)
+++ trunk/languages/forth/virtualstack.pir Sat Nov 8 11:37:43 2008
@@ -11,7 +11,7 @@
.sub init :vtable :method
.local pmc cstack
- cstack = new .ResizableStringArray
+ cstack = new 'ResizableStringArray'
setattribute self, '@cstack', cstack
.end
