diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 01:43:49 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 01:43:49 +0000 |
commit | 8ac853655d9b744749adcb9687c13d99cdd6e9fb (patch) | |
tree | c32146679d3473063e5fce6090b93706d7602ad6 /dump.c | |
parent | 27332437a2ed19419cce5a4de680085fd4d13c8d (diff) | |
download | perl-8ac853655d9b744749adcb9687c13d99cdd6e9fb.tar.gz |
Convert miniperl sources to ANSI C. Several passes of
GNU C's 'protoize' plus a few hand edits.
Will compile miniperl with gcc -x c++ (i.e. treat .c a C++ files)
Does not link seems gcc's C++ does not define a symbol for
const char foo[] = "....";
i.e. with empty [].
p4raw-id: //depot/ansiperl@194
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 24 |
1 files changed, 9 insertions, 15 deletions
@@ -17,7 +17,7 @@ #ifndef DEBUGGING void -dump_all() +dump_all(void) { } #else /* Rest of file is for DEBUGGING */ @@ -29,7 +29,7 @@ static void dump(); #endif void -dump_all() +dump_all(void) { dTHR; PerlIO_setlinebuf(Perl_debug_log); @@ -39,8 +39,7 @@ dump_all() } void -dump_packsubs(stash) -HV* stash; +dump_packsubs(HV *stash) { dTHR; I32 i; @@ -64,8 +63,7 @@ HV* stash; } void -dump_sub(gv) -GV* gv; +dump_sub(GV *gv) { SV *sv = sv_newmortal(); @@ -82,8 +80,7 @@ GV* gv; } void -dump_form(gv) -GV* gv; +dump_form(GV *gv) { SV *sv = sv_newmortal(); @@ -96,14 +93,13 @@ GV* gv; } void -dump_eval() +dump_eval(void) { dump_op(eval_root); } void -dump_op(o) -register OP *o; +dump_op(OP *o) { dump("{\n"); if (o->op_seq) @@ -316,8 +312,7 @@ register OP *o; } void -dump_gv(gv) -register GV *gv; +dump_gv(GV *gv) { SV *sv; @@ -340,8 +335,7 @@ register GV *gv; } void -dump_pm(pm) -register PMOP *pm; +dump_pm(PMOP *pm) { char ch; |