steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.cfg.build-stack-frame: Fix test for win64

db4
Doug Coleman 2014-11-18 14:21:45 -08:00
parent 0fe5b2d90f
commit 46174ab748
1 changed files with 41 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
basis/compiler/cfg/build-stack-frame/build-stack-frame-tests.factor
View File

@ -1,16 +1,19 @@
USING: accessors compiler.cfg compiler.cfg.build-stack-frame USING: accessors combinators.short-circuit compiler.cfg
compiler.cfg.instructions compiler.cfg.stack-frame kernel slots.syntax compiler.cfg.build-stack-frame compiler.cfg.instructions
compiler.cfg.stack-frame kernel layouts slots.syntax system
tools.test ; tools.test ;
IN: compiler.cfg.build-stack-frame.tests IN: compiler.cfg.build-stack-frame.tests
{ { [ os windows? ] [ cell-bits 64 = ] } 0&& [
{
! 91 8 align ! 91 8 align
96 96
! 91 8 align 16 + ! 91 8 align 16 +
112 112
! XXX: Calculation is wrong for Windows 64 (off by 32 bytes)
! 91 8 align 16 + 16 8 align + cell + 16 align ! 91 8 align 16 + 16 8 align + cell + 16 align
144 176
} [ } [
T{ stack-frame T{ stack-frame
{ params 91 } { params 91 }
{ allot-area-align 8 } { allot-area-align 8 }
@ -19,4 +22,23 @@ IN: compiler.cfg.build-stack-frame.tests
{ spill-area-size 16 } { spill-area-size 16 }
} dup finalize-stack-frame } dup finalize-stack-frame
slots[ allot-area-base spill-area-base total-size ] slots[ allot-area-base spill-area-base total-size ]
] unit-test ] 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