mescc: Use size 8 for stack.

Reported by  W. J. van der Laan <laanwj@protonmail.com>.

* module/mescc/x86_64/as.scm (x86_64:function-locals): Oops, use size 8.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-11-13 22:21:24 +01:00 committed by Janneke Nieuwenhuizen
parent a1bc54bce8
commit 794935b75d

View file

@ -1,5 +1,5 @@
;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Andrius Štikonas <andrius@stikonas.eu>
;;; Copyright © 2021 W. J. van der Laan <laanwj@protonmail.com>
;;;
@ -69,9 +69,8 @@
(define (x86_64:function-locals . rest)
`(
;; FIXME: how on x86_64?
("sub____$i32,%rsp" (#:immediate ,(+ (* 4 1025) (* 20 8))))
)) ; 4*1024 buf, 20 local vars
("sub____$i32,%rsp" (#:immediate ,(+ (* 8 1025) (* 20 8))))
)) ; 8*1024 buf, 20 local vars
(define (x86_64:r->local info n)
(let ((r (get-r info))