X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fx86%2Fassem-rtns.lisp;h=5d7d0293bceb35d0379ee329d279f5f8fd5e2368;hb=71c1aff9923ecec1b55fdc48a3a2f149e9e7da68;hp=ef71ad2e25bd72dd08a566c95bb12ae5774dd2ac;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/assembly/x86/assem-rtns.lisp b/src/assembly/x86/assem-rtns.lisp
index ef71ad2..5d7d029 100644
--- 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)