TonBERRY/micropython
3
0
Fork 0
Code Pull Requests Activity

windows: Enable GC and implement bss start and end symbols

Browse Source 
The pointers to the bss section are acquired in init.c()
by inspecting the PE header. Works for msvc and mingw.
This commit is contained in:
stijn
2014-06-12 17:45:41 +02:00
parent a96cc824bd
commit 8abcf666cb
7 changed files with 115 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
unix/gccollect.c
View File

@@ -130,8 +130,11 @@ void gc_collect(void) {
gc_collect_start();
// this traces the .bss section
#ifdef __CYGWIN__
#if defined( __CYGWIN__ )
#define BSS_START __bss_start__
#elif defined( _MSC_VER ) || defined( __MINGW32__ )
#define BSS_START *bss_start
#define _end *bss_end
#else
#define BSS_START __bss_start
#endif
@@ -141,7 +144,16 @@ void gc_collect(void) {
regs_t regs;
gc_helper_get_regs(regs);
// GC stack (and regs because we captured them)
gc_collect_root((void**)&regs, ((machine_uint_t)stack_top - (machine_uint_t)&regs) / sizeof(machine_uint_t));
#ifdef __MINGW32__
// The Mingw cross-compiler on Travis complains
// 'warning: dereferencing type-punned pointer will break strict-aliasing rules'
// when casting &regs to void** directly so use a union.
union { regs_t *r; void **ptr; } cast_regs = { &regs };
void **regs_ptr = cast_regs.ptr;
#else
void **regs_ptr = (void**)&regs;
#endif
gc_collect_root(regs_ptr, ((machine_uint_t)stack_top - (machine_uint_t)&regs) / sizeof(machine_uint_t));
gc_collect_end();
//printf("-----\n");