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

git-svn-id: https://svn.parrot.org/parrot/trunk@41251 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Sep 13, 2009 · c92c401 · c92c401
1 parent 01471d4
commit c92c401
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/build/nativecall.pl b/tools/build/nativecall.pl
@@ -370,7 +370,7 @@ sub make_arg {
     /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;";