Implement formal functions and procedures

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

diff --git a/usr/src/usr.bin/pascal/src/rval.c b/usr/src/usr.bin/pascal/src/rval.c
index 8c46f6c..9f481ff 100644 (file)
--- a/usr/src/usr.bin/pascal/src/rval.c
+++ b/usr/src/usr.bin/pascal/src/rval.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[] = "@(#)rval.c 1.1 %G%";
+static char sccsid[] = "@(#)rval.c 1.2 %G%";

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


@@ -304,6 +304,7 @@ cstrng:
                            return (q);
 
                    case FUNC:
                            return (q);
 
                    case FUNC:

+                   case FFUNC:

                            /*
                             * Function call with no arguments.
                             */
                            /*
                             * Function call with no arguments.
                             */


@@ -323,6 +324,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: