0.9.3.63:

[sbcl.git] / src / assembly / x86 / assem-rtns.lisp

diff --git a/src/assembly/x86/assem-rtns.lisp b/src/assembly/x86/assem-rtns.lisp
index ef71ad2..5d7d029 100644 (file)
--- a/src/assembly/x86/assem-rtns.lisp
+++ b/src/assembly/x86/assem-rtns.lisp
@@ -55,6 +55,9 @@
   (inst rep)
   (inst movs :dword)
 
+  ;; solaris requires DF being zero.
+  #!+sunos (inst cld)
+
   ;; Restore the count.
   (inst mov ecx edx)
 
@@ -147,6 +150,9 @@
   (inst rep)
   (inst movs :dword)
 
+  ;; solaris requires DF being zero.
+  #!+sunos (inst cld)
+
   ;; Load the register arguments carefully.
   (loadw edx ebp-tn -1)