mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 05:22:04 -08:00
Code Issues Projects Releases Wiki Activity

add stuffs

Browse source
This commit is contained in:
Andrea Corallo 2019-05-25 11:17:01 +02:00 • committed by Andrea Corallo
parent 70fc2a742d
commit d234e9bc8a
1 changed files with 40 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

48
src/comp.c
View file

@ -539,7 +539,7 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
comp.ptrdiff_type,
op);
res = gcc_emit_call ("unbind_n", comp.lisp_obj_type, 1, args);
gcc_emit_call ("helper_unbind_n", comp.lisp_obj_type, 1, args);
}
break;
case Bpophandler:
@ -801,16 +801,30 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
gcc_emit_call ("helper_unwind_protect", comp.void_type, 1, args);
break;
case Bcondition_case:
error ("Bcondition_case not supported");
case Bcondition_case: /* Obsolete since 24.4. */
POP3;
gcc_emit_call ("internal_lisp_condition_case",
comp.lisp_obj_type, 3, args);
break;
case Btemp_output_buffer_setup:
error ("Btemp_output_buffer_setup not supported");
case Btemp_output_buffer_setup: /* Obsolete since 24.1. */
POP1;
res = gcc_emit_call ("helper_temp_output_buffer_setup", comp.lisp_obj_type,
1, args);
PUSH (gcc_jit_lvalue_as_rvalue (res));
break;
case Btemp_output_buffer_show:
error ("Btemp_output_buffer_show not supported");
case Btemp_output_buffer_show: /* Obsolete since 24.1. */
POP2;
gcc_emit_call ("temp_output_buffer_show", comp.void_type, 1,
&args[1]);
PUSH (args[0]);
gcc_emit_call ("helper_unbind_n", comp.lisp_obj_type, 1, args);
break;
case Bunbind_all:
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. */
error ("Bunbind_all not supported");
break;
case Bset_marker:
@ -1156,6 +1170,10 @@ Lisp_Object helper_save_window_excursion (Lisp_Object v1);
void helper_unwind_protect (Lisp_Object handler);
Lisp_Object helper_temp_output_buffer_setup (Lisp_Object x);
Lisp_Object helper_unbind_n (int val);
Lisp_Object
helper_save_window_excursion (Lisp_Object v1)
{
@ -1174,4 +1192,18 @@ void helper_unwind_protect (Lisp_Object handler)
handler);
}
Lisp_Object
helper_temp_output_buffer_setup (Lisp_Object x)
{
CHECK_STRING (x);
temp_output_buffer_setup (SSDATA (x));
return Vstandard_output;
}
Lisp_Object
helper_unbind_n (int val)
{
return unbind_to (SPECPDL_INDEX () - val, Qnil);
}
#endif /* HAVE_LIBJIT */