From b5b36522d5398715e53a3c6ca75cf16001ce46ac Mon Sep 17 00:00:00 2001 From: Gabor Melis Date: Mon, 16 Feb 2009 21:28:24 +0000 Subject: [PATCH] 1.0.25.16: minor stylistics changes in the runtime --- src/runtime/alloc.c | 2 +- src/runtime/gencgc.c | 6 +----- src/runtime/globals.c | 4 ---- src/runtime/interrupt.c | 2 +- src/runtime/thread.c | 2 +- version.lisp-expr | 2 +- 6 files changed, 5 insertions(+), 13 deletions(-) diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c index fb15c4b..3ed1631 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4