date and time created 82/01/18 19:02:46 by linton

SCCS-vsn: usr.bin/pascal/pdx/runtime.h 1.1

diff --git a/usr/src/usr.bin/pascal/pdx/runtime.h b/usr/src/usr.bin/pascal/pdx/runtime.h
new file mode 100644 (file)
index 0000000..788bb97
--- /dev/null
+++ b/usr/src/usr.bin/pascal/pdx/runtime.h
@@ -0,0 +1,26 @@
+/* Copyright (c) 1982 Regents of the University of California */
+
+static char sccsid[] = "@(#)runtime.h 1.1 %G%";
+
+/*
+ * Definitions for the runtime environment.
+ *
+ * In general, runtime organization is language, machine, and
+ * even compiler dependent.
+ */
+
+BOOLEAN isactive();            /* tell if a symbol is currently active */
+ADDRESS entry_addr();          /* entry address of current proc/func */
+ADDRESS entry_point();         /* point where environment is setup */
+ADDRESS return_addr();         /* return address of current proc/func */
+ADDRESS caller_addr();         /* entry of caller of current proc/func */
+where();                       /* print out currently active procedures */
+dump();                                /* dump the world */
+callproc();                    /* call a procedure */
+procreturn();                  /* return from a "call"-ed procedure */
+ADDRESS address();             /* address of a variable */
+ADDRESS firstline();           /* address of first line in a procedure */
+findbeginning();               /* find address of beginning of a procedure */
+runtofirst();                  /* step to first line in current procedure */
+ADDRESS lastaddr();            /* address of last line in program */
+ADDRESS fparamaddr();          /* entry address of a function parameter */