Support sysseek introduced in 5.004.

p4raw-id: //depot/perlext/Compiler@28

diff --git a/ccop.c b/ccop.c
index 84df353..5481ea7 100644 (file)
--- a/ccop.c
+++ b/ccop.c
@@ -404,6 +404,9 @@ static opclass (*ccopaddr[])_((OP *o)) = {
        cc_listop,              /* prtf */
        cc_listop,              /* print */
        cc_listop,              /* sysopen */
+#if PATCHLEVEL > 3
+       cc_listop,              /* sysseek */
+#endif
        cc_listop,              /* sysread */
        cc_listop,              /* syswrite */
        cc_listop,              /* send */

diff --git a/ccop.h b/ccop.h
index b170b63..b6900b7 100644 (file)
--- a/ccop.h
+++ b/ccop.h
@@ -1,3 +1,7 @@
+#ifndef PATCHLEVEL
+#include "patchlevel.h"
+#endif
+
 typedef enum {
     OPc_NULL,  /* 0 */
     OPc_BASEOP,        /* 1 */
@@ -230,6 +234,9 @@ EXT char *ppnames[] = {
        "pp_prtf",
        "pp_print",
        "pp_sysopen",
+#if PATCHLEVEL > 3
+       "pp_sysseek",
+#endif
        "pp_sysread",
        "pp_syswrite",
        "pp_send",