[svn:parrot] r41251 - trunk/tools/build

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sun Sep 13 16:40:46 2009
New Revision: 41251
URL: https://trac.parrot.org/parrot/changeset/41251

Log:
[nci] pass NULL for PMCNULL in 'p' signatures

Modified:
   trunk/tools/build/nativecall.pl

Modified: trunk/tools/build/nativecall.pl
==============================================================================
--- trunk/tools/build/nativecall.pl	Sun Sep 13 11:25:08 2009	(r41250)
+++ trunk/tools/build/nativecall.pl	Sun Sep 13 16:40:46 2009	(r41251)
@@ -370,7 +370,7 @@
     /p/ && do {
         push @{$temps_ref},          "PMC *t_$temp_num;";
         push @{$extra_preamble_ref}, "t_$temp_num = GET_NCI_P($reg_num);";
-        return "VTABLE_get_pointer(interp, t_$temp_num)";
+        return "(PMC_IS_NULL(t_$temp_num) ? NULL : VTABLE_get_pointer(interp, t_$temp_num))";
     };
     /V/ && do {
         push @{$temps_ref},          "PMC *t_$temp_num;";