Mercurial > emacs
comparison src/bytecode.c @ 15873:77950cb46314
(Fbyte_code): For relative gotos, force signed arithmetic.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 16 Aug 1996 19:08:24 +0000 |
| parents | ee40177f6c68 |
| children | 855c8d8ba0f0 |
comparison
equal
deleted
inserted
replaced
| 15872:244a4779d1b5 | 15873:77950cb46314 |
|---|---|
| 473 else DISCARD (1); | 473 else DISCARD (1); |
| 474 break; | 474 break; |
| 475 | 475 |
| 476 case BRgoto: | 476 case BRgoto: |
| 477 QUIT; | 477 QUIT; |
| 478 pc += *pc - 127; | 478 pc += (int) *pc - 127; |
| 479 break; | 479 break; |
| 480 | 480 |
| 481 case BRgotoifnil: | 481 case BRgotoifnil: |
| 482 if (NILP (POP)) | 482 if (NILP (POP)) |
| 483 { | 483 { |
| 484 QUIT; | 484 QUIT; |
| 485 pc += *pc - 128; | 485 pc += (int) *pc - 128; |
| 486 } | 486 } |
| 487 pc++; | 487 pc++; |
| 488 break; | 488 break; |
| 489 | 489 |
| 490 case BRgotoifnonnil: | 490 case BRgotoifnonnil: |
| 491 if (!NILP (POP)) | 491 if (!NILP (POP)) |
| 492 { | 492 { |
| 493 QUIT; | 493 QUIT; |
| 494 pc += *pc - 128; | 494 pc += (int) *pc - 128; |
| 495 } | 495 } |
| 496 pc++; | 496 pc++; |
| 497 break; | 497 break; |
| 498 | 498 |
| 499 case BRgotoifnilelsepop: | 499 case BRgotoifnilelsepop: |