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

fix vector-set-performance-stats! for CGC

Browse Source 
Also, fix the build for a no-futures, no-places configuration.
This commit is contained in:
Matthew Flatt 2015-01-22 13:03:00 -07:00
parent db40c2f4ce
commit 2ffb546c95
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/racket/src/thread.c
View File

@ -177,9 +177,7 @@ THREAD_LOCAL_DECL(static int thread_swap_count);
THREAD_LOCAL_DECL(int scheme_did_gc_count); THREAD_LOCAL_DECL(int scheme_did_gc_count);
THREAD_LOCAL_DECL(static intptr_t process_time_at_swap); THREAD_LOCAL_DECL(static intptr_t process_time_at_swap);
#ifdef MZ_PRECISE_GC
THREAD_LOCAL_DECL(static intptr_t max_gc_pre_used_bytes); THREAD_LOCAL_DECL(static intptr_t max_gc_pre_used_bytes);
#endif
SHARED_OK static int init_load_on_demand = 1; SHARED_OK static int init_load_on_demand = 1;
@ -8936,6 +8934,10 @@ static void get_ready_for_GC()
start_this_gc_real_time = scheme_get_inexact_milliseconds(); start_this_gc_real_time = scheme_get_inexact_milliseconds();
start_this_gc_time = scheme_get_process_milliseconds(); start_this_gc_time = scheme_get_process_milliseconds();
#ifndef MZ_PRECISE_GC
max_gc_pre_used_bytes = GC_get_memory_use();
#endif
#ifdef MZ_USE_FUTURES #ifdef MZ_USE_FUTURES
scheme_future_block_until_gc(); scheme_future_block_until_gc();
#endif #endif