mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

make scm_cells_allocated unsigned again. Thanks to

Browse source 
Bill Schottstaedt for the bug report
This commit is contained in:
Han-Wen Nienhuys 2002-08-21 22:40:03 +00:00
parent 483f518bd4
commit f2893a253e
5 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2002-08-22 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* gc.h, gc.c: make scm_cells_allocated unsigned again. Thanks to
Bill Schottstaedt for the bug report
2002-08-20 Marius Vollmer <mvo@zagadka.ping.de> 2002-08-20 Marius Vollmer <mvo@zagadka.ping.de>
* print.c (scm_iprin1): Print primitives generics always as * print.c (scm_iprin1): Print primitives generics always as

2
libguile/gc-freelist.c
View file

@ -123,7 +123,7 @@ scm_i_adjust_min_yield (scm_t_cell_type_statistics *freelist)
- (long) SCM_MAX (scm_gc_cells_collected_1, scm_gc_cells_collected)); - (long) SCM_MAX (scm_gc_cells_collected_1, scm_gc_cells_collected));
#ifdef DEBUGINFO #ifdef DEBUGINFO
fprintf (stderr, " after GC = %lu, delta = %ld\n", fprintf (stderr, " after GC = %lu, delta = %ld\n",
(long) scm_cells_allocated, (unsigned long) scm_cells_allocated,
(long) delta); (long) delta);
#endif #endif
if (delta > 0) if (delta > 0)

2
libguile/gc-segment.c
View file

@ -228,7 +228,7 @@ scm_i_sweep_segment (scm_t_heap_segment * seg)
scm_t_cell * p = seg->next_free_card; scm_t_cell * p = seg->next_free_card;
int yield = scm_gc_cells_collected; int yield = scm_gc_cells_collected;
int coll = seg->freelist->collected; int coll = seg->freelist->collected;
int alloc = scm_cells_allocated ; unsigned long alloc = scm_cells_allocated ;
while (scm_i_sweep_some_cards (seg) != SCM_EOL) while (scm_i_sweep_some_cards (seg) != SCM_EOL)
; ;

6
libguile/gc.c
View file

@ -283,7 +283,7 @@ SCM scm_structs_to_free;
/* GC Statistics Keeping /* GC Statistics Keeping
*/ */
long scm_cells_allocated = 0; unsigned long scm_cells_allocated = 0;
unsigned long scm_mallocated = 0; unsigned long scm_mallocated = 0;
unsigned long scm_gc_cells_collected; unsigned long scm_gc_cells_collected;
unsigned long scm_gc_cells_collected_1 = 0; /* previous GC yield */ unsigned long scm_gc_cells_collected_1 = 0; /* previous GC yield */
@ -337,7 +337,7 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
unsigned long int local_scm_heap_size; unsigned long int local_scm_heap_size;
int local_scm_gc_cell_yield_percentage; int local_scm_gc_cell_yield_percentage;
int local_scm_gc_malloc_yield_percentage; int local_scm_gc_malloc_yield_percentage;
long int local_scm_cells_allocated; unsigned long int local_scm_cells_allocated;
unsigned long int local_scm_gc_time_taken; unsigned long int local_scm_gc_time_taken;
unsigned long int local_scm_gc_times; unsigned long int local_scm_gc_times;
unsigned long int local_scm_gc_mark_time_taken; unsigned long int local_scm_gc_mark_time_taken;
@ -392,7 +392,7 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
} }
answer = scm_list_n (scm_cons (sym_gc_time_taken, scm_ulong2num (local_scm_gc_time_taken)), answer = scm_list_n (scm_cons (sym_gc_time_taken, scm_ulong2num (local_scm_gc_time_taken)),
scm_cons (sym_cells_allocated, scm_long2num (local_scm_cells_allocated)), scm_cons (sym_cells_allocated, scm_ulong2num (local_scm_cells_allocated)),
scm_cons (sym_heap_size, scm_ulong2num (local_scm_heap_size)), scm_cons (sym_heap_size, scm_ulong2num (local_scm_heap_size)),
scm_cons (sym_mallocated, scm_ulong2num (local_scm_mallocated)), scm_cons (sym_mallocated, scm_ulong2num (local_scm_mallocated)),
scm_cons (sym_mtrigger, scm_ulong2num (local_scm_mtrigger)), scm_cons (sym_mtrigger, scm_ulong2num (local_scm_mtrigger)),

2
libguile/gc.h
View file

@ -290,7 +290,7 @@ SCM_API unsigned long scm_gc_cells_collected;
SCM_API unsigned long scm_gc_cells_collected; SCM_API unsigned long scm_gc_cells_collected;
SCM_API unsigned long scm_gc_malloc_collected; SCM_API unsigned long scm_gc_malloc_collected;
SCM_API unsigned long scm_gc_ports_collected; SCM_API unsigned long scm_gc_ports_collected;
SCM_API long scm_cells_allocated; SCM_API unsigned long scm_cells_allocated;
SCM_API int scm_gc_cell_yield_percentage; SCM_API int scm_gc_cell_yield_percentage;
SCM_API int scm_gc_malloc_yield_percentage; SCM_API int scm_gc_malloc_yield_percentage;
SCM_API unsigned long scm_mallocated; SCM_API unsigned long scm_mallocated;