cvsuser 04/09/21 08:27:41
Modified: build_tools build_nativecall.pl
Log:
Fix a bad address taking in NCI
Revision Changes Path
1.57 +3 -3 parrot/build_tools/build_nativecall.pl
Index: build_nativecall.pl
===================================================================
RCS file: /cvs/public/parrot/build_tools/build_nativecall.pl,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -w -r1.56 -r1.57
--- build_nativecall.pl 15 Sep 2004 12:23:12 -0000 1.56
+++ build_nativecall.pl 21 Sep 2004 15:27:41 -0000 1.57
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: build_nativecall.pl,v 1.56 2004/09/15 12:23:12 dan Exp $
+# $Id: build_nativecall.pl,v 1.57 2004/09/21 15:27:41 dan Exp $
=head1 NAME
@@ -165,7 +165,7 @@
/* nci.c
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: build_nativecall.pl,v 1.56 2004/09/15 12:23:12 dan Exp $
+ * $Id: build_nativecall.pl,v 1.57 2004/09/21 15:27:41 dan Exp $
* Overview:
* Native Call Interface routines. The code needed to build a
* parrot to C call frame is in here
@@ -338,7 +338,7 @@
};
/i/ && do {my $regnum = $reg_ref->{i}++;
my $tempnum = $tempcounter++;
- push @extra_preamble, "int *tempvar$tempnum = (int)REG_INT($regnum);\n";
+ push @extra_preamble, "int tempvar$tempnum = (int)REG_INT($regnum);\n";
return "tempvar$tempnum";
};
/3/ && do {my $regnum = $reg_ref->{p}++;
