[perl #21288] [PATCH] Function pointer initialization in packfile.c

[via RT]

# New Ticket Created by  Simon Glover 
# Please include the string:  [perl #21288]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=21288 >



 The attached patch changes the initialization of various function
 pointers in packfile.c from NULL to NULLfunc (defined in parrot.h),
 in line with the discussion in parrot.h

 Hopefully this will fix the current breakage with lcc, but I don't have
 a working copy to test this with; on the machines I do have access to
 (x86 and Alpha, both with Linux) parrot builds fine, and all tests past.

 Simon


--- packfile.c.old      Tue Feb 18 14:18:26 2003
+++ packfile.c  Tue Feb 18 14:27:22 2003
@@ -763,9 +763,9 @@ PackFile_new(INTVAL is_mapped)
         PackFile_Segment_new_seg(pf, PF_BYTEC_SEG, BYTE_CODE_SEGMENT_NAME, 1);
     pf->need_wordsize = 0;
     pf->need_endianize = 0;
-    pf->fetch_op = (opcode_t (*)(opcode_t)) NULL;
-    pf->fetch_iv = (INTVAL (*)(INTVAL)) NULL;
-    pf->fetch_nv = (void (*)(unsigned char *, unsigned char *)) NULL;
+    pf->fetch_op = (opcode_t (*)(opcode_t)) NULLfunc;
+    pf->fetch_iv = (INTVAL (*)(INTVAL)) NULLfunc;
+    pf->fetch_nv = (void (*)(unsigned char *, unsigned char *)) NULLfunc;
     return pf;
 }

@@ -868,10 +868,10 @@ pf_register_standard_funcs(struct PackFi
     };
     struct PackFile_funcs defaultf = {
         PackFile_Segment_new,
-        (PackFile_Segment_destroy_func_t) NULL,
-        (PackFile_Segment_packed_size_func_t) NULL,
-        (PackFile_Segment_pack_func_t) NULL,
-        (PackFile_Segment_unpack_func_t) NULL,
+        (PackFile_Segment_destroy_func_t) NULLfunc,
+        (PackFile_Segment_packed_size_func_t) NULLfunc,
+        (PackFile_Segment_pack_func_t) NULLfunc,
+        (PackFile_Segment_unpack_func_t) NULLfunc,
         default_dump
     };
     struct PackFile_funcs fixupf = {
@@ -893,9 +893,9 @@ pf_register_standard_funcs(struct PackFi
     struct PackFile_funcs bytef = {
         byte_code_new,
         byte_code_destroy,
-        (PackFile_Segment_packed_size_func_t) NULL,
-        (PackFile_Segment_pack_func_t) NULL,
-        (PackFile_Segment_unpack_func_t) NULL,
+        (PackFile_Segment_packed_size_func_t) NULLfunc,
+        (PackFile_Segment_pack_func_t) NULLfunc,
+        (PackFile_Segment_unpack_func_t) NULLfunc,
         default_dump
     };
     struct PackFile_funcs debugf = {