| version 1.5, 2010/09/01 08:01:09 |
version 1.13, 2017/08/30 09:40:30 |
|
|
| diff -urN gc-7.2alpha4.org/alloc.c gc-7.2alpha4/alloc.c |
diff -urN gc-7.4.2.orig/alloc.c gc-7.4.2/alloc.c |
| --- gc-7.2alpha4.org/alloc.c 2010-01-04 16:54:50.892052700 -0500 |
--- gc-7.4.2.orig/alloc.c 2014-06-03 15:08:01.000000000 +0900 |
| +++ gc-7.2alpha4/alloc.c 2010-01-04 17:03:29.952052700 -0500 |
+++ gc-7.4.2/alloc.c 2015-08-25 16:00:00.000000000 +0900 |
| @@ -117,6 +117,7 @@ |
@@ -121,6 +121,7 @@ |
| #endif |
#endif |
| |
|
| word GC_free_space_divisor = GC_FREE_SPACE_DIVISOR; |
word GC_free_space_divisor = GC_FREE_SPACE_DIVISOR; |
| Line 9 diff -urN gc-7.2alpha4.org/alloc.c gc-7.2alpha4/alloc. |
|
| Line 9 diff -urN gc-7.2alpha4.org/alloc.c gc-7.2alpha4/alloc. |
|
| |
|
| GC_INNER int GC_CALLBACK GC_never_stop_func(void) |
GC_INNER int GC_CALLBACK GC_never_stop_func(void) |
| { |
{ |
| @@ -222,9 +223,9 @@ |
@@ -227,8 +228,8 @@ |
| |
total_root_size = 2 * stack_size + GC_root_size; |
| scan_size = 2 * GC_composite_in_use + GC_atomic_in_use / 4 |
scan_size = 2 * GC_composite_in_use + GC_atomic_in_use / 4 |
| + total_root_size; |
+ total_root_size; |
| if (GC_incremental) { |
- result = scan_size / GC_free_space_divisor; |
| - return scan_size / (2 * GC_free_space_divisor); |
- if (GC_incremental) { |
| + return scan_size * GC_free_space_numerator / (2 * GC_free_space_divisor); |
+ result = scan_size * GC_free_space_numerator / GC_free_space_divisor; |
| } else { |
+ if (1 || GC_incremental) { |
| - return scan_size / GC_free_space_divisor; |
result /= 2; |
| + return scan_size * GC_free_space_numerator / (2 * GC_free_space_divisor); |
|
| } |
} |
| } |
return result > 0 ? result : 1; |
| |
@@ -603,6 +604,7 @@ |
| @@ -581,6 +582,7 @@ |
|
| GET_TIME(start_time); |
GET_TIME(start_time); |
| # endif |
# endif |
| |
|
| Line 29 diff -urN gc-7.2alpha4.org/alloc.c gc-7.2alpha4/alloc. |
|
| Line 28 diff -urN gc-7.2alpha4.org/alloc.c gc-7.2alpha4/alloc. |
|
| STOP_WORLD(); |
STOP_WORLD(); |
| # ifdef THREAD_LOCAL_ALLOC |
# ifdef THREAD_LOCAL_ALLOC |
| GC_world_stopped = TRUE; |
GC_world_stopped = TRUE; |
| @@ -613,6 +615,7 @@ |
@@ -632,6 +634,7 @@ |
| GC_world_stopped = FALSE; |
GC_world_stopped = FALSE; |
| # endif |
# endif |
| START_WORLD(); |
START_WORLD(); |
| + GC_timerstop(); |
+ GC_timerstop(); |
| return(FALSE); |
return(FALSE); |
| } |
} |
| if (GC_mark_some((ptr_t)(&dummy))) break; |
if (GC_mark_some(GC_approx_sp())) break; |
| @@ -635,6 +638,7 @@ |
@@ -653,6 +656,7 @@ |
| GC_world_stopped = FALSE; |
GC_world_stopped = FALSE; |
| # endif |
# endif |
| START_WORLD(); |
START_WORLD(); |
| + GC_timerstop(); |
+ GC_timerstop(); |
| # ifndef SMALL_CONFIG |
# ifndef SMALL_CONFIG |
| if (GC_print_stats) { |
if (GC_PRINT_STATS_FLAG) { |
| unsigned long time_diff; |
unsigned long time_diff; |
| @@ -784,6 +788,7 @@ |
@@ -836,6 +840,7 @@ |
| /* FIXME: Add more checks. */ |
/* FIXME: Add more checks. */ |
| GC_check_tls(); |
GC_check_tls(); |
| # endif |
# endif |
| + GC_timerstart(); |
+ GC_timerstart(); |
| |
|
| # ifndef SMALL_CONFIG |
# ifndef SMALL_CONFIG |
| if (GC_print_stats) |
if (GC_print_stats) |
| @@ -917,6 +922,7 @@ |
@@ -958,6 +963,7 @@ |
| MS_TIME_DIFF(done_time,finalize_time)); |
MS_TIME_DIFF(done_time,finalize_time)); |
| } |
} |
| # endif |
# endif |
| + GC_timerstop(); |
+ GC_timerstop(); |
| } |
} |
| |
|
| /* If stop_func == 0 then GC_default_stop_func is used instead. */ |
/* If stop_func == 0 then GC_default_stop_func is used instead. */ |
| @@ -1169,6 +1175,9 @@ |
@@ -1215,6 +1221,9 @@ |
| if (GC_collect_at_heapsize < GC_heapsize /* wrapped */) |
if (GC_on_heap_resize) |
| GC_collect_at_heapsize = (word)(-1); |
(*GC_on_heap_resize)(GC_heapsize); |
| # endif |
|
| +#if defined(VISUAL) |
+#if defined(VISUAL) |
| + SendHeapSize(); |
+ SendHeapSize(); |
| +#endif |
+#endif |
| return(TRUE); |
return(TRUE); |
| } |
} |
| |
|
| @@ -1278,6 +1287,21 @@ |
@@ -1276,7 +1285,7 @@ |
| GC_bool retry = FALSE; |
} |
| |
|
| if (gran == 0) return(0); |
|
| +#if defined(_MSC_VER) |
|
| + { |
|
| +#include <signal.h> |
|
| + extern int recv_intr; |
|
| + if ( recv_intr ) { |
|
| + if ( recv_intr == 1 ) { |
|
| + recv_intr = 0; |
|
| + int_handler(); |
|
| + } else { |
|
| + recv_intr = 0; |
|
| + ox_usr1_handler(0); |
|
| + } |
|
| + } |
|
| + } |
|
| +#endif |
|
| |
|
| while (*flh == 0) { |
|
| ENTER_GC(); |
|
| diff -urN gc-7.2alpha4.org/reclaim.c gc-7.2alpha4/reclaim.c |
|
| --- gc-7.2alpha4.org/reclaim.c 2010-01-04 17:04:36.987052700 -0500 |
|
| +++ gc-7.2alpha4/reclaim.c 2010-01-04 17:06:56.439052700 -0500 |
|
| @@ -572,6 +572,7 @@ |
|
| |
|
| if (GC_print_stats == VERBOSE) |
|
| GET_TIME(start_time); |
|
| + GC_timerstart(); |
|
| # endif |
|
| |
|
| for (kind = 0; kind < GC_n_kinds; kind++) { |
|
| @@ -596,6 +597,7 @@ |
|
| } |
|
| } |
} |
| # ifndef SMALL_CONFIG |
|
| + GC_timerstop(); |
- blocks_to_get = GC_heapsize/(HBLKSIZE*GC_free_space_divisor) |
| if (GC_print_stats == VERBOSE) { |
+ blocks_to_get = GC_heapsize * GC_free_space_numerator /(HBLKSIZE*GC_free_space_divisor) |
| GET_TIME(done_time); |
+ needed_blocks; |
| GC_log_printf("Disposing of reclaim lists took %lu msecs\n", |
if (blocks_to_get > MAXHINCR) { |
| diff -urN gc-7.2alpha4.org/misc.c gc-7.2alpha4/misc.c |
word slop; |
| --- gc-7.2alpha4.org/misc.c 2010-01-04 17:07:45.244052700 -0500 |
diff -urN gc-7.4.2.orig/misc.c gc-7.4.2/misc.c |
| +++ gc-7.2alpha4/misc.c 2010-01-04 17:13:03.397052700 -0500 |
--- gc-7.4.2.orig/misc.c 2014-06-03 15:08:02.000000000 +0900 |
| @@ -128,6 +128,93 @@ |
+++ gc-7.4.2/misc.c 2015-08-04 14:21:02.000000000 +0900 |
| |
@@ -161,6 +161,94 @@ |
| GC_INNER long GC_large_alloc_warn_interval = GC_LARGE_ALLOC_WARN_INTERVAL; |
GC_INNER long GC_large_alloc_warn_interval = GC_LARGE_ALLOC_WARN_INTERVAL; |
| /* Interval between unsuppressed warnings. */ |
/* Interval between unsuppressed warnings. */ |
| |
|
| Line 206 diff -urN gc-7.2alpha4.org/misc.c gc-7.2alpha4/misc.c |
|
| Line 173 diff -urN gc-7.2alpha4.org/misc.c gc-7.2alpha4/misc.c |
|
| + return gctime; |
+ return gctime; |
| +} |
+} |
| + |
+ |
| /*ARGSUSED*/ |
+ |
| STATIC void * GC_CALLBACK GC_default_oom_fn(size_t bytes_requested) |
STATIC void * GC_CALLBACK GC_default_oom_fn( |
| |
size_t bytes_requested GC_ATTR_UNUSED) |
| { |
{ |
| |
diff -urN gc-7.4.2.orig/reclaim.c gc-7.4.2/reclaim.c |
| |
--- gc-7.4.2.orig/reclaim.c 2014-06-03 15:08:02.000000000 +0900 |
| |
+++ gc-7.4.2/reclaim.c 2015-08-04 14:12:42.000000000 +0900 |
| |
@@ -706,6 +706,7 @@ |
| |
|
| |
if (GC_print_stats == VERBOSE) |
| |
GET_TIME(start_time); |
| |
+ GC_timerstart(); |
| |
# endif |
| |
|
| |
for (kind = 0; kind < GC_n_kinds; kind++) { |
| |
@@ -730,6 +731,7 @@ |
| |
} |
| |
} |
| |
# ifndef SMALL_CONFIG |
| |
+ GC_timerstop(); |
| |
if (GC_print_stats == VERBOSE) { |
| |
GET_TIME(done_time); |
| |
GC_verbose_log_printf("Disposing of reclaim lists took %lu msecs\n", |
| |
diff -urN gc-7.4.2.orig/NT_X64_STATIC_THREADS_MAKEFILE gc-7.4.2/NT_X64_STATIC_THREADS_MAKEFILE |
| |
--- gc-7.4.2.orig/NT_X64_STATIC_THREADS_MAKEFILE 2014-06-03 15:08:01.000000000 +0900 |
| |
+++ gc-7.4.2/NT_X64_STATIC_THREADS_MAKEFILE 2015-08-04 14:12:42.000000000 +0900 |
| |
@@ -22,13 +22,13 @@ |
| |
all: gctest.exe cord\de.exe test_cpp.exe |
| |
|
| |
.c.obj: |
| |
- $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE $*.c /Fo$*.obj /wd4701 |
| |
+ $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE -DLARGE_CONFIG $*.c /Fo$*.obj /wd4701 |
| |
# Disable "may not be initialized" warnings. They're too approximate. |
| |
# Disable crt security warnings, since unfortunately they warn about all sorts |
| |
# of safe uses of strncpy. It would be nice to leave the rest enabled. |
| |
|
| |
.cpp.obj: |
| |
- $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE $*.cpp /Fo$*.obj |
| |
+ $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE -DLARGE_CONFIG $*.cpp /Fo$*.obj |
| |
|
| |
$(OBJS) tests\test.obj: include\private\gc_priv.h include\private\gc_hdrs.h include\gc.h include\private\gcconfig.h include\private\gc_locks.h include\private\gc_pmark.h include\gc_mark.h include\gc_disclaim.h include\private\msvc_dbg.h |
| |
|
| |
diff -urN gc-7.4.2.orig/NT_STATIC_THREADS_MAKEFILE gc-7.4.2/NT_STATIC_THREADS_MAKEFILE |
| |
--- gc-7.4.2.orig/NT_STATIC_THREADS_MAKEFILE 2014-06-03 15:08:01.000000000 +0900 |
| |
+++ gc-7.4.2/NT_STATIC_THREADS_MAKEFILE 2015-08-04 14:12:42.000000000 +0900 |
| |
@@ -22,10 +22,10 @@ |
| |
all: gctest.exe cord\de.exe test_cpp.exe |
| |
|
| |
.c.obj: |
| |
- $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -DPARALLEL_MARK -D_CRT_SECURE_NO_DEPRECATE $*.c /Fo$*.obj |
| |
+ $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -DPARALLEL_MARK -D_CRT_SECURE_NO_DEPRECATE -DLARGE_CONFIG $*.c /Fo$*.obj |
| |
|
| |
.cpp.obj: |
| |
- $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE $*.cpp /Fo$*.obj |
| |
+ $(cc) $(cdebug) $(cflags) $(cvarsmt) -Iinclude -I$(AO_INCLUDE_DIR) -DALL_INTERIOR_POINTERS -DGC_NOT_DLL -DGC_THREADS -DTHREAD_LOCAL_ALLOC -D_CRT_SECURE_NO_DEPRECATE -DLARGE_CONFIG $*.cpp /Fo$*.obj |
| |
|
| |
$(OBJS) tests\test.obj: include\private\gc_priv.h include\private\gc_hdrs.h include\gc.h include\private\gcconfig.h include\private\gc_locks.h include\private\gc_pmark.h include\gc_mark.h include\gc_disclaim.h include\private\msvc_dbg.h |
| |
|