X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/a83f1d602c6f50eb9ab0448a20f0ecb80fefcead..5c90fbb8681e975ccd0a1bc407b31daa1daef38a:/codegen/solidify.sml

diff --git a/codegen/solidify.sml b/codegen/solidify.sml
index a2622e1..db3ccea 100644
--- a/codegen/solidify.sml
+++ b/codegen/solidify.sml
@@ -183,6 +183,11 @@ struct
             (if isspilled op1
              then spill (op1, spillreg1)
              else [])
+        | transform (X.INSN (pred, X.MOVSTR (op1, w))) =
+            [ X.INSN (pred, X.MOVSTR (real_op1 op1, w)) ] @
+            (if isspilled op1
+             then spill (op1, spillreg1)
+             else [])
         | transform (X.INSN (pred, X.MOVLBL (op1, w))) =
             [ X.INSN (pred, X.MOVLBL (real_op1 op1, w)) ] @
             (if isspilled op1