summaryrefslogtreecommitdiff
path: root/opcode.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-06-12 06:43:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-06-12 06:43:03 +0000
commit73c4f7a1d0b3ac27682d86c953e22cbc7dc810e6 (patch)
treed12e2ac03334a26b273c7b91e41aba6df9cfc33f /opcode.pl
parent22b491d3a115964a8dde699347569bf3176f8b1a (diff)
downloadperl-73c4f7a1d0b3ac27682d86c953e22cbc7dc810e6.tar.gz
EXTERN_C declarations for global arrays in various
headers, so perl can be built even in C++ mode; win32 build fixups; regen headers p4raw-id: //depot/perl@3537
Diffstat (limited to 'opcode.pl')
-rwxr-xr-xopcode.pl9
1 files changed, 9 insertions, 0 deletions
diff --git a/opcode.pl b/opcode.pl
index 98e18da93b..1afc2f6cf3 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -46,6 +46,9 @@ print "\n#define MAXO ", scalar @ops, "\n\n";
# Emit op names and descriptions.
print <<END;
+
+START_EXTERN_C
+
#ifndef DOINIT
EXT char *PL_op_name[];
#else
@@ -77,6 +80,8 @@ print <<END;
};
#endif
+END_EXTERN_C
+
#ifndef PERL_OBJECT
START_EXTERN_C
@@ -108,6 +113,8 @@ print <<END;
END_EXTERN_C
#endif /* PERL_OBJECT */
+START_EXTERN_C
+
#ifndef DOINIT
EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX);
#else
@@ -208,6 +215,8 @@ for (@ops) {
print <<END;
};
#endif
+
+END_EXTERN_C
END
close OC or die "Error closing opcode.h: $!";