[svn:parrot] r47219 - trunk/t/compilers/imcc/syn
bacek at svn.parrot.org
bacek at svn.parrot.org
Mon May 31 13:39:09 UTC 2010
Author: bacek
Date: Mon May 31 13:39:09 2010
New Revision: 47219
URL: https://trac.parrot.org/parrot/changeset/47219
Log:
Don't use printerr in test to avoid dependency on opsc for dynops.
Modified:
trunk/t/compilers/imcc/syn/tail.t
Modified: trunk/t/compilers/imcc/syn/tail.t
==============================================================================
--- trunk/t/compilers/imcc/syn/tail.t Mon May 31 13:22:32 2010 (r47218)
+++ trunk/t/compilers/imcc/syn/tail.t Mon May 31 13:39:09 2010 (r47219)
@@ -15,7 +15,6 @@
$ENV{TEST_PROG_ARGS} = '-Oc';
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, final position" );
-.loadlib 'io_ops'
.sub _main :main
$P1 = new 'Integer'
@@ -57,7 +56,7 @@
$I33 = defined function
if $I33 goto doit
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
doit:
set_args "0x20", argv
@@ -99,8 +98,6 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, intermediate position" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
$P1 = 20
@@ -138,7 +135,7 @@
doit:
.tailcall function(argv :flat)
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
.end
@@ -175,8 +172,6 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, implicit final return" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
@@ -213,7 +208,7 @@
$I33 = defined function
if $I33 goto doit
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
doit:
.tailcall function(argv :flat)
@@ -256,8 +251,6 @@
pir_output_is( <<'CODE', <<'OUT', ":flatten in .return" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
@@ -291,7 +284,7 @@
print " results]\n"
.return ($P35 :flat)
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
.end
More information about the parrot-commits
mailing list