set-string-nth-fast intrinsic was busted

2008-12-05 23:52:09 -06:00 · 2008-12-05 23:52:09 -06:00 · 82cf6530c6
parent 044e2867d5
commit 82cf6530c6
1 changed files with 1 additions and 1 deletions
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@ -391,7 +391,7 @@ M:: x86 %string-nth ( dst src index temp -- )
    ] with-small-register ;

 M:: x86 %set-string-nth-fast ( ch str index temp -- )
-    ch { index str } [| new-ch |
+    ch { index str temp } [| new-ch |
        new-ch ch ?MOV
        temp str index [+] LEA
        temp string-offset [+] new-ch 1 small-reg MOV