date and time created 81/03/02 21:28:10 by peter

SCCS-vsn: usr.bin/pascal/pxp/func.c 1.1

diff --git a/usr/src/usr.bin/pascal/pxp/func.c b/usr/src/usr.bin/pascal/pxp/func.c
new file mode 100644 (file)
index 0000000..94023db
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pxp/func.c
@@ -0,0 +1,22 @@
+static char *sccsid = "@(#)func.c      1.1 (Berkeley) %G%";
+/* 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"
+
+/*
+ * A function call
+ */
+funccod(r)
+       register int *r;
+{
+
+       call(r[2], r[3]);
+}