[Emacs-diffs] Changes to emacs/src/bytecode.c [lexbind]

[Miles Bader]

Index: emacs/src/bytecode.c
diff -c emacs/src/bytecode.c:1.69.2.5 emacs/src/bytecode.c:1.69.2.6
*** emacs/src/bytecode.c:1.69.2.5       Sat Sep  4 09:26:24 2004
--- emacs/src/bytecode.c        Thu Sep 16 00:15:00 2004
***************
*** 1,5 ****
  /* Execution of byte code produced by bytecomp.el.
!    Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
--- 1,5 ----
  /* Execution of byte code produced by bytecomp.el.
!    Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
***************
*** 396,401 ****
--- 396,402 ----
        Vquit_flag = Qnil;                              \
          BEFORE_POTENTIAL_GC ();                               \
        Fsignal (Qquit, Qnil);                          \
+       AFTER_POTENTIAL_GC ();                          \
        }                                                       \
    } while (0)
  
***************
*** 606,614 ****
              TOP = Qnil;
            else
              {
!               BEFORE_POTENTIAL_GC ();
!               Fcar (wrong_type_argument (Qlistp, v1));
!               AFTER_POTENTIAL_GC ();
              }
            break;
          }
--- 607,613 ----
              TOP = Qnil;
            else
              {
!               wrong_type_argument (Qlistp, v1);
              }
            break;
          }
***************
*** 641,649 ****
              TOP = Qnil;
            else
              {
!               BEFORE_POTENTIAL_GC ();
!               Fcdr (wrong_type_argument (Qlistp, v1));
!               AFTER_POTENTIAL_GC ();
              }
            break;
          }
--- 640,646 ----
              TOP = Qnil;
            else
              {
!               wrong_type_argument (Qlistp, v1);
              }
            break;
          }
***************
*** 974,984 ****
                else if (!NILP (v1))
                  {
                    immediate_quit = 0;
!                   BEFORE_POTENTIAL_GC ();
!                   v1 = wrong_type_argument (Qlistp, v1);
!                   AFTER_POTENTIAL_GC ();
!                   immediate_quit = 1;
!                   op++;
                  }
              }
            immediate_quit = 0;
--- 971,977 ----
                else if (!NILP (v1))
                  {
                    immediate_quit = 0;
!                   wrong_type_argument (Qlistp, v1);
                  }
              }
            immediate_quit = 0;
***************
*** 987,997 ****
            else if (NILP (v1))
              TOP = Qnil;
            else
!             {
!               BEFORE_POTENTIAL_GC ();
!               Fcar (wrong_type_argument (Qlistp, v1));
!               AFTER_POTENTIAL_GC ();
!             }
            break;
          }
  
--- 980,986 ----
            else if (NILP (v1))
              TOP = Qnil;
            else
!             wrong_type_argument (Qlistp, v1);
            break;
          }
  
***************
*** 1621,1631 ****
                    else if (!NILP (v1))
                      {
                        immediate_quit = 0;
!                       BEFORE_POTENTIAL_GC ();
!                       v1 = wrong_type_argument (Qlistp, v1);
!                       AFTER_POTENTIAL_GC ();
!                       immediate_quit = 1;
!                       op++;
                      }
                  }
                immediate_quit = 0;
--- 1610,1616 ----
                    else if (!NILP (v1))
                      {
                        immediate_quit = 0;
!                       wrong_type_argument (Qlistp, v1);
                      }
                  }
                immediate_quit = 0;
***************
*** 1634,1644 ****
                else if (NILP (v1))
                  TOP = Qnil;
                else
!                 {
!                   BEFORE_POTENTIAL_GC ();
!                   Fcar (wrong_type_argument (Qlistp, v1));
!                   AFTER_POTENTIAL_GC ();
!                 }
              }
            else
              {
--- 1619,1625 ----
                else if (NILP (v1))
                  TOP = Qnil;
                else
!                 wrong_type_argument (Qlistp, v1);
              }
            else
              {