diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-25 21:46:35 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-25 21:46:35 +0000 |
| commit | f1c0db8dbc906cad6c85874be33c7969497df1cd (patch) | |
| tree | 47bb35826b88df8a906e9799c987f87a91563f6f /bytecode.pl | |
| parent | 51c1089b32b9be8d5242f51a530e4b3118896e71 (diff) | |
| parent | 33b839e22819d9ddfd0fa565289e5af7b6262ec9 (diff) | |
| download | perl-f1c0db8dbc906cad6c85874be33c7969497df1cd.tar.gz | |
[win32] integrate mainline
p4raw-id: //depot/win32/perl@588
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 # |