also check that for variables are not passed as var parameters.

SCCS-vsn: usr.bin/pascal/src/call.c 1.12

diff --git a/usr/src/usr.bin/pascal/src/call.c b/usr/src/usr.bin/pascal/src/call.c
index 947d7c0..027037a 100644 (file)
--- a/usr/src/usr.bin/pascal/src/call.c
+++ b/usr/src/usr.bin/pascal/src/call.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[] = "@(#)call.c 1.11 %G%";
+static char sccsid[] = "@(#)call.c 1.12 %G%";

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


@@ -116,7 +116,7 @@ call(p, argv, porf, psbn)
                        /*
                         *      ... p( ...
                         */
                        /*
                         *      ... p( ...
                         */

-                   sextname( extname , p -> symbol , p -> nl_block & 037 );
+                   sextname( extname , p -> symbol , BLOCKNO(p -> nl_block) );

                    putleaf( P2ICON , 0 , 0 , p2type( p ) , extname );
                    break;
                case FFUNC:
                    putleaf( P2ICON , 0 , 0 , p2type( p ) , extname );
                    break;
                case FFUNC:


@@ -156,7 +156,7 @@ call(p, argv, porf, psbn)
                                chk = FALSE;
                                break;
                        }
                                chk = FALSE;
                                break;
                        }

-                       q = lvalue( (int *) argv[1], MOD , LREQ );
+                       q = lvalue( (int *) argv[1], MOD | ASGN , LREQ );

                        if (q == NIL) {
                                chk = FALSE;
                                break;
                        if (q == NIL) {
                                chk = FALSE;
                                break;