kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* gc.c (gc_stress): renamed from always_gc and enabled by default.

Browse source 
(gc_stress_get): new function for GC.stress.
  (gc_stress_set): new function for GC.stress=.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9813 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
akr 2006-01-09 22:32:55 +00:00
parent ccbf4ea119
commit 7d8790cdc4
4 changed files with 50 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog
View file

@ -1,3 +1,9 @@
Tue Jan 10 07:26:52 2006 Tanaka Akira <akr@m17n.org>
* gc.c (gc_stress): renamed from always_gc and enabled by default.
(gc_stress_get): new function for GC.stress.
(gc_stress_set): new function for GC.stress=.
Mon Jan 9 19:58:56 2006 arton <artonx@yahoo.co.jp>
* ext/zlib/extconf.rb: zlib compiled DLL version 1.2.3 distributed by

47
gc.c
View file

@ -88,11 +88,40 @@ rb_memerror(void)
rb_exc_raise(nomem_error);
}
#ifdef RUBY_GC_DEBUG
int always_gc = 0;
#else
# define always_gc 0
#endif
int gc_stress = 0;
/*
* call-seq:
* GC.stress => true or false
*
* returns current status of GC stress mode.
*/
static VALUE
gc_stress_get(VALUE self)
{
return gc_stress ? Qtrue : Qfalse;
}
/*
* call-seq:
* GC.stress = bool => bool
*
* updates GC stress mode.
*
* When GC.stress = true, GC is invoked for all GC opportunity:
* all memory and object allocation.
*
* Since it makes Ruby very slow, it is only for debugging.
*/
static VALUE
gc_stress_set(VALUE self, VALUE bool)
{
rb_secure(2);
gc_stress = RTEST(bool);
return bool;
}
void *
ruby_xmalloc(size_t size)
@ -105,7 +134,7 @@ ruby_xmalloc(size_t size)
if (size == 0) size = 1;
malloc_increase += size;
if (always_gc || malloc_increase > malloc_limit) {
if (gc_stress || malloc_increase > malloc_limit) {
garbage_collect();
}
RUBY_CRITICAL(mem = malloc(size));
@ -153,7 +182,7 @@ ruby_xrealloc(void *ptr, size_t size)
if (!ptr) return ruby_xmalloc(size);
if (size == 0) size = 1;
malloc_increase += size;
if (always_gc) garbage_collect();
if (gc_stress) garbage_collect();
RUBY_CRITICAL(mem = realloc(ptr, size));
if (!mem) {
if (garbage_collect()) {
@ -383,7 +412,7 @@ rb_newobj(void)
{
VALUE obj;
if ((always_gc || !freelist) && !garbage_collect())
if ((gc_stress || !freelist) && !garbage_collect())
rb_memerror();
obj = (VALUE)freelist;
@ -1915,6 +1944,8 @@ Init_GC(void)
rb_define_singleton_method(rb_mGC, "start", rb_gc_start, 0);
rb_define_singleton_method(rb_mGC, "enable", rb_gc_enable, 0);
rb_define_singleton_method(rb_mGC, "disable", rb_gc_disable, 0);
rb_define_singleton_method(rb_mGC, "stress", gc_stress_get, 0);
rb_define_singleton_method(rb_mGC, "stress=", gc_stress_set, 1);
rb_define_method(rb_mGC, "garbage_collect", rb_gc_start, 0);
rb_mObSpace = rb_define_module("ObjectSpace");

6
main.c
View file

@ -25,9 +25,9 @@ static void objcdummyfunction( void ) { objc_msgSend(); }
int
main(int argc, char **argv, char **envp)
{
#ifdef RUBY_GC_DEBUG
RUBY_EXTERN int always_gc;
always_gc = getenv("RUBY_ALWAYS_GC") != NULL;
#ifdef RUBY_GC_STRESS
RUBY_EXTERN int gc_stress;
gc_stress = getenv("RUBY_GC_STRESS") != NULL;
#endif
#ifdef _WIN32
NtInitialize(&argc, &argv);

4
signal.c
View file

@ -944,12 +944,12 @@ Init_signal(void)
#endif
#ifdef SIGBUS
# ifndef RUBY_GC_DEBUG
# ifndef RUBY_GC_STRESS
install_sighandler(SIGBUS, sigbus);
# endif
#endif
#ifdef SIGSEGV
# ifndef RUBY_GC_DEBUG
# ifndef RUBY_GC_STRESS
install_sighandler(SIGSEGV, sigsegv);
# endif
#endif