diff --git a/src/bytecode.c b/src/bytecode.c index 40977799bf..17c4716fe0 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -656,6 +656,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, CASE (Bunbind_all): /* Obsolete. Never used. */ /* To unbind back to the beginning of this frame. Not used yet, but will be needed for tail-recursion elimination. */ + __attribute__((cold, unused)); unbind_to (count, Qnil); NEXT; @@ -749,6 +750,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, NEXT; CASE (Bsave_window_excursion): /* Obsolete since 24.1. */ + ATTRIBUTE_COLD; { ptrdiff_t count1 = SPECPDL_INDEX (); record_unwind_protect (restore_window_configuration, @@ -808,6 +810,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, } CASE (Bcondition_case): /* Obsolete since 24.4. */ + ATTRIBUTE_COLD; { Lisp_Object handlers = POP, body = POP; TOP = internal_lisp_condition_case (TOP, body, handlers); @@ -815,12 +818,14 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, } CASE (Btemp_output_buffer_setup): /* Obsolete since 24.1. */ + ATTRIBUTE_COLD; CHECK_STRING (TOP); temp_output_buffer_setup (SSDATA (TOP)); TOP = Vstandard_output; NEXT; CASE (Btemp_output_buffer_show): /* Obsolete since 24.1. */ + ATTRIBUTE_COLD; { Lisp_Object v1 = POP; temp_output_buffer_show (TOP); @@ -1138,6 +1143,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, NEXT; CASE (Binteractive_p): /* Obsolete since 24.1. */ + ATTRIBUTE_COLD; PUSH (call0 (intern ("interactive-p"))); NEXT; @@ -1342,6 +1348,7 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth, /* Actually this is Bstack_ref with offset 0, but we use Bdup for that instead. */ /* CASE (Bstack_ref): */ + ATTRIBUTE_COLD; error ("Invalid byte opcode: op=%d, ptr=%"pD"d", op, pc - 1 - bytestr_data);