2015-08-17 05:37:24 -04:00
|
|
|
USING: accessors classes.struct kernel kernel.private math math.order
|
2015-08-14 17:20:21 -04:00
|
|
|
tools.test ;
|
|
|
|
|
QUALIFIED: vm
|
|
|
|
|
IN: vm.tests
|
|
|
|
|
|
|
|
|
|
: get-ctx ( -- ctx )
|
|
|
|
|
context vm:context memory>struct ;
|
|
|
|
|
|
|
|
|
|
{ t } [
|
|
|
|
|
get-ctx [ callstack-bottom>> ] [ callstack-top>> ] bi - 0 >
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
{ t } [
|
|
|
|
|
! Callstack is in the callstack segment
|
|
|
|
|
get-ctx [ callstack-top>> ] [
|
|
|
|
|
callstack-seg>> [ start>> ] [ end>> ] bi
|
|
|
|
|
] bi between?
|
|
|
|
|
] unit-test
|
