diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-25 17:44:34 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-25 17:44:34 +0000 |
| commit | 33b839e22819d9ddfd0fa565289e5af7b6262ec9 (patch) | |
| tree | 107651a84a4623afbc9e0dbcc885b912a880829e /bytecode.pl | |
| parent | 9731c6ca89275fa6ca122bfe3be4600e5836a905 (diff) | |
| download | perl-33b839e22819d9ddfd0fa565289e5af7b6262ec9.tar.gz | |
More compiler tweaks.
p4raw-id: //depot/perl@585
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/bytecode.pl b/bytecode.pl index 8eadbdd941..e72d852c32 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -34,12 +34,12 @@ EOT my $perl_header; ($perl_header = $c_header) =~ s{[/ ]?\*/?}{#}g; -unlink "byterun.c", "byterun.h", "ext/B/Asmdata.pm"; +unlink "byterun.c", "byterun.h", "ext/B/B/Asmdata.pm"; # # Start with boilerplate for Asmdata.pm # -open(ASMDATA_PM, ">ext/B/Asmdata.pm") or die "Asmdata.pm: $!"; +open(ASMDATA_PM, ">ext/B/B/Asmdata.pm") or die "ext/B/B/Asmdata.pm: $!"; print ASMDATA_PM $perl_header, <<'EOT'; package B::Asmdata; use Exporter; @@ -69,11 +69,9 @@ print BYTERUN_C $c_header, <<'EOT'; #include "byterun.h" #ifdef INDIRECT_BGET_MACROS -void byterun(bs) -struct bytestream bs; +void byterun(struct bytestream bs) #else -void byterun(fp) -FILE *fp; +void byterun(FILE *fp) #endif /* INDIRECT_BGET_MACROS */ { dTHR; @@ -216,10 +214,10 @@ EXT SV * specialsv_list[%d]; #define INIT_SPECIALSV_LIST STMT_START { \ EOT for ($i = 0; $i < @specialsv; $i++) { - print BYTERUN_H "specialsv_list[$i] = $specialsv[$i]; \\\n"; + print BYTERUN_H "\tspecialsv_list[$i] = $specialsv[$i]; \\\n"; } print BYTERUN_H <<'EOT'; -} STMT_END + } STMT_END EOT # |