Fix caller/callee save impedance mismatch

diff --git a/codegen/solidify.sml b/codegen/solidify.sml
index db3cceae6c53cd9592250ce235bf5c32c466d600..ba3fa897a89afe4d4af422b8771ecdcce79486d9 100644 (file)
--- a/codegen/solidify.sml
+++ b/codegen/solidify.sml
@@ -54,7 +54,8 @@ struct
         X.OperSet.addList (X.OperSet.empty, opsused),
         X.OperSet.addList (
           X.OperSet.empty,
-          [X.REG X.R7,
+          [X.REG X.R6,
+           X.REG X.R7,
            X.REG X.R8,
            X.REG X.R9,
            X.REG X.R10,