X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fnlx.lisp;h=f1ecca514bd1a2bbda4d72d813d617940c05e4bd;hb=1831934a29eb9361472e4f49efbcd5398392a6b0;hp=862688f9ee01f19a1a3433511509f86c885536ee;hpb=0d871fd7a98fc4af92a8b942a1154761466ad8c9;p=sbcl.git

diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp
index 862688f..f1ecca5 100644
--- a/src/compiler/x86/nlx.lisp
+++ b/src/compiler/x86/nlx.lisp
@@ -214,6 +214,8 @@
     (inst movs :dword)
 
     DONE
+    ;; solaris requires DF being zero.
+    #!+sunos (inst cld)
     ;; Reset the CSP at last moved arg.
     (inst lea esp-tn (make-ea :dword :base edi :disp n-word-bytes))))