Mercurial > emacs

comparison src/bytecode.c @ 57099:569cd6a5babd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(BYTE_CODE_QUIT): Add missing AFTER_POTENTIAL_GC. (Fbyte_code): Remove dead code after `wrong_type_argument'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 13 Sep 2004 21:13:38 +0000
parents 349245fdad22
children 79e0dd73c671 566253900690
comparison
equal deleted inserted replaced
57098:0487c26b96ee 57099:569cd6a5babd
1 /* Execution of byte code produced by bytecomp.el. 1 /* Execution of byte code produced by bytecomp.el.
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003 2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
385 if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ 385 if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \
386 { \ 386 { \
387 Vquit_flag = Qnil; \ 387 Vquit_flag = Qnil; \
388 BEFORE_POTENTIAL_GC (); \ 388 BEFORE_POTENTIAL_GC (); \
389 Fsignal (Qquit, Qnil); \ 389 Fsignal (Qquit, Qnil); \
390 AFTER_POTENTIAL_GC (); \
390 } \ 391 } \
391 } while (0) 392 } while (0)
392 393
393 394
394 DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0, 395 DEFUN ("byte-code", Fbyte_code, Sbyte_code, 3, 3, 0,
537 TOP = XCAR (v1); 538 TOP = XCAR (v1);
538 else if (NILP (v1)) 539 else if (NILP (v1))
539 TOP = Qnil; 540 TOP = Qnil;
540 else 541 else
541 { 542 {
542 BEFORE_POTENTIAL_GC (); 543 wrong_type_argument (Qlistp, v1);
543 Fcar (wrong_type_argument (Qlistp, v1));
544 AFTER_POTENTIAL_GC ();
545 } 544 }
546 break; 545 break;
547 } 546 }
548 547
549 case Beq: 548 case Beq:
572 TOP = XCDR (v1); 571 TOP = XCDR (v1);
573 else if (NILP (v1)) 572 else if (NILP (v1))
574 TOP = Qnil; 573 TOP = Qnil;
575 else 574 else
576 { 575 {
577 BEFORE_POTENTIAL_GC (); 576 wrong_type_argument (Qlistp, v1);
578 Fcdr (wrong_type_argument (Qlistp, v1));
579 AFTER_POTENTIAL_GC ();
580 } 577 }
581 break; 578 break;
582 } 579 }
583 580
584 case Bvarset: 581 case Bvarset:
905 if (CONSP (v1)) 902 if (CONSP (v1))
906 v1 = XCDR (v1); 903 v1 = XCDR (v1);
907 else if (!NILP (v1)) 904 else if (!NILP (v1))
908 { 905 {
909 immediate_quit = 0; 906 immediate_quit = 0;
910 BEFORE_POTENTIAL_GC (); 907 wrong_type_argument (Qlistp, v1);
911 v1 = wrong_type_argument (Qlistp, v1);
912 AFTER_POTENTIAL_GC ();
913 immediate_quit = 1;
914 op++;
915 } 908 }
916 } 909 }
917 immediate_quit = 0; 910 immediate_quit = 0;
918 if (CONSP (v1)) 911 if (CONSP (v1))
919 TOP = XCAR (v1); 912 TOP = XCAR (v1);
920 else if (NILP (v1)) 913 else if (NILP (v1))
921 TOP = Qnil; 914 TOP = Qnil;
922 else 915 else
923 { 916 wrong_type_argument (Qlistp, v1);
924 BEFORE_POTENTIAL_GC ();
925 Fcar (wrong_type_argument (Qlistp, v1));
926 AFTER_POTENTIAL_GC ();
927 }
928 break; 917 break;
929 } 918 }
930 919
931 case Bsymbolp: 920 case Bsymbolp:
932 TOP = SYMBOLP (TOP) ? Qt : Qnil; 921 TOP = SYMBOLP (TOP) ? Qt : Qnil;
1552 if (CONSP (v1)) 1541 if (CONSP (v1))
1553 v1 = XCDR (v1); 1542 v1 = XCDR (v1);
1554 else if (!NILP (v1)) 1543 else if (!NILP (v1))
1555 { 1544 {
1556 immediate_quit = 0; 1545 immediate_quit = 0;
1557 BEFORE_POTENTIAL_GC (); 1546 wrong_type_argument (Qlistp, v1);
1558 v1 = wrong_type_argument (Qlistp, v1);
1559 AFTER_POTENTIAL_GC ();
1560 immediate_quit = 1;
1561 op++;
1562 } 1547 }
1563 } 1548 }
1564 immediate_quit = 0; 1549 immediate_quit = 0;
1565 if (CONSP (v1)) 1550 if (CONSP (v1))
1566 TOP = XCAR (v1); 1551 TOP = XCAR (v1);
1567 else if (NILP (v1)) 1552 else if (NILP (v1))
1568 TOP = Qnil; 1553 TOP = Qnil;
1569 else 1554 else
1570 { 1555 wrong_type_argument (Qlistp, v1);
1571 BEFORE_POTENTIAL_GC ();
1572 Fcar (wrong_type_argument (Qlistp, v1));
1573 AFTER_POTENTIAL_GC ();
1574 }
1575 } 1556 }
1576 else 1557 else
1577 { 1558 {
1578 BEFORE_POTENTIAL_GC (); 1559 BEFORE_POTENTIAL_GC ();
1579 v1 = POP; 1560 v1 = POP;