round up size of arguments for NARGCHK call.

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

diff --git a/usr/src/usr.bin/pascal/src/fdec.c b/usr/src/usr.bin/pascal/src/fdec.c
index 95efd58..c79a1c0 100644 (file)
--- a/usr/src/usr.bin/pascal/src/fdec.c
+++ b/usr/src/usr.bin/pascal/src/fdec.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[] = "@(#)fdec.c 1.5 %G%";
+static char sccsid[] = "@(#)fdec.c 1.6 %G%";

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


@@ -297,7 +297,7 @@ funchdr(r)
                            il->value[NL_OFFS] += p->value[NL_OFFS];
 #              endif OBJ
 #              ifdef PC
                            il->value[NL_OFFS] += p->value[NL_OFFS];
 #              endif OBJ
 #              ifdef PC

-                   p -> value[ NL_OFFS ] = o;
+                   p -> value[ NL_OFFS ] = roundup( o , A_STACK );

 #              endif PC
        } else { 
                /*
 #              endif PC
        } else { 
                /*