From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 12 Jun 1997 12:25:05 +0000 (+0000)
Subject: Support sysseek introduced in 5.004.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87f219289c80e623fc6db87de78ac90c6d95db14;p=p5sagit%2Fp5-mst-13.2.git

Support sysseek introduced in 5.004.

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

diff --git a/ccop.c b/ccop.c
index 84df353..5481ea7 100644
--- 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
--- 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",