Save rcx

Author: Docker

src/X86_64.lama

@@ -429,7 +429,11 @@ fun compile (env, code) {
       case i of
         READ ->
           case env.allocate of
-            [s, env] -> [env, code <+ Call ("Lread") <+ Mov (rax, s)]
+            [s, env] -> [env, code <+
+                Push (rcx) <+ -- Read clobbers rcx
+                Call ("Lread") <+
+                Pop (rcx) <+ -- Restore rcx
+                Mov (rax, s)]
           esac             
       | WRITE ->
           case env.pop of