/[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.63 by pj, Sat Oct 20 15:09:27 2001 UTC revision 1.64 by pj, Fri Nov 2 20:17:05 2001 UTC
# Line 447  If the third argument is incorrect, Emac Line 447  If the third argument is incorrect, Emac
447   }   }
448  #endif  #endif
449    
450    CHECK_STRING (bytestr, 0);    CHECK_STRING (bytestr);
451    if (!VECTORP (vector))    if (!VECTORP (vector))
452      vector = wrong_type_argument (Qvectorp, vector);      vector = wrong_type_argument (Qvectorp, vector);
453    CHECK_NUMBER (maxdepth, 2);    CHECK_NUMBER (maxdepth);
454    
455    if (STRING_MULTIBYTE (bytestr))    if (STRING_MULTIBYTE (bytestr))
456      /* BYTESTR must have been produced by Emacs 20.2 or the earlier      /* BYTESTR must have been produced by Emacs 20.2 or the earlier
# Line 895  If the third argument is incorrect, Emac Line 895  If the third argument is incorrect, Emac
895    
896          case Btemp_output_buffer_setup:          case Btemp_output_buffer_setup:
897            BEFORE_POTENTIAL_GC ();            BEFORE_POTENTIAL_GC ();
898            CHECK_STRING (TOP, 0);            CHECK_STRING (TOP);
899            temp_output_buffer_setup (XSTRING (TOP)->data);            temp_output_buffer_setup (XSTRING (TOP)->data);
900            AFTER_POTENTIAL_GC ();            AFTER_POTENTIAL_GC ();
901            TOP = Vstandard_output;            TOP = Vstandard_output;
# Line 920  If the third argument is incorrect, Emac Line 920  If the third argument is incorrect, Emac
920              BEFORE_POTENTIAL_GC ();              BEFORE_POTENTIAL_GC ();
921              v1 = POP;              v1 = POP;
922              v2 = TOP;              v2 = TOP;
923              CHECK_NUMBER (v2, 0);              CHECK_NUMBER (v2);
924              AFTER_POTENTIAL_GC ();              AFTER_POTENTIAL_GC ();
925              op = XINT (v2);              op = XINT (v2);
926              immediate_quit = 1;              immediate_quit = 1;
# Line 1152  If the third argument is incorrect, Emac Line 1152  If the third argument is incorrect, Emac
1152              Lisp_Object v1, v2;              Lisp_Object v1, v2;
1153              BEFORE_POTENTIAL_GC ();              BEFORE_POTENTIAL_GC ();
1154              v2 = POP; v1 = TOP;              v2 = POP; v1 = TOP;
1155              CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);              CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1);
1156              CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);              CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2);
1157              AFTER_POTENTIAL_GC ();              AFTER_POTENTIAL_GC ();
1158              if (FLOATP (v1) || FLOATP (v2))              if (FLOATP (v1) || FLOATP (v2))
1159                {                {
# Line 1434  If the third argument is incorrect, Emac Line 1434  If the third argument is incorrect, Emac
1434    
1435          case Bchar_syntax:          case Bchar_syntax:
1436            BEFORE_POTENTIAL_GC ();            BEFORE_POTENTIAL_GC ();
1437            CHECK_NUMBER (TOP, 0);            CHECK_NUMBER (TOP);
1438            AFTER_POTENTIAL_GC ();            AFTER_POTENTIAL_GC ();
1439            XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]);            XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]);
1440            break;            break;
# Line 1563  If the third argument is incorrect, Emac Line 1563  If the third argument is incorrect, Emac
1563                  BEFORE_POTENTIAL_GC ();                  BEFORE_POTENTIAL_GC ();
1564                  v2 = POP;                  v2 = POP;
1565                  v1 = TOP;                  v1 = TOP;
1566                  CHECK_NUMBER (v2, 0);                  CHECK_NUMBER (v2);
1567                  AFTER_POTENTIAL_GC ();                  AFTER_POTENTIAL_GC ();
1568                  op = XINT (v2);                  op = XINT (v2);
1569                  immediate_quit = 1;                  immediate_quit = 1;

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

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