mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* Removed commented code from gc.c.

Browse source 
* Removed unused identifier scm_type_obj_list.
This commit is contained in:
Dirk Herrmann 2000-06-28 07:49:25 +00:00
parent 73ea78af4d
commit 12acbbef54
3 changed files with 16 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2000-06-28 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_igc): Removed commented code that once was intended
to unprotect struct types with no instances.
* root.h (scm_type_obj_list): Removed.
2000-06-27 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-06-27 Dirk Herrmann <D.Herrmann@tu-bs.de>
* async.c (scm_init_async): Switch to standard way of smob * async.c (scm_init_async): Switch to standard way of smob

22
libguile/gc.c
View file

@ -796,28 +796,6 @@ scm_igc (const char *what)
++scm_gc_heap_lock; ++scm_gc_heap_lock;
/* unprotect any struct types with no instances */
#if 0
{
SCM type_list;
SCM * pos;
pos = &scm_type_obj_list;
type_list = scm_type_obj_list;
while (type_list != SCM_EOL)
if (SCM_VELTS (SCM_CAR (type_list))[scm_struct_i_refcnt])
{
pos = SCM_CDRLOC (type_list);
type_list = SCM_CDR (type_list);
}
else
{
*pos = SCM_CDR (type_list);
type_list = SCM_CDR (type_list);
}
}
#endif
/* flush dead entries from the continuation stack */ /* flush dead entries from the continuation stack */
{ {
int x; int x;

19
libguile/root.h
View file

@ -65,18 +65,17 @@
#define scm_weak_symhash scm_sys_protects[6] #define scm_weak_symhash scm_sys_protects[6]
#define scm_symhash_vars scm_sys_protects[7] #define scm_symhash_vars scm_sys_protects[7]
#define scm_keyword_obarray scm_sys_protects[8] #define scm_keyword_obarray scm_sys_protects[8]
#define scm_type_obj_list scm_sys_protects[9] #define scm_first_type scm_sys_protects[9]
#define scm_first_type scm_sys_protects[10] #define scm_stand_in_procs scm_sys_protects[10]
#define scm_stand_in_procs scm_sys_protects[11] #define scm_object_whash scm_sys_protects[11]
#define scm_object_whash scm_sys_protects[12] #define scm_permobjs scm_sys_protects[12]
#define scm_permobjs scm_sys_protects[13] #define scm_asyncs scm_sys_protects[13]
#define scm_asyncs scm_sys_protects[14] #define scm_protects scm_sys_protects[14]
#define scm_protects scm_sys_protects[15]
#ifdef DEBUG_EXTENSIONS #ifdef DEBUG_EXTENSIONS
#define scm_source_whash scm_sys_protects[16] #define scm_source_whash scm_sys_protects[15]
#define SCM_NUM_PROTECTS 17
#else
#define SCM_NUM_PROTECTS 16 #define SCM_NUM_PROTECTS 16
#else
#define SCM_NUM_PROTECTS 15
#endif #endif
extern SCM scm_sys_protects[]; extern SCM scm_sys_protects[];