suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix signedness bug in GC

Browse Source 
which fixes memory accounting in particular
This commit is contained in:
Matthew Flatt 2010-12-21 12:39:18 -06:00
parent ad890077d0
commit 391e7f486f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/racket/gc2/gc2_obj.h
View File

@ -9,16 +9,16 @@
# define LOG_APAGE_SIZE 14 # define LOG_APAGE_SIZE 14
#endif #endif
typedef struct objhead { typedef struct objhead {
intptr_t hash : ((8 * sizeof(intptr_t)) - (4+3+LOG_APAGE_SIZE) ); uintptr_t hash : ((8 * sizeof(intptr_t)) - (4+3+LOG_APAGE_SIZE) );
/* the type and size of the object */ /* the type and size of the object */
intptr_t type : 3; uintptr_t type : 3;
/* these are the various mark bits we use */ /* these are the various mark bits we use */
intptr_t mark : 1; uintptr_t mark : 1;
intptr_t btc_mark : 1; uintptr_t btc_mark : 1;
/* these are used for compaction et al*/ /* these are used for compaction et al*/
intptr_t moved : 1; uintptr_t moved : 1;
intptr_t dead : 1; uintptr_t dead : 1;
intptr_t size : LOG_APAGE_SIZE; uintptr_t size : LOG_APAGE_SIZE;
} objhead; } objhead;
#define OBJHEAD_SIZE (sizeof(objhead)) #define OBJHEAD_SIZE (sizeof(objhead))