# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 840222504 0
# Node ID 77950cb463149b390d6c48463ec4bdb8216e47be
# Parent  244a4779d1b597ead86c3be26426373092a10889
(Fbyte_code): For relative gotos, force signed arithmetic.

diff -r 244a4779d1b5 -r 77950cb46314 src/bytecode.c
--- a/src/bytecode.c	Fri Aug 16 17:21:31 1996 +0000
+++ b/src/bytecode.c	Fri Aug 16 19:08:24 1996 +0000
@@ -475,14 +475,14 @@
 
 	case BRgoto:
 	  QUIT;
-	  pc += *pc - 127;
+	  pc += (int) *pc - 127;
 	  break;
 
 	case BRgotoifnil:
 	  if (NILP (POP))
 	    {
 	      QUIT;
-	      pc += *pc - 128;
+	      pc += (int) *pc - 128;
 	    }
 	  pc++;
 	  break;
@@ -491,7 +491,7 @@
 	  if (!NILP (POP))
 	    {
 	      QUIT;
-	      pc += *pc - 128;
+	      pc += (int) *pc - 128;
 	    }
 	  pc++;
 	  break;