Author: kjs
Date: Thu Oct 4 09:41:10 2007
New Revision: 21833
Modified:
trunk/languages/forth/test.pir
trunk/runtime/parrot/library/Parrot/HLLCompiler.pir
trunk/t/compilers/pge/p5regex/p5rx.t
Log:
change "(X)" arg into "X" of get_results, removing parenth.
Modified: trunk/languages/forth/test.pir
==============================================================================
--- trunk/languages/forth/test.pir (original)
+++ trunk/languages/forth/test.pir Thu Oct 4 09:41:10 2007
@@ -113,7 +113,7 @@
exception:
.local pmc except
- get_results '(0,0)', except, $S0
+ get_results '0,0', except, $S0
output = except[0]
compare:
Modified: trunk/runtime/parrot/library/Parrot/HLLCompiler.pir
==============================================================================
--- trunk/runtime/parrot/library/Parrot/HLLCompiler.pir (original)
+++ trunk/runtime/parrot/library/Parrot/HLLCompiler.pir Thu Oct 4 09:41:10 2007
@@ -415,7 +415,7 @@
say $P0
goto interactive_loop
interactive_trap:
- get_results '(0,0)', $P0, $S0
+ get_results '0,0', $P0, $S0
.local int severity
severity = $P0[2]
if severity == .EXCEPT_EXIT goto interactive_end
Modified: trunk/t/compilers/pge/p5regex/p5rx.t
==============================================================================
--- trunk/t/compilers/pge/p5regex/p5rx.t (original)
+++ trunk/t/compilers/pge/p5regex/p5rx.t Thu Oct 4 09:41:10 2007
@@ -255,7 +255,7 @@
thrown:
.local pmc exception
.local string message
- get_results '(0,0)', exception, message
+ get_results '0,0', exception, message
# remove /'s
# $S0 = substr result, 0, 1
# if $S0 != '/' goto bad_error
