(apply max sizes)))
(case type
- ['Int wordsize]
- ['Bool wordsize]
+ ['int wordsize]
+ ['bool wordsize]
[else
(let ([adt (assoc type data-layouts)])
(if adt
(map cdr stack-sizes)))]
; 0 2 6 8 16
[relative-offsets (map - totals (map cdr stack-sizes))]
- [absolute-offsets (map (lambda (x) (- si x)) b)])
+ [absolute-offsets (map (lambda (x) (- si x)) relative-offsets)])
(map cons (map car stack-sizes) absolute-offsets)))
(let* (