use only low byte of (signed) 1 byte case labels

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

diff --git a/usr/src/usr.bin/pascal/src/put.c b/usr/src/usr.bin/pascal/src/put.c
index 184ec97..6075c76 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.1 %G%";
+static char sccsid[] = "@(#)put.c 1.2 %G%";

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


@@ -225,7 +225,7 @@ around:
                         */
                        lc++;
                        if ((unsigned) lc & 1)
                         */
                        lc++;
                        if ((unsigned) lc & 1)

-                               casewrd = *( ( long * ) &p[1] );
+                               casewrd = *( ( long * ) &p[1] ) & 0377;

                        else {
                                lc -= 2;
                                word (   casewrd
                        else {
                                lc -= 2;
                                word (   casewrd