diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-10 18:33:53 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-12-10 18:33:53 +0000 |
| commit | b15db76c4b946130f59d0ea8160af6cda7c6cc15 (patch) | |
| tree | 772a8abf07fb3115a605483786eee14965fb3fd0 /bytecode.pl | |
| parent | 79c1c0e29aad3343598ef206840805632b932fd6 (diff) | |
| download | perl-b15db76c4b946130f59d0ea8160af6cda7c6cc15.tar.gz | |
Start overhauling compiler. It was working at least minimally
right up until the final tweak of B.xs to add threadsv_names
at which point building it provokes a seg fault in perl while
doing the xsubpp :-(.
p4raw-id: //depot/perlext/Compiler@357
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/bytecode.pl b/bytecode.pl index f24f379006..0dd7c1e4df 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -40,14 +40,14 @@ if (-f "byterun.c") { if (-f "byterun.h") { rename("byterun.h", "byterun.h.old"); } -if (-f "Asmdata.pm") { - rename("Asmdata.pm", "Asmdata.pm.old"); +if (-f "B/Asmdata.pm") { + rename("B/Asmdata.pm", "B/Asmdata.pm.old"); } # # Start with boilerplate for Asmdata.pm # -open(ASMDATA_PM, ">Asmdata.pm") or die "Asmdata.pm: $!"; +open(ASMDATA_PM, ">B/Asmdata.pm") or die "Asmdata.pm: $!"; print ASMDATA_PM $perl_header, <<'EOT'; package B::Asmdata; use Exporter; @@ -356,10 +356,8 @@ op_pmreplrootgv *(SV**)&cPMOP->op_pmreplroot svindex op_pmreplstart cPMOP->op_pmreplstart opindex op_pmnext *(OP**)&cPMOP->op_pmnext opindex pregcomp op pvcontents x -op_pmshort cPMOP->op_pmshort svindex op_pmflags cPMOP->op_pmflags U16 op_pmpermflags cPMOP->op_pmpermflags U16 -op_pmslen cPMOP->op_pmslen char op_sv cSVOP->op_sv svindex op_gv *(SV**)&cGVOP->op_gv svindex op_pv cPVOP->op_pv pvcontents |