aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c37
1 files changed, 1 insertions, 36 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 8d3817e64c6..286a8d675d4 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -255,11 +255,7 @@ DEFINE (Brem, 0246) \
255DEFINE (Bnumberp, 0247) \ 255DEFINE (Bnumberp, 0247) \
256DEFINE (Bintegerp, 0250) \ 256DEFINE (Bintegerp, 0250) \
257 \ 257 \
258DEFINE (BRgoto, 0252) \ 258/* 0252-0256 were relative jumps, apparently never used. */ \
259DEFINE (BRgotoifnil, 0253) \
260DEFINE (BRgotoifnonnil, 0254) \
261DEFINE (BRgotoifnilelsepop, 0255) \
262DEFINE (BRgotoifnonnilelsepop, 0256) \
263 \ 259 \
264DEFINE (BlistN, 0257) \ 260DEFINE (BlistN, 0257) \
265DEFINE (BconcatN, 0260) \ 261DEFINE (BconcatN, 0260) \
@@ -702,7 +698,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
702 op = FETCH2; 698 op = FETCH2;
703 op_branch: 699 op_branch:
704 op -= pc - bytestr_data; 700 op -= pc - bytestr_data;
705 op_relative_branch:
706 if (BYTE_CODE_SAFE 701 if (BYTE_CODE_SAFE
707 && ! (bytestr_data - pc <= op 702 && ! (bytestr_data - pc <= op
708 && op < bytestr_data + bytestr_length - pc)) 703 && op < bytestr_data + bytestr_length - pc))
@@ -737,36 +732,6 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
737 DISCARD (1); 732 DISCARD (1);
738 NEXT; 733 NEXT;
739 734
740 CASE (BRgoto):
741 op = FETCH - 128;
742 goto op_relative_branch;
743
744 CASE (BRgotoifnil):
745 op = FETCH - 128;
746 if (NILP (POP))
747 goto op_relative_branch;
748 NEXT;
749
750 CASE (BRgotoifnonnil):
751 op = FETCH - 128;
752 if (!NILP (POP))
753 goto op_relative_branch;
754 NEXT;
755
756 CASE (BRgotoifnilelsepop):
757 op = FETCH - 128;
758 if (NILP (TOP))
759 goto op_relative_branch;
760 DISCARD (1);
761 NEXT;
762
763 CASE (BRgotoifnonnilelsepop):
764 op = FETCH - 128;
765 if (!NILP (TOP))
766 goto op_relative_branch;
767 DISCARD (1);
768 NEXT;
769
770 CASE (Breturn): 735 CASE (Breturn):
771 goto exit; 736 goto exit;
772 737