wip

ollef · Jun 17, 2024 · 49df287 · 49df287
1 parent 0b5ab02
commit 49df287
Show file tree

Hide file tree

Showing 2 changed files with 294 additions and 128 deletions.
diff --git a/src/Lower.hs b/src/Lower.hs
@@ -683,10 +683,10 @@ readback env = \case
   HeapAllocate con repr -> Low.Syntax.HeapAllocate con $ readbackOperand env repr
   HeapPayload operand -> Low.Syntax.HeapPayload $ readbackOperand env operand
   PointerTag operand -> Low.Syntax.PointerTag $ readbackOperand env operand
-  Offset offset operand ->
+  Offset base offset ->
     Low.Syntax.Offset
+      (readbackOperand env base)
       (readbackOperand env offset)
-      (readbackOperand env operand)
   Copy dst src size ->
     Low.Syntax.Copy
       (readbackOperand env dst)