diff options
| author | Ken Raeburn | 1999-09-12 05:07:01 +0000 |
|---|---|---|
| committer | Ken Raeburn | 1999-09-12 05:07:01 +0000 |
| commit | 70949dac51f3e975477e6b1a38cc78625efc4a40 (patch) | |
| tree | d0048c9a0b9bc18a9dd65e094b0fce43d1067f9b /src/bytecode.c | |
| parent | e952bf4445863c01763f402389b38c00f77e024b (diff) | |
| download | emacs-70949dac51f3e975477e6b1a38cc78625efc4a40.tar.gz emacs-70949dac51f3e975477e6b1a38cc78625efc4a40.zip | |
Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 14 |
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; |