* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)call.c 5.1 (Berkeley) %G%";
* pxp - Pascal execution profiler
* Version 1.2 January 1979
* Procedure or function call
ppbra("(("+1); /* \exapropos\estrange
*/
if (al
[3] == OCT
|| al
[3] == HEX
) {
ppkw(al
[3] == OCT
? "oct" : "hex");
} else if (al
[3] != NIL
) {