Implement formal functions and procedures

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

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

 
 #include "whoami.h"
 #ifdef PC
 
 #include "whoami.h"
 #ifdef PC


@@ -72,7 +72,7 @@ pcproc(r)
                rvlist(r[3]);
                return;
        }
                rvlist(r[3]);
                return;
        }

-       if (p->class != PROC) {
+       if (p->class != PROC && p->class != FPROC) {

                error("Can't call %s, its %s not a procedure", p->symbol, classes[p->class]);
                rvlist(r[3]);
                return;
                error("Can't call %s, its %s not a procedure", p->symbol, classes[p->class]);
                rvlist(r[3]);
                return;