port to the mc68000; pass 1.

SCCS-vsn: usr.bin/pascal/src/put.c 1.19

diff --git a/usr/src/usr.bin/pascal/src/put.c b/usr/src/usr.bin/pascal/src/put.c
index 92d3500..63d2eea 100644 (file)
--- a/usr/src/usr.bin/pascal/src/put.c
+++ b/usr/src/usr.bin/pascal/src/put.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[] = "@(#)put.c 1.18 %G%";
+static char sccsid[] = "@(#)put.c 1.19 %G%";

 
 #include "whoami.h"
 #include "opcode.h"
 
 #include "whoami.h"
 #include "opcode.h"


@@ -434,8 +434,14 @@ listnames(ap)
            ap->value[ NL_ELABEL ] = lc;
 #      endif OBJ
 #      ifdef PC
            ap->value[ NL_ELABEL ] = lc;
 #      endif OBJ
 #      ifdef PC

-           putprintf( "        .data" , 0 );
-           putprintf( "        .align 1" , 0 );
+#          ifdef vax
+               putprintf("     .data", 0);
+               putprintf("     .align 1", 0);
+#          endif vax
+#          ifdef mc68000
+               putprintf("     .data", 0);
+               putprintf("     .even", 0);
+#          endif mc68000

            ap -> value[ NL_ELABEL ] = getlab();
            putlab( ap -> value[ NL_ELABEL ] );
 #      endif PC
            ap -> value[ NL_ELABEL ] = getlab();
            putlab( ap -> value[ NL_ELABEL ] );
 #      endif PC