PERL CVS PARROT 7 CVS COMMIT PARROT BUILD TOOLS BUILD NATIVECALL PL
Date: 20 Feb 2005 11:15:22 -0000

Subject: cvs commit: parrot/build_tools build_nativecall.pl
From: bernhard@no-spam (Bernhard Schmalhofer)

cvsuser 05/02/20 03:15:22

Modified: build_tools build_nativecall.pl Log:
Use a Hash PMC, instead of a PerlHash PMC, for mapping NCI function signatures to the appropriate C-function pointers.
Revision Changes Path 1.62 +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.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- build_nativecall.pl 27 Jan 2005 07:59:57 -0000 1.61
+++ build_nativecall.pl 20 Feb 2005 11:15:22 -0000 1.62
@@no-spam -1,6 +1,6 @@no-spam #! perl -w # Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
-# $Id: build_nativecall.pl,v 1.61 2005/01/27 07:59:57 leo Exp $
+# $Id: build_nativecall.pl,v 1.62 2005/02/20 11:15:22 bernhard Exp $
=head1 NAME @@no-spam -209,7 +209,7 @@no-spam /* nci.c * Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
* CVS Info - * $Id: build_nativecall.pl,v 1.61 2005/01/27 07:59:57 leo Exp $
+ * $Id: build_nativecall.pl,v 1.62 2005/02/20 11:15:22 bernhard Exp $
* Overview:
* Native Call Interface routines. The code needed to build a * parrot to C call frame is in here @@no-spam -477,7 +477,7 @@no-spam IGLOBALS_NCI_FUNCS);
if (!HashPointer) {
- HashPointer = pmc_new(interpreter, enum_class_PerlHash);
+ HashPointer = pmc_new(interpreter, enum_class_Hash);
$put_pointer