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

vm: re-organize context structure

release
Slava Pestov 2010-04-02 15:42:29 -04:00
parent 68073831f9
commit de4343eaf7
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/vm/vm.factor
View File

@ -11,10 +11,10 @@ STRUCT: context
{ datastack cell } { datastack cell }
{ retainstack cell } { retainstack cell }
{ callstack-save cell } { callstack-save cell }
{ context-objects cell[10] }
{ datastack-region void* } { datastack-region void* }
{ retainstack-region void* } { retainstack-region void* }
{ callstack-region void* } ; { callstack-region void* }
{ context-objects cell[10] } ;
: context-field-offset ( field -- offset ) context offset-of ; inline : context-field-offset ( field -- offset ) context offset-of ; inline

8
vm/contexts.hpp
View File

@ -28,14 +28,14 @@ struct context {
/* C callstack pointer */ /* C callstack pointer */
cell callstack_save; cell callstack_save;
/* context-specific special objects, accessed by context-object and
set-context-object primitives */
cell context_objects[context_object_count];
segment *datastack_seg; segment *datastack_seg;
segment *retainstack_seg; segment *retainstack_seg;
segment *callstack_seg; segment *callstack_seg;
/* context-specific special objects, accessed by context-object and
set-context-object primitives */
cell context_objects[context_object_count];
context(cell datastack_size, cell retainstack_size, cell callstack_size); context(cell datastack_size, cell retainstack_size, cell callstack_size);
~context(); ~context();