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 |
|
|