diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-11 23:08:54 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-11 23:08:54 +0000 |
commit | e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d (patch) | |
tree | f6873b8c4849ed68422779287f972403412a3412 /run.c | |
parent | 1d64a758d60d7ded97c59c753fea85d3365ca0df (diff) | |
parent | 004955206412e3e53b76d4dad6bc7ac3032c300a (diff) | |
download | perl-e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d.tar.gz |
Initial (untested) integration of mainline changes.
p4raw-id: //depot/win32/perl@234
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; while ( op = (*op->op_ppaddr)(ARGS) ) ; @@ -33,7 +33,7 @@ runops_standard() { static void debprof _((OP*o)); int -runops_debug() { +runops_debug(void) { dTHR; if (!op) { warn("NULL OP IN RUN"); @@ -56,8 +56,7 @@ runops_debug() { } I32 -debop(o) -OP *o; +debop(OP *o) { SV *sv; deb("%s", op_name[o->op_type]); @@ -84,8 +83,7 @@ OP *o; } void -watch(addr) -char **addr; +watch(char **addr) { watchaddr = addr; watchok = *addr; @@ -94,8 +92,7 @@ char **addr; } static void -debprof(o) -OP* o; +debprof(OP *o) { if (!profiledata) New(000, profiledata, MAXO, U32); @@ -103,7 +100,7 @@ OP* o; } void -debprofdump() +debprofdump(void) { unsigned i; if (!profiledata) |