X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fsparc-sunos-os.c;h=fc76ee7931ccc13e84ac18848d1e67b8cc9638df;hb=c8617f57d0413beb2890e94dabe227cef9c5ddad;hp=73440fb13f37cfa5e6800c7f10bde4961a540249;hpb=d767105094f5836327f9389b061f83a44240a279;p=sbcl.git

diff --git a/src/runtime/sparc-sunos-os.c b/src/runtime/sparc-sunos-os.c
index 73440fb..fc76ee7 100644
--- a/src/runtime/sparc-sunos-os.c
+++ b/src/runtime/sparc-sunos-os.c
@@ -17,6 +17,7 @@
 #include <stdio.h>
 #include <sys/param.h>
 #include <sys/file.h>
+#include "sbcl.h"
 #include "./signal.h"
 #include "os.h"
 #include "arch.h"
@@ -24,7 +25,6 @@
 #include "interrupt.h"
 #include "interr.h"
 #include "lispregs.h"
-#include "sbcl.h"
 #include <sys/socket.h>
 #include <sys/utsname.h>
 
@@ -39,14 +39,11 @@
 #ifdef LISP_FEATURE_SB_THREAD
 #error "Define threading support functions"
 #else
-struct thread *arch_os_get_current_thread() {
-    return all_threads;
-}
 int arch_os_thread_init(struct thread *thread) {
-    return 1;			/* success */
+    return 1;                   /* success */
 }
 int arch_os_thread_cleanup(struct thread *thread) {
-    return 1;			/* success */
+    return 1;                   /* success */
 }
 #endif
 
@@ -54,18 +51,18 @@ os_context_register_t   *
 os_context_register_addr(os_context_t *context, int offset)
 {
     if (offset == 0) {
-	static int zero;
-	zero = 0;
-	return &zero;
+        static int zero;
+        zero = 0;
+        return &zero;
     } else if (offset < 16) {
-	return &context->uc_mcontext.gregs[offset+3];
+        return &context->uc_mcontext.gregs[offset+3];
     } else if (offset < 32) {
-	/* FIXME: You know, this (int *) stuff looks decidedly
-	   dubious */
-	int *sp = (int*) context->uc_mcontext.gregs[REG_SP];
-	return &(sp[offset-16]);
+        /* FIXME: You know, this (int *) stuff looks decidedly
+           dubious */
+        int *sp = (int*) context->uc_mcontext.gregs[REG_SP];
+        return &(sp[offset-16]);
     } else {
-	return 0;
+        return 0;
     }
 }