a

2026-05-16 10:26:11 -06:00
parent 466e2a38a9
commit f5536ca2e2
7 changed files with 24 additions and 11 deletions
--- a/app/Gyehoek/ANF/Syntax.hs
+++ b/app/Gyehoek/ANF/Syntax.hs
@@ -410,7 +410,7 @@ lowerCdr
 lowerCdr r x e k = do
  x1 <- gensym
  Emit [ QBE.BinaryOp (x1 QBE.:= QBE.Long)
-         QBE.Add x (lowerInt' (sizeofScm `quot` 2))
+         QBE.Add x (lowerInt' sizeofScm)
       , QBE.Load (lowerName r QBE.:= QBE.Long) QBE.Long
         (QBE.ValTemporary x1)
       ]