Implement formal functions and procedures

[unix-history] / usr / src / usr.bin / pascal / src / OPnames.h

diff --git a/usr/src/usr.bin/pascal/src/OPnames.h b/usr/src/usr.bin/pascal/src/OPnames.h
index 3177cf2..26b4b12 100644 (file)
--- a/usr/src/usr.bin/pascal/src/OPnames.h
+++ b/usr/src/usr.bin/pascal/src/OPnames.h
@@ -1,22 +1,23 @@
-/* static      char sccsid[] = "@(#)OPnames.h 1.1 %G%"; */
+/* static      char sccsid[] = "@(#)OPnames.h 1.2 %G%"; */

 
 char   *otext[] = {
        0,
 
 char   *otext[] = {
        0,

-       " HALT",
-       " TRA4",

        " NODUMP",
        " BEG",
        " END",
        " CALL",
        " NODUMP",
        " BEG",
        " END",
        " CALL",

-       "*ABORT",
-       " PUSH",
-       " POP",
+       " FCALL",
+       " FRTN",
+       " FSAV",

        " SDUP2",
        " SDUP4",
        " SDUP2",
        " SDUP4",

-       " IF",

        " TRA",
        " TRA",

-       " LINO",
+       " TRA4",

        " GOTO",
        " GOTO",

+       " LINO",
+       " PUSH",
+       0,
+       " IF",

        " REL2",
        " REL4",
        " REL24",
        " REL2",
        " REL4",
        " REL24",


@@ -24,7 +25,6 @@ char  *otext[] = {
        " REL8",
        " RELG",
        " RELT",
        " REL8",
        " RELG",
        " RELT",

-       0,

        " REL28",
        " REL48",
        " REL82",
        " REL28",
        " REL48",
        " REL82",


@@ -148,7 +148,7 @@ char        *otext[] = {
        " STLIM",
        " LLIMIT",
        " BUFF",
        " STLIM",
        " LLIMIT",
        " BUFF",

-       0,
+       " HALT",

        0,
        0,
        0,
        0,
        0,
        0,


@@ -157,9 +157,9 @@ char        *otext[] = {
        "*CONG",
        "*CONC",
        "*CONC4",
        "*CONG",
        "*CONC",
        "*CONC4",

+       "*ABORT",

        " PXPBUF",
        " COUNT",
        " PXPBUF",
        " COUNT",

-       " TRACNT",

        0,
        " CASE1OP",
        " CASE2OP",
        0,
        " CASE1OP",
        " CASE2OP",