Mercurial > emacs

comparison src/bytecode.c @ 40656:cdfd4d09b79a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update usage of CHECK_ macros (remove unused second argument).
author Pavel Janík <Pavel@Janik.cz>
date Fri, 02 Nov 2001 20:46:55 +0000
parents 50a6007a6ee4
children c976f86658b6
comparison
equal deleted inserted replaced
40655:45453187feeb 40656:cdfd4d09b79a
445 && FRAME_FONT (f)->direction != 1) 445 && FRAME_FONT (f)->direction != 1)
446 abort (); 446 abort ();
447 } 447 }
448 #endif 448 #endif
449 449
450 CHECK_STRING (bytestr, 0); 450 CHECK_STRING (bytestr);
451 if (!VECTORP (vector)) 451 if (!VECTORP (vector))
452 vector = wrong_type_argument (Qvectorp, vector); 452 vector = wrong_type_argument (Qvectorp, vector);
453 CHECK_NUMBER (maxdepth, 2); 453 CHECK_NUMBER (maxdepth);
454 454
455 if (STRING_MULTIBYTE (bytestr)) 455 if (STRING_MULTIBYTE (bytestr))
456 /* BYTESTR must have been produced by Emacs 20.2 or the earlier 456 /* BYTESTR must have been produced by Emacs 20.2 or the earlier
457 because they produced a raw 8-bit string for byte-code and now 457 because they produced a raw 8-bit string for byte-code and now
458 such a byte-code string is loaded as multibyte while raw 8-bit 458 such a byte-code string is loaded as multibyte while raw 8-bit
893 break; 893 break;
894 } 894 }
895 895
896 case Btemp_output_buffer_setup: 896 case Btemp_output_buffer_setup:
897 BEFORE_POTENTIAL_GC (); 897 BEFORE_POTENTIAL_GC ();
898 CHECK_STRING (TOP, 0); 898 CHECK_STRING (TOP);
899 temp_output_buffer_setup (XSTRING (TOP)->data); 899 temp_output_buffer_setup (XSTRING (TOP)->data);
900 AFTER_POTENTIAL_GC (); 900 AFTER_POTENTIAL_GC ();
901 TOP = Vstandard_output; 901 TOP = Vstandard_output;
902 break; 902 break;
903 903
918 { 918 {
919 Lisp_Object v1, v2; 919 Lisp_Object v1, v2;
920 BEFORE_POTENTIAL_GC (); 920 BEFORE_POTENTIAL_GC ();
921 v1 = POP; 921 v1 = POP;
922 v2 = TOP; 922 v2 = TOP;
923 CHECK_NUMBER (v2, 0); 923 CHECK_NUMBER (v2);
924 AFTER_POTENTIAL_GC (); 924 AFTER_POTENTIAL_GC ();
925 op = XINT (v2); 925 op = XINT (v2);
926 immediate_quit = 1; 926 immediate_quit = 1;
927 while (--op >= 0) 927 while (--op >= 0)
928 { 928 {
1150 case Beqlsign: 1150 case Beqlsign:
1151 { 1151 {
1152 Lisp_Object v1, v2; 1152 Lisp_Object v1, v2;
1153 BEFORE_POTENTIAL_GC (); 1153 BEFORE_POTENTIAL_GC ();
1154 v2 = POP; v1 = TOP; 1154 v2 = POP; v1 = TOP;
1155 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0); 1155 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1);
1156 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0); 1156 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2);
1157 AFTER_POTENTIAL_GC (); 1157 AFTER_POTENTIAL_GC ();
1158 if (FLOATP (v1) || FLOATP (v2)) 1158 if (FLOATP (v1) || FLOATP (v2))
1159 { 1159 {
1160 double f1, f2; 1160 double f1, f2;
1161 1161
1432 AFTER_POTENTIAL_GC (); 1432 AFTER_POTENTIAL_GC ();
1433 break; 1433 break;
1434 1434
1435 case Bchar_syntax: 1435 case Bchar_syntax:
1436 BEFORE_POTENTIAL_GC (); 1436 BEFORE_POTENTIAL_GC ();
1437 CHECK_NUMBER (TOP, 0); 1437 CHECK_NUMBER (TOP);
1438 AFTER_POTENTIAL_GC (); 1438 AFTER_POTENTIAL_GC ();
1439 XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]); 1439 XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
1440 break; 1440 break;
1441 1441
1442 case Bbuffer_substring: 1442 case Bbuffer_substring:
1561 { 1561 {
1562 /* Exchange args and then do nth. */ 1562 /* Exchange args and then do nth. */
1563 BEFORE_POTENTIAL_GC (); 1563 BEFORE_POTENTIAL_GC ();
1564 v2 = POP; 1564 v2 = POP;
1565 v1 = TOP; 1565 v1 = TOP;
1566 CHECK_NUMBER (v2, 0); 1566 CHECK_NUMBER (v2);
1567 AFTER_POTENTIAL_GC (); 1567 AFTER_POTENTIAL_GC ();
1568 op = XINT (v2); 1568 op = XINT (v2);
1569 immediate_quit = 1; 1569 immediate_quit = 1;
1570 while (--op >= 0) 1570 while (--op >= 0)
1571 { 1571 {