X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fldso-stubs.S;h=5e3351d09d88e911cfcd40d991900095005a53b5;hb=7f0f521aa3f6b45259c5dfd5f7f11adcd1a7cac6;hp=35568f2ab6b16b23552b5382f9bcc13f46a23f16;hpb=9a241987c408980164f71237f7d840265302bbc1;p=sbcl.git

diff --git a/src/runtime/ldso-stubs.S b/src/runtime/ldso-stubs.S
index 35568f2..5e3351d 100644
--- a/src/runtime/ldso-stubs.S
+++ b/src/runtime/ldso-stubs.S
@@ -42,10 +42,6 @@ ldso_stub__ ## fct: ;                           \
 	.size	 ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
 
 #elif defined alpha
-	
-	/* I _hope_ this is correct - I haven't checked in the manual
- 	 * yet.  It works to the point of building and passing tests,
-	 * at any rate     - dan 2001.05.10 */
 #define LDSO_STUBIFY(fct)                       \
 .globl ldso_stub__ ## fct ;                     \
 	.type	 ldso_stub__ ## fct,@function ; \
@@ -53,6 +49,29 @@ ldso_stub__ ## fct: ;                           \
 	jmp fct ;                               \
 .L ## fct ## e1: ;                              \
 	.size	 ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
+
+#elif defined ppc
+#define LDSO_STUBIFY(fct)                       \
+.globl ldso_stub__ ## fct ;                     \
+	.type    ldso_stub__ ## fct,@function ; \
+ldso_stub__ ## fct: ;                           \
+        b fct ;                                 \
+.L ## fct ## e1: ;                              \
+        .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
+	
+#elif defined sparc
+	
+	/* This is an attempt to follow DB's hint of sbcl-devel
+	 * 2001-09-18. -- CSR */
+#define LDSO_STUBIFY(fct)                       \
+.globl ldso_stub__ ## fct ;                     \
+	.type	 ldso_stub__ ## fct,@function ; \
+ldso_stub__ ## fct: ;                           \
+	sethi %hi(fct),%g1	;		\
+	jmpl %g1+%lo(fct),%g0	;		\
+	nop /* delay slot*/	;		\
+.L ## fct ## e1: ;                              \
+	.size	 ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;
 	
 #else
 #error unsupported CPU architecture
@@ -138,7 +157,9 @@ ldso_stub__ ## fct: ;                           \
  LDSO_STUBIFY(send)
  LDSO_STUBIFY(setitimer)
  LDSO_STUBIFY(setpgrp)
+#if !defined(SVR4)
  LDSO_STUBIFY(sigsetmask)
+#endif
  LDSO_STUBIFY(sinh)
  LDSO_STUBIFY(socket)
  LDSO_STUBIFY(stat)
@@ -179,4 +200,8 @@ ldso_stub__ ## fct: ;                           \
  LDSO_STUBIFY(log) 
  LDSO_STUBIFY(log10) 
  LDSO_STUBIFY(sqrt) 
-#endif
\ No newline at end of file
+#endif
+#if defined alpha
+ LDSO_STUBIFY(ieee_get_fp_control)
+ LDSO_STUBIFY(ieee_set_fp_control)
+#endif