diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-03 12:31:48 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-03 12:31:48 +0000 |
| commit | ed65db6c6bc1b1e4dbabdf2bae93837e52fa7473 (patch) | |
| tree | d9fede651fede49352ccbcf0cf92789a6478c78f /bytecode.pl | |
| parent | 1b95b982db38b55c080b1a1a3872fba1ac114acc (diff) | |
| download | perl-ed65db6c6bc1b1e4dbabdf2bae93837e52fa7473.tar.gz | |
Make compiler build/work with devel 5.005
p4raw-id: //depot/perlext/Compiler@50
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/bytecode.pl b/bytecode.pl index 0f79e6589a..f24f379006 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -20,7 +20,7 @@ while (($from, $tos) = each %alias_to) { my $c_header = <<'EOT'; /* - * Copyright (c) 1996 Malcolm Beattie + * Copyright (c) 1996, 1997 Malcolm Beattie * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -84,6 +84,7 @@ void byterun(fp) FILE *fp; #endif /* INDIRECT_BGET_MACROS */ { + dTHR; int insn; while ((insn = FGETC()) != EOF) { switch (insn) { @@ -168,6 +169,13 @@ void byterun _((struct bytestream)); void byterun _((FILE *)); #endif /* INDIRECT_BGET_MACROS */ +#ifndef PATCHLEVEL +#include "patchlevel.h" +#endif +#if PATCHLEVEL < 4 || (PATCHLEVEL == 4 && SUBVERSION < 50) +#define dTHR extern int errno +#endif + enum { EOT |