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

bootstrap.layouts: sync note in comments

char-rename
Björn Lindqvist 2016-09-25 20:10:16 +02:00
parent 70c7f9e029
commit a6df4168af
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/bootstrap/layouts/layouts.factor
View File

@ -8,10 +8,10 @@ quotations strings words ;
0b1111 tag-mask set 0b1111 tag-mask set
4 tag-bits set 4 tag-bits set
14 num-types set
32 mega-cache-size set 32 mega-cache-size set
! Type tags, should be kept in sync with:
! vm/layouts.hpp
H{ H{
{ fixnum 0 } { fixnum 0 }
{ POSTPONE: f 1 } { POSTPONE: f 1 }
@ -29,4 +29,6 @@ H{
{ dll 13 } { dll 13 }
} type-numbers set } type-numbers set
14 num-types set
2 header-bits set 2 header-bits set

5
vm/layouts.hpp
View File

@ -20,7 +20,8 @@ static const cell data_alignment = 16;
#define UNTAG(x) ((cell)(x) & ~TAG_MASK) #define UNTAG(x) ((cell)(x) & ~TAG_MASK)
#define RETAG(x, tag) (UNTAG(x) | (tag)) #define RETAG(x, tag) (UNTAG(x) | (tag))
// *** Tags *** // Type tags, should be kept in sync with:
// core/bootstrap/layouts/layouts.factor
#define FIXNUM_TYPE 0 #define FIXNUM_TYPE 0
#define F_TYPE 1 #define F_TYPE 1
#define ARRAY_TYPE 2 #define ARRAY_TYPE 2
@ -112,8 +113,8 @@ struct object {
NO_TYPE_CHECK; NO_TYPE_CHECK;
// header format (bits indexed with least significant as zero): // header format (bits indexed with least significant as zero):
// bit 0 : free? // bit 0 : free?
// if not forwarding:
// bit 1 : forwarding pointer? // bit 1 : forwarding pointer?
// if not forwarding:
// bit 2-5 : tag // bit 2-5 : tag
// bit 7-end : hashcode // bit 7-end : hashcode
// if forwarding: // if forwarding: