X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fldso-stubs.lisp;h=132c44a9c4a5630ecc2d438a365819adbd4f60eb;hb=ad3beba970fab6e451a461c9f9b14faf4ef17718;hp=500336b4545f29e6296daa2ddad51a706450025b;hpb=fd00d78accb69be3a626a29120ba17a18569b98c;p=sbcl.git

diff --git a/tools-for-build/ldso-stubs.lisp b/tools-for-build/ldso-stubs.lisp
index 500336b..132c44a 100644
--- a/tools-for-build/ldso-stubs.lisp
+++ b/tools-for-build/ldso-stubs.lisp
@@ -46,7 +46,9 @@ ldso_stub__~A: ;                                \\
 /* This is an automatically generated file, please do not hand-edit it.
  * See the program tools-for-build/ldso-stubs.lisp. */
 
+#ifndef LANGUAGE_ASSEMBLY
 #define LANGUAGE_ASSEMBLY
+#endif
 #include \"sbcl.h\""
 
 #!+sparc "
@@ -123,17 +125,19 @@ ldso_stub__ ## fct ## $lazy_ptr:		@\\
 	.type	ldso_stub__ ## fct,@function ; \\
 	.ent	ldso_stub__ ## fct ;           \\
 ldso_stub__ ## fct: ;                  \\
+	.set noat ;                    \\
 	addiu $29,-48 ;                \\
 	sw $28,40($29) ;               \\
 	sw $31,44($29) ;               \\
 	lw $25,64($29) ;               \\
+	lw  $1,68($29) ;               \\
 	sw $25,16($29) ;               \\
-	lw $25,68($29) ;               \\
-	sw $25,20($29) ;               \\
+	sw  $1,20($29) ;               \\
 	lw $25,72($29) ;               \\
+	lw  $1,76($29) ;               \\
 	sw $25,24($29) ;               \\
-	lw $25,76($29) ;               \\
-	sw $25,28($29) ;               \\
+	sw  $1,28($29) ;               \\
+	.set at ;                      \\
 	la $25,	fct ;                  \\
 	jalr $25 ;                     \\
 	lw $31,44($29) ;               \\
@@ -206,6 +210,7 @@ ldso_stub__ ## fct: ;                  \\
                    "malloc"
                    "memmove"
                    "mkdir"
+		   "nanosleep"
                    "nl_langinfo"
                    "open"
                    "opendir"