X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fvm.lisp;h=71fff66e8aef6b1d66ce5dfc26222f87c38d0cb6;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=aa1c77b72e7d8fe924016e1e0c98ff39019c9d38;hpb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;p=sbcl.git

diff --git a/src/compiler/x86-64/vm.lisp b/src/compiler/x86-64/vm.lisp
index aa1c77b..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 8)
+(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)