Author: kjs
Date: Thu Oct 4 09:45:50 2007
New Revision: 21834
Modified:
trunk/t/compilers/pge/p6regex/01-regex.t
trunk/t/compilers/pge/perl6regex/01-regex.t
trunk/t/op/gc.t
Log:
* change get_results "(...)" into get_results "..."
Modified: trunk/t/compilers/pge/p6regex/01-regex.t
==============================================================================
--- trunk/t/compilers/pge/p6regex/01-regex.t (original)
+++ trunk/t/compilers/pge/p6regex/01-regex.t Thu Oct 4 09:45:50 2007
@@ -241,7 +241,7 @@
thrown:
.sym pmc exception
.sym 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
Modified: trunk/t/compilers/pge/perl6regex/01-regex.t
==============================================================================
--- trunk/t/compilers/pge/perl6regex/01-regex.t (original)
+++ trunk/t/compilers/pge/perl6regex/01-regex.t Thu Oct 4 09:45:50 2007
@@ -272,7 +272,7 @@
thrown:
.sym pmc exception
.sym string message
- get_results '(0,0)', exception, message
+ get_results '0,0', exception, message
say message
# remove /'s
$S0 = substr result, 0, 1
Modified: trunk/t/op/gc.t
==============================================================================
--- trunk/t/op/gc.t (original)
+++ trunk/t/op/gc.t Thu Oct 4 09:45:50 2007
@@ -260,15 +260,15 @@
.const .Sub P0 = "co1"
set I20, 0
l:
- get_results '()'
- set_args '()'
+ get_results ''
+ set_args ''
invokecc P0
inc I20
lt I20, 3, l
print "done\n"
end
.pcc_sub co1:
- get_params '()'
+ get_params ''
set P17, P1
col:
print "coro\n"
