Implement formal functions and procedures

[unix-history] / usr / src / usr.bin / pascal / src / stkrval.c

diff --git a/usr/src/usr.bin/pascal/src/stkrval.c b/usr/src/usr.bin/pascal/src/stkrval.c
index 5617bf9..f6dc44d 100644 (file)
--- a/usr/src/usr.bin/pascal/src/stkrval.c
+++ b/usr/src/usr.bin/pascal/src/stkrval.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)stkrval.c 1.2 %G%";
+static char sccsid[] = "@(#)stkrval.c 1.3 %G%";

 
 #include "whoami.h"
 #include "0.h"
 
 #include "whoami.h"
 #include "0.h"


@@ -232,6 +232,7 @@ cstrng:
 #                      endif PC
 
                case FUNC:
 #                      endif PC
 
                case FUNC:

+               case FFUNC:

                        /*
                         * Function call
                         */
                        /*
                         * Function call
                         */


@@ -271,6 +272,7 @@ cstrng:
                        return (NIL);
 
                case PROC:
                        return (NIL);
 
                case PROC:

+               case FPROC:

                        error("Procedure %s found where expression required", p->symbol);
                        return (NIL);
                default:
                        error("Procedure %s found where expression required", p->symbol);
                        return (NIL);
                default: