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 /run.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 'run.c')
-rw-r--r-- | run.c | 15 |
1 files changed, 6 insertions, 9 deletions
@@ -20,7 +20,7 @@ dEXT char **watchaddr = 0; dEXT char *watchok; int -runops_standard() { +runops_standard(void) { dTHR; SAVEI32(runlevel); runlevel++; @@ -35,7 +35,7 @@ runops_standard() { static void debprof _((OP*o)); int -runops_debug() { +runops_debug(void) { dTHR; if (!op) { warn("NULL OP IN RUN"); @@ -61,8 +61,7 @@ runops_debug() { } I32 -debop(o) -OP *o; +debop(OP *o) { SV *sv; deb("%s", op_name[o->op_type]); @@ -89,8 +88,7 @@ OP *o; } void -watch(addr) -char **addr; +watch(char **addr) { watchaddr = addr; watchok = *addr; @@ -99,8 +97,7 @@ char **addr; } static void -debprof(o) -OP* o; +debprof(OP *o) { if (!profiledata) New(000, profiledata, MAXO, U32); @@ -108,7 +105,7 @@ OP* o; } void -debprofdump() +debprofdump(void) { unsigned i; if (!profiledata) |