From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 25 May 2019 09:17:01 +0000 (+0200)
Subject: add stuffs
X-Git-Tag: emacs-28.0.90~2727^2~1515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d234e9bc8ae3c8ea1ecb82970a4fd1fd89850249;p=emacs.git

add stuffs
---

diff --git a/src/comp.c b/src/comp.c
index 08cdf29f9f3..8cf3131daea 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -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 */