From 3b98d369be67b42cbd823af9c6df55ac9601bfa9 Mon Sep 17 00:00:00 2001 From: Paul Khuong Date: Thu, 27 Jun 2013 18:46:52 -0400 Subject: [PATCH] Smaller stack frames on x86oids Start at 4 slots (for some reason, it seems that 3 isn't really the minimum, and grows by one slot at a time. --- src/compiler/x86-64/vm.lisp | 2 +- src/compiler/x86/vm.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/x86-64/vm.lisp b/src/compiler/x86-64/vm.lisp index aa1c77b..2538e49 100644 --- a/src/compiler/x86-64/vm.lisp +++ b/src/compiler/x86-64/vm.lisp @@ -187,7 +187,7 @@ (define-storage-base float-registers :finite :size 16) -(define-storage-base stack :unbounded :size 8) +(define-storage-base stack :unbounded :size 4 :size-increment 1) (define-storage-base constant :non-packed) (define-storage-base immediate-constant :non-packed) (define-storage-base noise :unbounded :size 2) diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp index 72c25aa..39924ff 100644 --- a/src/compiler/x86/vm.lisp +++ b/src/compiler/x86/vm.lisp @@ -118,7 +118,7 @@ ;;; the new way: (define-storage-base float-registers :finite :size 8) -(define-storage-base stack :unbounded :size 8) +(define-storage-base stack :unbounded :size 4 :size-increment 1) (define-storage-base constant :non-packed) (define-storage-base immediate-constant :non-packed) (define-storage-base noise :unbounded :size 2) -- 1.7.10.4