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.c-types alien.syntax ;
   4 IN: vm
   5
   6 TYPEDEF: void* cell
   7 TYPEDEF: void* context*
   8
   9 STRUCT: zone
  10     { start cell }
  11     { here cell }
  12     { size cell }
  13     { end cell } ;
  14
  15 STRUCT: vm
  16     { stack_chain context* }
  17     { nursery zone }
  18     { cards_offset cell }
  19     { decks_offset cell }
  20     { userenv cell[70] } ;
  21
  22 : vm-field-offset ( field -- offset ) vm offset-of ; inline