align temporaries

SCCS-vsn: usr.bin/pascal/src/tmps.c 1.6

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

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


@@ -59,7 +59,8 @@ tmpalloc(size, type, mode)
                    return nlp;
            }
 #      endif PC
                    return nlp;
            }
 #      endif PC

-       offset = op->curtmps.om_off -= leven( size );
+        offset = op->curtmps.om_off =
+           roundup((int)(op->curtmps.om_off - size), (long)align(type));

        if ( offset < op->om_max ) {
                op->om_max = offset;
        }
        if ( offset < op->om_max ) {
                op->om_max = offset;
        }