/[emacs]/emacs/src/bytecode.c
ViewVC logotype

Diff of /emacs/src/bytecode.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.77.2.3 by miles, Fri Aug 27 07:00:31 2004 UTC revision 1.77.2.4 by miles, Wed Sep 15 09:00:00 2004 UTC
# Line 1  Line 1 
1  /* Execution of byte code produced by bytecomp.el.  /* Execution of byte code produced by bytecomp.el.
2     Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003     Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004
3     Free Software Foundation, Inc.     Free Software Foundation, Inc.
4    
5  This file is part of GNU Emacs.  This file is part of GNU Emacs.
# Line 387  unmark_byte_stack () Line 387  unmark_byte_stack ()
387          Vquit_flag = Qnil;                              \          Vquit_flag = Qnil;                              \
388          BEFORE_POTENTIAL_GC ();                         \          BEFORE_POTENTIAL_GC ();                         \
389          Fsignal (Qquit, Qnil);                          \          Fsignal (Qquit, Qnil);                          \
390            AFTER_POTENTIAL_GC ();                          \
391        }                                                 \        }                                                 \
392    } while (0)    } while (0)
393    
# Line 539  If the third argument is incorrect, Emac Line 540  If the third argument is incorrect, Emac
540                TOP = Qnil;                TOP = Qnil;
541              else              else
542                {                {
543                  BEFORE_POTENTIAL_GC ();                  wrong_type_argument (Qlistp, v1);
                 Fcar (wrong_type_argument (Qlistp, v1));  
                 AFTER_POTENTIAL_GC ();  
544                }                }
545              break;              break;
546            }            }
# Line 574  If the third argument is incorrect, Emac Line 573  If the third argument is incorrect, Emac
573                TOP = Qnil;                TOP = Qnil;
574              else              else
575                {                {
576                  BEFORE_POTENTIAL_GC ();                  wrong_type_argument (Qlistp, v1);
                 Fcdr (wrong_type_argument (Qlistp, v1));  
                 AFTER_POTENTIAL_GC ();  
577                }                }
578              break;              break;
579            }            }
# Line 907  If the third argument is incorrect, Emac Line 904  If the third argument is incorrect, Emac
904                  else if (!NILP (v1))                  else if (!NILP (v1))
905                    {                    {
906                      immediate_quit = 0;                      immediate_quit = 0;
907                      BEFORE_POTENTIAL_GC ();                      wrong_type_argument (Qlistp, v1);
                     v1 = wrong_type_argument (Qlistp, v1);  
                     AFTER_POTENTIAL_GC ();  
                     immediate_quit = 1;  
                     op++;  
908                    }                    }
909                }                }
910              immediate_quit = 0;              immediate_quit = 0;
# Line 920  If the third argument is incorrect, Emac Line 913  If the third argument is incorrect, Emac
913              else if (NILP (v1))              else if (NILP (v1))
914                TOP = Qnil;                TOP = Qnil;
915              else              else
916                {                wrong_type_argument (Qlistp, v1);
                 BEFORE_POTENTIAL_GC ();  
                 Fcar (wrong_type_argument (Qlistp, v1));  
                 AFTER_POTENTIAL_GC ();  
               }  
917              break;              break;
918            }            }
919    
# Line 1561  If the third argument is incorrect, Emac Line 1550  If the third argument is incorrect, Emac
1550                      else if (!NILP (v1))                      else if (!NILP (v1))
1551                        {                        {
1552                          immediate_quit = 0;                          immediate_quit = 0;
1553                          BEFORE_POTENTIAL_GC ();                          wrong_type_argument (Qlistp, v1);
                         v1 = wrong_type_argument (Qlistp, v1);  
                         AFTER_POTENTIAL_GC ();  
                         immediate_quit = 1;  
                         op++;  
1554                        }                        }
1555                    }                    }
1556                  immediate_quit = 0;                  immediate_quit = 0;
# Line 1574  If the third argument is incorrect, Emac Line 1559  If the third argument is incorrect, Emac
1559                  else if (NILP (v1))                  else if (NILP (v1))
1560                    TOP = Qnil;                    TOP = Qnil;
1561                  else                  else
1562                    {                    wrong_type_argument (Qlistp, v1);
                     BEFORE_POTENTIAL_GC ();  
                     Fcar (wrong_type_argument (Qlistp, v1));  
                     AFTER_POTENTIAL_GC ();  
                   }  
1563                }                }
1564              else              else
1565                {                {

Legend:
Removed from v.1.77.2.3  
changed lines
  Added in v.1.77.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26