steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

update vm structs

db4
Joe Groff 2009-09-23 19:42:00 -05:00
parent cba071c969
commit bc5031f96b
1 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
basis/vm/vm.factor
View File

@ -1,23 +1,21 @@
! Copyright (C) 2009 Phil Dawes. ! Copyright (C) 2009 Phil Dawes.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.structs alien.syntax ; USING: classes.struct alien.syntax ;
IN: vm IN: vm
TYPEDEF: void* cell TYPEDEF: void* cell
C-STRUCT: zone STRUCT: zone
{ "cell" "start" } { start cell }
{ "cell" "here" } { here cell }
{ "cell" "size" } { size cell }
{ "cell" "end" } { end cell } ;
;
C-STRUCT: vm STRUCT: vm
{ "context*" "stack_chain" } { stack_chain context* }
{ "zone" "nursery" } { nursery zone }
{ "cell" "cards_offset" } { cards_offset cell }
{ "cell" "decks_offset" } { decks_offset cell }
{ "cell[70]" "userenv" } { userenv cell[70] } ;
;
: vm-field-offset ( field -- offset ) "vm" offset-of ; : vm-field-offset ( field -- offset ) vm offset-of ; inline