From 33aaa89a79b4969655b1c4ee1ba52f6b22d17a4a Mon Sep 17 00:00:00 2001 From: ko1 Date: Wed, 18 Mar 2015 19:54:14 +0000 Subject: * gc.c (RGENGC_OLD_NEWOBJ_CHECK): add check mechanism. If RGENGC_OLD_NEWOBJ_CHECK > 0, then create old objects (not new objects) periodically. Create one old objects per RGENGC_OLD_NEWOBJ_CHECK objects are created. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@50013 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 10 ++++++++++ gc.c | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 43 insertions(+) diff --git a/ChangeLog b/ChangeLog index 49c3790e0f..8639253fca 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +Thu Mar 19 04:52:26 2015 Koichi Sasada + + * gc.c (RGENGC_OLD_NEWOBJ_CHECK): add check mechanism. + + If RGENGC_OLD_NEWOBJ_CHECK > 0, then create old objects + (not new objects) periodically. + + Create one old objects per RGENGC_OLD_NEWOBJ_CHECK objects are + created. + Thu Mar 19 04:46:36 2015 Koichi Sasada * enum.c (enum_sort_by): add WBs. diff --git a/gc.c b/gc.c index c89c215cc1..c0fd8f5cfd 100644 --- a/gc.c +++ b/gc.c @@ -220,6 +220,16 @@ static ruby_gc_params_t gc_params = { #define RGENGC_CHECK_MODE 0 #endif +/* RGENGC_OLD_NEWOBJ_CHECK + * 0: disable all assertions + * >0: make a OLD object when new object creation. + * + * Make one OLD object per RGENGC_OLD_NEWOBJ_CHECK WB protected objects creation. + */ +#ifndef RGENGC_OLD_NEWOBJ_CHECK +#define RGENGC_OLD_NEWOBJ_CHECK 0 +#endif + /* RGENGC_PROFILE * 0: disable RGenGC profiling * 1: enable profiling for basic information @@ -798,6 +808,7 @@ static int gc_mark_stacked_objects_incremental(rb_objspace_t *, size_t count); static int gc_mark_stacked_objects_all(rb_objspace_t *); static void gc_grey(rb_objspace_t *objspace, VALUE ptr); +static inline int gc_mark_set(rb_objspace_t *objspace, VALUE obj); static inline int is_pointer_to_heap(rb_objspace_t *objspace, void *ptr); static void push_mark_stack(mark_stack_t *, VALUE); @@ -1732,6 +1743,28 @@ newobj_of(VALUE klass, VALUE flags, VALUE v1, VALUE v2, VALUE v3) objspace->total_allocated_objects++; gc_event_hook(objspace, RUBY_INTERNAL_EVENT_NEWOBJ, obj); gc_report(5, objspace, "newobj: %s\n", obj_info(obj)); + +#if RGENGC_OLD_NEWOBJ_CHECK > 0 + { + static int newobj_cnt = RGENGC_OLD_NEWOBJ_CHECK; + + if (flags & FL_WB_PROTECTED && /* do not promote WB unprotected objects */ + ! RB_TYPE_P(obj, T_ARRAY)) { /* array.c assumes that allocated objects are new */ + if (--newobj_cnt == 0) { + newobj_cnt = RGENGC_OLD_NEWOBJ_CHECK; + + gc_mark_set(objspace, obj); + RVALUE_AGE_SET_OLD(objspace, obj); + + if (is_pointer_to_heap(objspace, (void *)klass)) RB_OBJ_WRITTEN(obj, Qundef, klass); + if (is_pointer_to_heap(objspace, (void *)v1)) RB_OBJ_WRITTEN(obj, Qundef, v1); + if (is_pointer_to_heap(objspace, (void *)v2)) RB_OBJ_WRITTEN(obj, Qundef, v2); + if (is_pointer_to_heap(objspace, (void *)v3)) RB_OBJ_WRITTEN(obj, Qundef, v3); + } + } + } +#endif + check_rvalue_consistency(obj); return obj; } -- cgit v1.2.3