cvsuser 03/12/16 00:53:48
Modified: imcc pcc.c
imcc/t/syn pcc.t
src pdb.c
Log:
* the added test doesn't fail w or w/o the fix
* but if the code is evaled, that could have been the problem
Revision Changes Path
1.39 +10 -9 parrot/imcc/pcc.c
Index: pcc.c
===================================================================
RCS file: /cvs/public/parrot/imcc/pcc.c,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -w -r1.38 -r1.39
--- pcc.c 10 Dec 2003 20:50:26 -0000 1.38
+++ pcc.c 16 Dec 2003 08:53:34 -0000 1.39
@@ -856,7 +856,8 @@
lazy:
for (j = 0; j < 4; j++) {
if (arg_reg->set == types[j]) {
- if (arg_reg->color == next[j]) {
+ if (arg_reg->type != VTCONST &&
+ arg_reg->color == next[j]) {
next[j]++;
break;
}
1.28 +31 -1 parrot/imcc/t/syn/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -w -r1.27 -r1.28
--- pcc.t 4 Dec 2003 21:51:59 -0000 1.27
+++ pcc.t 16 Dec 2003 08:53:44 -0000 1.28
@@ -1,6 +1,6 @@
#!perl
use strict;
-use TestCompiler tests => 31;
+use TestCompiler tests => 32;
##############################
# Parrot Calling Conventions
@@ -30,6 +30,36 @@
CODE
10
20
+OUT
+
+output_is(<<'CODE', <<'OUT', "constants, bug 24667");
+.sub _main prototyped
+ .local Sub sub
+ newsub sub, .Sub, _sub
+ .pcc_begin prototyped
+ .arg 5
+ .arg 6
+ .arg 7
+ .pcc_call sub
+ .pcc_end
+ end
+.end
+.sub _sub prototyped
+ .param int a
+ .param int b
+ .param int c
+ print a
+ print "\n"
+ print b
+ print "\n"
+ print c
+ print "\n"
+ end
+.end
+CODE
+5
+6
+7
OUT
##############################
1.10 +2 -2 parrot/src/pdb.c
Index: pdb.c
===================================================================
RCS file: /cvs/public/parrot/src/pdb.c,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- pdb.c 23 Oct 2003 17:48:59 -0000 1.9
+++ pdb.c 16 Dec 2003 08:53:48 -0000 1.10
@@ -2,7 +2,7 @@
* pdb.c
*
* CVS Info
- * $Id: pdb.c,v 1.9 2003/10/23 17:48:59 robert Exp $
+ * $Id: pdb.c,v 1.10 2003/12/16 08:53:48 leo Exp $
* Overview:
* The Parrot debugger
* History:
@@ -29,7 +29,7 @@
char *filename;
Parrot_PackFile pf;
- interpreter = Parrot_new();
+ interpreter = Parrot_new(NULL);
if (!interpreter) {
return 1;
