Author: kjs
Date: Thu Oct 4 09:37:49 2007
New Revision: 21832
Modified:
trunk/compilers/pct/src/HLLCompiler.pir
trunk/languages/APL/src/parse2past.tg
trunk/languages/forth/forth.pir
Log:
change "(X)" argument of get_results to "X", removing parenthesis
change some .Type into 'Type'
Modified: trunk/compilers/pct/src/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/HLLCompiler.pir (original)
+++ trunk/compilers/pct/src/HLLCompiler.pir Thu Oct 4 09:37:49 2007
@@ -436,7 +436,7 @@
target_pir:
goto interactive_loop
interactive_trap:
- get_results '(0,0)', $P0, $S0
+ get_results '0,0', $P0, $S0
$S1 = substr $S0, -1, 1
$I0 = is_cclass .CCLASS_NEWLINE, $S1, 0
if $I0 goto have_newline
Modified: trunk/languages/APL/src/parse2past.tg
==============================================================================
--- trunk/languages/APL/src/parse2past.tg (original)
+++ trunk/languages/APL/src/parse2past.tg Thu Oct 4 09:37:49 2007
@@ -6,7 +6,7 @@
past.'push_new'('PAST::Op', 'pirop'=>'inline', 'inline'=> <<'END_INLINE')
goto trap_end
trap:
- get_results '(0,0)', $P0, $S0
+ get_results '0,0', $P0, $S0
print $S0
exit 1
trap_end:
Modified: trunk/languages/forth/forth.pir
==============================================================================
--- trunk/languages/forth/forth.pir (original)
+++ trunk/languages/forth/forth.pir Thu Oct 4 09:37:49 2007
@@ -12,16 +12,16 @@
# initialize the rstack
.local pmc stack
- stack = new .ResizablePMCArray
+ stack = new 'ResizablePMCArray'
set_hll_global ' stack', stack
# word dictionary - used for compilation
.local pmc dict
- dict = new .Hash
+ dict = new 'Hash'
set_hll_global ' dict', dict
.local pmc vars, vstack
- vars = new .Hash
+ vars = new 'Hash'
vstack = new 'VariableStack'
set_hll_global ' variables', vars
set_hll_global ' vstack', vstack
@@ -71,7 +71,7 @@
.return()
exception:
- get_results '(0, 0)', $P0, $S0
+ get_results '0, 0', $P0, $S0
$S0 = $P0[0]
print $S0
print "\n"
@@ -151,7 +151,7 @@
$I0 = vars[$S0]
$S0 = code.unique('$P')
code.emit(<<'END_PIR', $S0, $I0)
- %0 = new .Integer
+ %0 = new 'Integer'
%0 = %1
END_PIR
push stack, $S0
@@ -160,14 +160,14 @@
undefined:
$S0 = token
$S0 = "undefined symbol: " . $S0
- $P0 = new .Exception
+ $P0 = new 'Exception'
$P0[0] = $S0
throw $P0
numeric:
$S0 = code.unique('$P')
code.emit(<<"END_PIR", $S0, token)
- %0 = new .Integer
+ %0 = new 'Integer'
%0 = %1
END_PIR
push stack, $S0
