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

vm: rename vm:cell to cell_t. it's just a typedef.....

db4
Doug Coleman 2015-07-20 01:01:01 -07:00
parent e4c39bcf3c
commit 191d00208d
1 changed files with 41 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
basis/vm/vm.factor
View File

@ -3,36 +3,36 @@
USING: classes.struct alien.c-types alien.syntax kernel.private ; USING: classes.struct alien.c-types alien.syntax kernel.private ;
IN: vm IN: vm
TYPEDEF: uintptr_t cell TYPEDEF: uintptr_t cell_t
STRUCT: context STRUCT: context
{ callstack-top void* } { callstack-top void* }
{ callstack-bottom void* } { callstack-bottom void* }
{ datastack cell } { datastack cell_t }
{ retainstack cell } { retainstack cell_t }
{ callstack-save cell } { callstack-save cell_t }
{ datastack-region void* } { datastack-region void* }
{ retainstack-region void* } { retainstack-region void* }
{ callstack-region void* } { callstack-region void* }
{ context-objects cell[context-object-count] } ; { context-objects cell_t[context-object-count] } ;
: context-field-offset ( field -- offset ) context offset-of ; inline : context-field-offset ( field -- offset ) context offset-of ; inline
STRUCT: zone STRUCT: zone
{ here cell } { here cell_t }
{ start cell } { start cell_t }
{ end cell } { end cell_t }
{ size cell } ; { size cell_t } ;
STRUCT: vm STRUCT: vm
{ ctx context* } { ctx context* }
{ spare-ctx context* } { spare-ctx context* }
{ nursery zone } { nursery zone }
{ cards-offset cell } { cards-offset cell_t }
{ decks-offset cell } { decks-offset cell_t }
{ signal-handler-addr cell } { signal-handler-addr cell_t }
{ faulting? cell } { faulting? cell_t }
{ special-objects cell[special-object-count] } ; { special-objects cell_t[special-object-count] } ;
: vm-field-offset ( field -- offset ) vm offset-of ; inline : vm-field-offset ( field -- offset ) vm offset-of ; inline
@ -44,24 +44,24 @@ CONSTANT: collect-compact-op 4
CONSTANT: collect-growing-heap-op 5 CONSTANT: collect-growing-heap-op 5
STRUCT: copying-sizes STRUCT: copying-sizes
{ size cell } { size cell_t }
{ occupied cell } { occupied cell_t }
{ free cell } ; { free cell_t } ;
STRUCT: mark-sweep-sizes STRUCT: mark-sweep-sizes
{ size cell } { size cell_t }
{ occupied cell } { occupied cell_t }
{ total-free cell } { total-free cell_t }
{ contiguous-free cell } { contiguous-free cell_t }
{ free-block-count cell } ; { free-block-count cell_t } ;
STRUCT: data-heap-room STRUCT: data-heap-room
{ nursery copying-sizes } { nursery copying-sizes }
{ aging copying-sizes } { aging copying-sizes }
{ tenured mark-sweep-sizes } { tenured mark-sweep-sizes }
{ cards cell } { cards cell_t }
{ decks cell } { decks cell_t }
{ mark-stack cell } ; { mark-stack cell_t } ;
STRUCT: gc-event STRUCT: gc-event
{ op uint } { op uint }
@ -69,28 +69,28 @@ STRUCT: gc-event
{ code-heap-before mark-sweep-sizes } { code-heap-before mark-sweep-sizes }
{ data-heap-after data-heap-room } { data-heap-after data-heap-room }
{ code-heap-after mark-sweep-sizes } { code-heap-after mark-sweep-sizes }
{ cards-scanned cell } { cards-scanned cell_t }
{ decks-scanned cell } { decks-scanned cell_t }
{ code-blocks-scanned cell } { code-blocks-scanned cell_t }
{ start-time ulonglong } { start-time ulonglong }
{ total-time cell } { total-time cell_t }
{ card-scan-time cell } { card-scan-time cell_t }
{ code-scan-time cell } { code-scan-time cell_t }
{ data-sweep-time cell } { data-sweep-time cell_t }
{ code-sweep-time cell } { code-sweep-time cell_t }
{ compaction-time cell } { compaction-time cell_t }
{ temp-time ulonglong } ; { temp-time ulonglong } ;
STRUCT: dispatch-statistics STRUCT: dispatch-statistics
{ megamorphic-cache-hits cell } { megamorphic-cache-hits cell_t }
{ megamorphic-cache-misses cell } { megamorphic-cache-misses cell_t }
{ cold-call-to-ic-transitions cell } { cold-call-to-ic-transitions cell_t }
{ ic-to-pic-transitions cell } { ic-to-pic-transitions cell_t }
{ pic-to-mega-transitions cell } { pic-to-mega-transitions cell_t }
{ pic-tag-count cell } { pic-tag-count cell_t }
{ pic-tuple-count cell } ; { pic-tuple-count cell_t } ;
! gc-info should be kept in sync with: ! gc-info should be kept in sync with:
! vm/gc_info.hpp ! vm/gc_info.hpp