1.0.25.16: minor stylistics changes in the runtime

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index fb15c4b..3ed1631 100644 (file)
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -94,7 +94,7 @@ pa_alloc(int bytes, int page_type_flag)
 }
 #endif
 
-lispobj *
+static lispobj *
 alloc_unboxed(int type, int words)
 {
     lispobj *result;

diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c
index 80ddb25..5236a63 100644 (file)
--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -4717,11 +4717,7 @@ general_alloc_internal(long nbytes, int page_type_flag, struct alloc_region *reg
     if ((alloc_signal & FIXNUM_TAG_MASK) == 0) {
         if ((signed long) alloc_signal <= 0) {
             SetSymbolValue(ALLOC_SIGNAL, T, thread);
-#ifdef LISP_FEATURE_SB_THREAD
-            kill_thread_safely(thread->os_thread, SIGPROF);
-#else
-            raise(SIGPROF);
-#endif
+            thread_kill(thread->os_thread, SIGPROF);
         } else {
             SetSymbolValue(ALLOC_SIGNAL,
                            alloc_signal - (1 << N_FIXNUM_TAG_BITS),

diff --git a/src/runtime/globals.c b/src/runtime/globals.c
index 07d56b5..099acd2 100644 (file)
--- a/src/runtime/globals.c
+++ b/src/runtime/globals.c
@@ -43,10 +43,6 @@ lispobj *dynamic_space_free_pointer;
 lispobj *current_auto_gc_trigger;
 #endif
 
-#ifdef LISP_FEATURE_SB_THREAD
-boolean stop_the_world=0;
-#endif
-
 /* For copying GCs, this points to the start of the dynamic space
  * currently in use (that will become the from_space when the next GC
  * is done).  For the GENCGC, it always points to DYNAMIC_SPACE_START. */

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index b563afc..5fd173e 100644 (file)
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -714,7 +714,7 @@ low_level_interrupt_handle_now(int signal, siginfo_t *info,
     /* No FP control fixage needed, caller has done that. */
     check_blockables_blocked_or_lose();
     check_interrupts_enabled_or_lose(context);
-    interrupt_low_level_handlers[signal](signal, info, context);
+    (*interrupt_low_level_handlers[signal])(signal, info, context);
     /* No Darwin context fixage needed, caller does that. */
 }
 

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 6771f81..63b39d7 100644 (file)
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -300,7 +300,7 @@ new_thread_trampoline(struct thread *th)
 #endif
 
     schedule_thread_post_mortem(th);
-    FSHOW((stderr,"/exiting thread %p\n", thread_self()));
+    FSHOW((stderr,"/exiting thread %lu\n", thread_self()));
     return result;
 }
 

diff --git a/version.lisp-expr b/version.lisp-expr
index fea22ae..94714a1 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.25.15"
+"1.0.25.16"