Smaller initial stack frame size on x86oids

Now that copy-more-arg is fixed, stack frames can be initialised
at 3 slots (some raw constants in the codegen seems to depend on
each frame spanning at least that many slot).

diff --git a/src/compiler/x86-64/vm.lisp b/src/compiler/x86-64/vm.lisp
index 2538e49..71fff66 100644 (file)
--- 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 4 :size-increment 1)
+(define-storage-base stack :unbounded :size 3 :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 39924ff..7cc96e8 100644 (file)
--- 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 4 :size-increment 1)
+(define-storage-base stack :unbounded :size 3 :size-increment 1)
 (define-storage-base constant :non-packed)
 (define-storage-base immediate-constant :non-packed)
 (define-storage-base noise :unbounded :size 2)