1bc19982fSbostic /*- 2*355d31f8Sbostic * Copyright (c) 1980, 1993 3*355d31f8Sbostic * The Regents of the University of California. All rights reserved. 4bc19982fSbostic * 5bc19982fSbostic * %sccs.include.redist.c% 6e1f5a09bSdist */ 7e1f5a09bSdist 8e1f5a09bSdist #ifndef lint 9*355d31f8Sbostic static char sccsid[] = "@(#)func.c 8.1 (Berkeley) 06/06/93"; 10bc19982fSbostic #endif /* not lint */ 11e1f5a09bSdist 12bcbb0ef4Speter /* 13bcbb0ef4Speter * pxp - Pascal execution profiler 14bcbb0ef4Speter * 15bcbb0ef4Speter * Bill Joy UCB 16bcbb0ef4Speter * Version 1.2 January 1979 17bcbb0ef4Speter */ 18bcbb0ef4Speter 19bcbb0ef4Speter #include "0.h" 20bcbb0ef4Speter #include "tree.h" 21bcbb0ef4Speter 22bcbb0ef4Speter /* 23bcbb0ef4Speter * A function call 24bcbb0ef4Speter */ funccod(r)25bcbb0ef4Speterfunccod(r) 26bcbb0ef4Speter register int *r; 27bcbb0ef4Speter { 28bcbb0ef4Speter 29bcbb0ef4Speter call(r[2], r[3]); 30bcbb0ef4Speter } 31