home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
pxp
/
call.c
< prev
next >
Wrap
C/C++ Source or Header
|
1980-02-17
|
807b
|
49 lines
/* Copyright (c) 1979 Regents of the University of California */
#
/*
* pxp - Pascal execution profiler
*
* Bill Joy UCB
* Version 1.2 January 1979
*/
#include "0.h"
#include "tree.h"
/*
* Procedure or function call
*/
call(p, argv)
register int *argv;
{
register *al;
ppid(p);
if (argv != NIL) {
ppbra("(("+1); /* xaproposstrange */
for (;;) {
al = argv[1];
if (al[0] == T_WEXP) {
rvalue(al[1], NIL);
if (al[2] != NIL) {
ppsep(": ");
rvalue(al[2], NIL);
}
if (al[3] == OCT || al[3] == HEX) {
ppspac();
ppkw(al[3] == OCT ? "oct" : "hex");
} else if (al[3] != NIL) {
ppsep(": ");
rvalue(al[3], NIL);
}
} else
rvalue(argv[1], NIL);
argv = argv[2];
if (argv == NIL)
break;
ppsep(", ");
}
ppket(")");
}
}