summaryrefslogtreecommitdiff
path: root/run.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-11-11 23:08:54 +0000
committerGurusamy Sarathy <gsar@cpan.org>1997-11-11 23:08:54 +0000
commite7cd54d7e2bd82a89f30e2f71675be1f5d3be34d (patch)
treef6873b8c4849ed68422779287f972403412a3412 /run.c
parent1d64a758d60d7ded97c59c753fea85d3365ca0df (diff)
parent004955206412e3e53b76d4dad6bc7ac3032c300a (diff)
downloadperl-e7cd54d7e2bd82a89f30e2f71675be1f5d3be34d.tar.gz
Initial (untested) integration of mainline changes.
p4raw-id: //depot/win32/perl@234
Diffstat (limited to 'run.c')
-rw-r--r--run.c15
1 files changed, 6 insertions, 9 deletions
diff --git a/run.c b/run.c
index 87633d1804..6afab88dff 100644
--- a/run.c
+++ b/run.c
@@ -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)