basis/vm/vm.factor

   1 ! Copyright (C) 2009 Phil Dawes.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: classes.struct alien.syntax ;
   4 IN: vm
   5
   6 TYPEDEF: void* cell
   7
   8 STRUCT: zone
   9     { start cell }
  10     { here cell }
  11     { size cell }
  12     { end cell } ;
  13
  14 STRUCT: vm
  15     { stack_chain context* }
  16     { nursery zone }
  17     { cards_offset cell }
  18     { decks_offset cell }
  19     { userenv cell[70] } ;
  20
  21 : vm-field-offset ( field -- offset ) vm offset-of ; inline