compiler.cfg.build-stack-frame.tests: improved fix for the test case

db4
Björn Lindqvist 2014-11-24 03:42:27 +01:00
parent 4306180c11
commit 9b7a873f6d
1 changed files with 23 additions and 42 deletions

View File

@ -1,44 +1,25 @@
USING: accessors combinators.short-circuit compiler.cfg
compiler.cfg.build-stack-frame compiler.cfg.instructions
compiler.cfg.stack-frame kernel layouts slots.syntax system
tools.test ;
USING: accessors compiler.cfg compiler.cfg.build-stack-frame
compiler.cfg.instructions compiler.cfg.stack-frame cpu.x86 kernel layouts
math slots.syntax system tools.test ;
IN: compiler.cfg.build-stack-frame.tests
{ [ os windows? ] [ cell-bits 64 = ] } 0&& [
{
! 91 8 align
96
! 91 8 align 16 +
112
! XXX: Calculation is wrong for Windows 64 (off by 32 bytes)
! 91 8 align 16 + 16 8 align + cell + 16 align
176
} [
T{ stack-frame
{ params 91 }
{ allot-area-align 8 }
{ allot-area-size 10 }
{ spill-area-align 8 }
{ spill-area-size 16 }
} dup finalize-stack-frame
slots[ allot-area-base spill-area-base total-size ]
] unit-test
] [
{
! 91 8 align
96
! 91 8 align 16 +
112
! 91 8 align 16 + 16 8 align + cell + 16 align
144
} [
T{ stack-frame
{ params 91 }
{ allot-area-align 8 }
{ allot-area-size 10 }
{ spill-area-align 8 }
{ spill-area-size 16 }
} dup finalize-stack-frame
slots[ allot-area-base spill-area-base total-size ]
] unit-test
] if
{
! 91 8 align
96
! 91 8 align 16 +
112
! 91 8 align 16 + 16 8 align + cell + 16 align
144
} [
T{ stack-frame
{ params 91 }
{ allot-area-align 8 }
{ allot-area-size 10 }
{ spill-area-align 8 }
{ spill-area-size 16 }
} dup finalize-stack-frame
slots[ allot-area-base spill-area-base total-size ]
! Exclude any reserved stack space 32 bytes on win64, 0 bytes
! on all other platforms.
reserved-stack-space -
] unit-test