From: Nikodemus Siivola Date: Mon, 24 Dec 2007 13:59:26 +0000 (+0000) Subject: 1.0.12.44: rename misnamed files in the NetBSD port, hopefully fixing it X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a7f46cfd9620eecf33840d6ffb2669bfd768709d;p=sbcl.git 1.0.12.44: rename misnamed files in the NetBSD port, hopefully fixing it "oops" --- diff --git a/src/runtime/sparc-bsd-os.c b/src/runtime/sparc-bsd-os.c new file mode 100644 index 0000000..3d21d9f --- /dev/null +++ b/src/runtime/sparc-bsd-os.c @@ -0,0 +1,99 @@ +/* + * This is the SPARC BSD incarnation of arch-dependent OS-dependent + * routines. See also "linux-os.c". + */ + +/* + * This software is part of the SBCL system. See the README file for + * more information. + * + * This software is derived from the CMU CL system, which was + * written at Carnegie Mellon University and released into the + * public domain. The software is in the public domain and is + * provided with absolutely no warranty. See the COPYING and CREDITS + * files for more information. + */ + +#include +#include +#include +#include "sbcl.h" +#include "./signal.h" +#include "os.h" +#include "arch.h" +#include "globals.h" +#include "interrupt.h" +#include "interr.h" +#include "lispregs.h" +#include +#include + +#include +#include +#include +#include +#include + +#include "validate.h" + +#ifdef LISP_FEATURE_SB_THREAD +#error "Define threading support functions" +#else +int arch_os_thread_init(struct thread *thread) { + return 1; /* success */ +} +int arch_os_thread_cleanup(struct thread *thread) { + return 1; /* success */ +} +#endif + +os_context_register_t * +os_context_register_addr(os_context_t *context, int offset) +{ + if (offset == 0) { + static int zero; + zero = 0; + return &zero; + } else if (offset < 16) { + return &context->uc_mcontext.__gregs[offset+3]; + } else if (offset < 32) { + /* FIXME: You know, this (int *) stuff looks decidedly + dubious */ + int *sp = (int*) _UC_MACHINE_SP(context); + return &(sp[offset-16]); + } else { + return 0; + } +} + +os_context_register_t * +os_context_pc_addr(os_context_t *context) +{ + return &(context->uc_mcontext.__gregs[_REG_PC]); +} + +os_context_register_t * +os_context_npc_addr(os_context_t *context) +{ + return &(context->uc_mcontext.__gregs[_REG_nPC]); +} + +#ifdef SOLARIS +sigset_t * +os_context_sigmask_addr(os_context_t *context) +{ + return &(context->uc_sigmask); +} +#endif + +unsigned long +os_context_fp_control(os_context_t *context) +{ + return (context->uc_mcontext.__fpregs.__fpu_fsr); +} + +void os_flush_icache(os_vm_address_t address, os_vm_size_t length) +{ + /* see sparc-assem.S */ + sparc_flush_icache(address, length); +} diff --git a/src/runtime/sparc-bsd-os.h b/src/runtime/sparc-bsd-os.h new file mode 100644 index 0000000..84ac8d3 --- /dev/null +++ b/src/runtime/sparc-bsd-os.h @@ -0,0 +1,12 @@ +#ifndef _SPARC_BSD_OS_H +#define _SPARC_BSD_OS_H + +typedef unsigned long os_context_register_t; +#define DARWIN_FIX_CONTEXT(context) + +static inline os_context_t *arch_os_get_context(void **void_context) { + asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */ + return (os_context_t *) (*void_context); +} + +#endif /* _SPARC_BSD_OS_H */ diff --git a/src/runtime/sparc-bsd.c b/src/runtime/sparc-bsd.c deleted file mode 100644 index 3d21d9f..0000000 --- a/src/runtime/sparc-bsd.c +++ /dev/null @@ -1,99 +0,0 @@ -/* - * This is the SPARC BSD incarnation of arch-dependent OS-dependent - * routines. See also "linux-os.c". - */ - -/* - * This software is part of the SBCL system. See the README file for - * more information. - * - * This software is derived from the CMU CL system, which was - * written at Carnegie Mellon University and released into the - * public domain. The software is in the public domain and is - * provided with absolutely no warranty. See the COPYING and CREDITS - * files for more information. - */ - -#include -#include -#include -#include "sbcl.h" -#include "./signal.h" -#include "os.h" -#include "arch.h" -#include "globals.h" -#include "interrupt.h" -#include "interr.h" -#include "lispregs.h" -#include -#include - -#include -#include -#include -#include -#include - -#include "validate.h" - -#ifdef LISP_FEATURE_SB_THREAD -#error "Define threading support functions" -#else -int arch_os_thread_init(struct thread *thread) { - return 1; /* success */ -} -int arch_os_thread_cleanup(struct thread *thread) { - return 1; /* success */ -} -#endif - -os_context_register_t * -os_context_register_addr(os_context_t *context, int offset) -{ - if (offset == 0) { - static int zero; - zero = 0; - return &zero; - } else if (offset < 16) { - return &context->uc_mcontext.__gregs[offset+3]; - } else if (offset < 32) { - /* FIXME: You know, this (int *) stuff looks decidedly - dubious */ - int *sp = (int*) _UC_MACHINE_SP(context); - return &(sp[offset-16]); - } else { - return 0; - } -} - -os_context_register_t * -os_context_pc_addr(os_context_t *context) -{ - return &(context->uc_mcontext.__gregs[_REG_PC]); -} - -os_context_register_t * -os_context_npc_addr(os_context_t *context) -{ - return &(context->uc_mcontext.__gregs[_REG_nPC]); -} - -#ifdef SOLARIS -sigset_t * -os_context_sigmask_addr(os_context_t *context) -{ - return &(context->uc_sigmask); -} -#endif - -unsigned long -os_context_fp_control(os_context_t *context) -{ - return (context->uc_mcontext.__fpregs.__fpu_fsr); -} - -void os_flush_icache(os_vm_address_t address, os_vm_size_t length) -{ - /* see sparc-assem.S */ - sparc_flush_icache(address, length); -} diff --git a/src/runtime/sparc-netbsd.h b/src/runtime/sparc-netbsd.h deleted file mode 100644 index 84ac8d3..0000000 --- a/src/runtime/sparc-netbsd.h +++ /dev/null @@ -1,12 +0,0 @@ -#ifndef _SPARC_BSD_OS_H -#define _SPARC_BSD_OS_H - -typedef unsigned long os_context_register_t; -#define DARWIN_FIX_CONTEXT(context) - -static inline os_context_t *arch_os_get_context(void **void_context) { - asm volatile ("ta 0x03"); /* ta ST_FLUSH_WINDOWS */ - return (os_context_t *) (*void_context); -} - -#endif /* _SPARC_BSD_OS_H */ diff --git a/version.lisp-expr b/version.lisp-expr index 47f6885..764c02a 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.12.43" +"1.0.12.44"