cvsuser 03/01/18 01:14:30
Modified: . build_nativecall.pl call_list.txt
Log:
fix non i386 nci
Revision Changes Path
1.11 +4 -1 parrot/build_nativecall.pl
Index: build_nativecall.pl
===================================================================
RCS file: /cvs/public/parrot/build_nativecall.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- build_nativecall.pl 4 Jan 2003 03:27:36 -0000 1.10
+++ build_nativecall.pl 18 Jan 2003 09:14:30 -0000 1.11
@@ -74,7 +74,7 @@
/* nci.c
* Copyright: 2001, 2002 Yet Another Society
* CVS Info
- * $Id: build_nativecall.pl,v 1.10 2003/01/04 03:27:36 josh Exp $
+ * $Id: build_nativecall.pl,v 1.11 2003/01/18 09:14:30 leo Exp $
* Overview:
* Native Call Interface routines. The code needed to build a
* parrot to C call frame is in here
@@ -197,6 +197,9 @@
};
/t/ && do {my $regnum = $reg_ref->{s}++;
return "string_to_cstring(interpreter, STR_REG($regnum))";
+ };
+ /I/ && do {
+ return "interpreter";
};
}
1.8 +3 -0 parrot/call_list.txt
Index: call_list.txt
===================================================================
RCS file: /cvs/public/parrot/call_list.txt,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- call_list.txt 19 Dec 2002 22:57:07 -0000 1.7
+++ call_list.txt 18 Jan 2003 09:14:30 -0000 1.8
@@ -13,6 +13,8 @@
# t - character string
# PMC reg stuff
# p - data pointer from PMC (on store into a new UnManagedStruct PMC)
+# special stuff
+# I - Parrot_Interp param
#
#Return params
i
@@ -36,3 +38,4 @@
v piiii
i pppp
i ppi
+p It
