23 lines
475 B
Factor
23 lines
475 B
Factor
! Copyright (C) 2009 Phil Dawes.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: classes.struct alien.c-types alien.syntax ;
|
|
IN: vm
|
|
|
|
TYPEDEF: void* cell
|
|
C-TYPE: context
|
|
|
|
STRUCT: zone
|
|
{ start cell }
|
|
{ here cell }
|
|
{ size cell }
|
|
{ end cell } ;
|
|
|
|
STRUCT: vm
|
|
{ stack_chain context* }
|
|
{ nursery zone }
|
|
{ cards_offset cell }
|
|
{ decks_offset cell }
|
|
{ userenv cell[70] } ;
|
|
|
|
: vm-field-offset ( field -- offset ) vm offset-of ; inline
|