Mercurial > emacs

comparison src/bytecode.c @ 9297:5151ce5ab25a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Don't use XFASTINT as an lvalue.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 15:38:56 +0000
parents 127823d9444d
children 77cd47d7f172
comparison
equal deleted inserted replaced
9296:a1a7fc21ded9 9297:5151ce5ab25a
842 v1 = POP; 842 v1 = POP;
843 TOP = Frem (TOP, v1); 843 TOP = Frem (TOP, v1);
844 break; 844 break;
845 845
846 case Bpoint: 846 case Bpoint:
847 XFASTINT (v1) = point; 847 XSETFASTINT (v1, point);
848 PUSH (v1); 848 PUSH (v1);
849 break; 849 break;
850 850
851 case Bgoto_char: 851 case Bgoto_char:
852 TOP = Fgoto_char (TOP); 852 TOP = Fgoto_char (TOP);
861 DISCARD (op - 1); 861 DISCARD (op - 1);
862 TOP = Finsert (op, &TOP); 862 TOP = Finsert (op, &TOP);
863 break; 863 break;
864 864
865 case Bpoint_max: 865 case Bpoint_max:
866 XFASTINT (v1) = ZV; 866 XSETFASTINT (v1, ZV);
867 PUSH (v1); 867 PUSH (v1);
868 break; 868 break;
869 869
870 case Bpoint_min: 870 case Bpoint_min:
871 XFASTINT (v1) = BEGV; 871 XSETFASTINT (v1, BEGV);
872 PUSH (v1); 872 PUSH (v1);
873 break; 873 break;
874 874
875 case Bchar_after: 875 case Bchar_after:
876 TOP = Fchar_after (TOP); 876 TOP = Fchar_after (TOP);
877 break; 877 break;
878 878
879 case Bfollowing_char: 879 case Bfollowing_char:
880 XFASTINT (v1) = PT == ZV ? 0 : FETCH_CHAR (point); 880 XSETFASTINT (v1, PT == ZV ? 0 : FETCH_CHAR (point));
881 PUSH (v1); 881 PUSH (v1);
882 break; 882 break;
883 883
884 case Bpreceding_char: 884 case Bpreceding_char:
885 XFASTINT (v1) = point <= BEGV ? 0 : FETCH_CHAR (point - 1); 885 XSETFASTINT (v1, point <= BEGV ? 0 : FETCH_CHAR (point - 1));
886 PUSH (v1); 886 PUSH (v1);
887 break; 887 break;
888 888
889 case Bcurrent_column: 889 case Bcurrent_column:
890 XFASTINT (v1) = current_column (); 890 XSETFASTINT (v1, current_column ());
891 PUSH (v1); 891 PUSH (v1);
892 break; 892 break;
893 893
894 case Bindent_to: 894 case Bindent_to:
895 TOP = Findent_to (TOP, Qnil); 895 TOP = Findent_to (TOP, Qnil);
950 TOP = Fforward_line (TOP); 950 TOP = Fforward_line (TOP);
951 break; 951 break;
952 952
953 case Bchar_syntax: 953 case Bchar_syntax:
954 CHECK_NUMBER (TOP, 0); 954 CHECK_NUMBER (TOP, 0);
955 XFASTINT (TOP) = syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]; 955 XSETFASTINT (TOP,
956 syntax_code_spec[(int) SYNTAX (0xFF & XINT (TOP))]);
956 break; 957 break;
957 958
958 case Bbuffer_substring: 959 case Bbuffer_substring:
959 v1 = POP; 960 v1 = POP;
960 TOP = Fbuffer_substring (TOP, v1); 961 TOP = Fbuffer_substring (TOP, v1);