From 8124ddf387451ec95ee4f8e0f726ab234bd8b762 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Thu, 19 Sep 2019 14:29:14 +0200
Subject: [PATCH] dead code removal

---
 src/comp.c | 56 ------------------------------------------------------
 1 file changed, 56 deletions(-)

diff --git a/src/comp.c b/src/comp.c
index ef10c466cf2..9cdb35f1105 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -3008,62 +3008,6 @@ DEFUN ("comp--compile-ctxt-to-file", Fcomp__compile_ctxt_to_file,
   return Qt;
 }
 
-/* DEFUN ("comp-compile-and-load-ctxt", Fcomp_compile_and_load_ctxt, */
-/*        Scomp_compile_and_load_ctxt, */
-/*        0, 1, 0, */
-/*        doc: /\* Compile as native code the current context and load its */
-/* 	       functions.  *\/) */
-/*      (Lisp_Object disassemble) */
-/* { */
-/*   gcc_jit_context_set_int_option (comp.ctxt, */
-/* 				  GCC_JIT_INT_OPTION_OPTIMIZATION_LEVEL, */
-/* 				  comp_speed); */
-/*   /\* Gcc doesn't like being interrupted at all.  *\/ */
-/*   sigset_t oldset; */
-/*   sigset_t blocked; */
-/*   sigemptyset (&blocked); */
-/*   sigaddset (&blocked, SIGALRM); */
-/*   sigaddset (&blocked, SIGINT); */
-/*   sigaddset (&blocked, SIGIO); */
-/*   pthread_sigmask (SIG_BLOCK, &blocked, &oldset); */
-
-/*   if (COMP_DEBUG) */
-/*     gcc_jit_context_dump_to_file (comp.ctxt, "gcc-ctxt-dump.c", 1); */
-/*   gcc_jit_result *gcc_res = gcc_jit_context_compile(comp.ctxt); */
-
-/*   if (!NILP (disassemble)) */
-/*     gcc_jit_context_compile_to_file (comp.ctxt, */
-/* 				     GCC_JIT_OUTPUT_KIND_ASSEMBLER, */
-/* 				     "gcc-ctxt-dump.s"); */
-
-/*   while (CONSP (comp.funcs)) */
-/*     { */
-/*       union Aligned_Lisp_Subr *x = xmalloc (sizeof (union Aligned_Lisp_Subr)); */
-/*       Lisp_Object func = XCAR (comp.funcs); */
-/*       Lisp_Object args = FUNCALL1 (comp-func-args, func); */
-/*       char *symbol_name = */
-/* 	(char *) SDATA (SYMBOL_NAME (FUNCALL1 (comp-func-symbol-name, func))); */
-/*       char *c_name = (char *) SDATA (FUNCALL1 (comp-func-c-func-name, func)); */
-
-/*       x->s.header.size = PVEC_SUBR << PSEUDOVECTOR_AREA_BITS; */
-/*       x->s.function.a0 = gcc_jit_result_get_code(gcc_res, c_name); */
-/*       eassert (x->s.function.a0); */
-/*       x->s.min_args = XFIXNUM (FUNCALL1 (comp-args-base-min, args)); */
-/*       if (FUNCALL1 (comp-args-p, args)) */
-/* 	x->s.max_args = XFIXNUM (FUNCALL1 (comp-args-max, args)); */
-/*       else */
-/* 	x->s.max_args = MANY; */
-/*       x->s.symbol_name = symbol_name; */
-/*       defsubr(x); */
-
-/*       comp.funcs = XCDR (comp.funcs); */
-/*     } */
-
-/*   pthread_sigmask (SIG_SETMASK, &oldset, 0); */
-
-/*   return Qt; */
-/* } */
-
 
 /******************************************************************************/
 /* Helper functions called from the runtime.				      */
-- 
2.39.5