mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

merge from 1.8 branch

Browse source
This commit is contained in:
Kevin Ryde 2006-04-17 00:05:42 +00:00
parent cd5fea8dbe
commit 2b829bbb3d
220 changed files with 603 additions and 372 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/gc-malloc.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -185,6 +185,16 @@ static void
decrease_mtrigger (size_t size, const char * what)
{
scm_i_pthread_mutex_lock (&scm_i_gc_admin_mutex);
if (size > scm_mallocated)
{
fprintf (stderr, "`scm_mallocated' underflow. This means that more "
"memory was unregistered\n"
"via `scm_gc_unregister_collectable_memory ()' than "
"registered.\n");
abort ();
}
scm_mallocated -= size;
scm_gc_malloc_collected += size;
scm_i_pthread_mutex_unlock (&scm_i_gc_admin_mutex);