aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 6ed0eda904f..e69ae722248 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -629,7 +629,7 @@ If the third argument is incorrect, Emacs may crash.")
629 while (--op >= 0) 629 while (--op >= 0)
630 { 630 {
631 if (CONSP (v1)) 631 if (CONSP (v1))
632 v1 = XCONS (v1)->cdr; 632 v1 = XCDR (v1);
633 else if (!NILP (v1)) 633 else if (!NILP (v1))
634 { 634 {
635 immediate_quit = 0; 635 immediate_quit = 0;
@@ -674,14 +674,14 @@ If the third argument is incorrect, Emacs may crash.")
674 case Bcar: 674 case Bcar:
675 v1 = TOP; 675 v1 = TOP;
676 docar: 676 docar:
677 if (CONSP (v1)) TOP = XCONS (v1)->car; 677 if (CONSP (v1)) TOP = XCAR (v1);
678 else if (NILP (v1)) TOP = Qnil; 678 else if (NILP (v1)) TOP = Qnil;
679 else Fcar (wrong_type_argument (Qlistp, v1)); 679 else Fcar (wrong_type_argument (Qlistp, v1));
680 break; 680 break;
681 681
682 case Bcdr: 682 case Bcdr:
683 v1 = TOP; 683 v1 = TOP;
684 if (CONSP (v1)) TOP = XCONS (v1)->cdr; 684 if (CONSP (v1)) TOP = XCDR (v1);
685 else if (NILP (v1)) TOP = Qnil; 685 else if (NILP (v1)) TOP = Qnil;
686 else Fcdr (wrong_type_argument (Qlistp, v1)); 686 else Fcdr (wrong_type_argument (Qlistp, v1));
687 break; 687 break;
@@ -810,8 +810,8 @@ If the third argument is incorrect, Emacs may crash.")
810 { 810 {
811 double f1, f2; 811 double f1, f2;
812 812
813 f1 = (FLOATP (v1) ? XFLOAT (v1)->data : XINT (v1)); 813 f1 = (FLOATP (v1) ? XFLOAT_DATA (v1) : XINT (v1));
814 f2 = (FLOATP (v2) ? XFLOAT (v2)->data : XINT (v2)); 814 f2 = (FLOATP (v2) ? XFLOAT_DATA (v2) : XINT (v2));
815 TOP = (f1 == f2 ? Qt : Qnil); 815 TOP = (f1 == f2 ? Qt : Qnil);
816 } 816 }
817 else 817 else
@@ -1097,7 +1097,7 @@ If the third argument is incorrect, Emacs may crash.")
1097 case Bcar_safe: 1097 case Bcar_safe:
1098 v1 = TOP; 1098 v1 = TOP;
1099 if (CONSP (v1)) 1099 if (CONSP (v1))
1100 TOP = XCONS (v1)->car; 1100 TOP = XCAR (v1);
1101 else 1101 else
1102 TOP = Qnil; 1102 TOP = Qnil;
1103 break; 1103 break;
@@ -1105,7 +1105,7 @@ If the third argument is incorrect, Emacs may crash.")
1105 case Bcdr_safe: 1105 case Bcdr_safe:
1106 v1 = TOP; 1106 v1 = TOP;
1107 if (CONSP (v1)) 1107 if (CONSP (v1))
1108 TOP = XCONS (v1)->cdr; 1108 TOP = XCDR (v1);
1109 else 1109 else
1110 TOP = Qnil; 1110 TOP = Qnil;
1111 break; 1111 break;