20 lines
580 B
Factor
20 lines
580 B
Factor
USING: compiler.cfg.instructions compiler.cfg.stack-frame kernel namespaces
|
|
system tools.test ;
|
|
IN: cpu.architecture
|
|
|
|
cpu x86.64? [
|
|
! The offset is 1, not 0 because the return address occupies the
|
|
! first position in the stack frame.
|
|
{ 1 } [
|
|
T{ stack-frame { spill-area-base 0 } } stack-frame [
|
|
T{ spill-slot { n 0 } } gc-root-offset
|
|
] with-variable
|
|
] unit-test
|
|
|
|
{ 10 } [
|
|
T{ stack-frame { spill-area-base 64 } } stack-frame [
|
|
T{ spill-slot { n 8 } } gc-root-offset
|
|
] with-variable
|
|
] unit-test
|
|
] when
|