From: Paul Khuong Date: Sat, 21 Sep 2013 22:34:30 +0000 (-0400) Subject: Smaller initial stack frame size on x86oids X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9b79c4c51954ffc46c631e56547ac865860e8855;p=sbcl.git 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 --- 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 --- 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)