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

Changes to avoid signed/unsigned comparison warnings.

Browse source 
* gc.c (scm_mtrigger, scm_heap_size): Make these unsigned longs.
(scm_gc_sweep): Make n and j local to the blocks they're used in,
so they can have appropriate types for each application.  Make i
signed.  Use initializers in some spots.  I'll probably pay for
all this tweaking.
(scm_must_malloc, scm_must_realloc): Use scm_sizet for size args.
(scm_must_realloc): Make nm unsigned.
(init_heap_seg): Make new_seg_index and n_new_objects signed.
(scm_init_storage): Use prototype-style definition, and make the
argument unsigned.
* gc.h (scm_heap_size, scm_mtrigger, scm_must_malloc,
scm_must_realloc, scm_init_storage): Adjust prototype accordingly.
This commit is contained in:
Jim Blandy 1998-07-30 14:44:28 +00:00
parent 6a738a2516
commit 15e9d186da
2 changed files with 31 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

48
libguile/gc.c
View file

@ -145,7 +145,7 @@ SCM scm_freelist = SCM_EOL;
/* scm_mtrigger
* is the number of bytes of must_malloc allocation needed to trigger gc.
*/
long scm_mtrigger;
unsigned long scm_mtrigger;
/* scm_gc_heap_lock
@ -1047,14 +1047,11 @@ scm_gc_sweep ()
#endif
register SCM nfreelist;
register SCM *hp_freelist;
register long n;
register long m;
register scm_sizet j;
register int span;
scm_sizet i;
long i;
scm_sizet seg_size;
n = 0;
m = 0;
/* Reset all free list pointers. We'll reconstruct them completely
@ -1064,6 +1061,9 @@ scm_gc_sweep ()
for (i = 0; i < scm_n_heap_segs; i++)
{
register scm_sizet n = 0;
register scm_sizet j;
/* Unmarked cells go onto the front of the freelist this heap
segment points to. Rather than updating the real freelist
pointer as we go along, we accumulate the new head in
@ -1298,8 +1298,9 @@ scm_gc_sweep ()
#ifdef GC_FREE_SEGMENTS
if (n == seg_size)
{
register long j;
scm_heap_size -= seg_size;
n = 0;
free ((char *) scm_heap_table[i].bounds[0]);
scm_heap_table[i].bounds[0] = 0;
for (j = i + 1; j < scm_n_heap_segs; j++)
@ -1319,7 +1320,6 @@ scm_gc_sweep ()
#endif
scm_gc_cells_collected += n;
n = 0;
}
/* Scan weak vectors. */
{
@ -1328,6 +1328,8 @@ scm_gc_sweep ()
{
if (!SCM_IS_WHVEC_ANY (scm_weak_vectors[i]))
{
register long j, n;
ptr = SCM_VELTS (scm_weak_vectors[i]);
n = SCM_LENGTH (scm_weak_vectors[i]);
for (j = 0; j < n; ++j)
@ -1336,10 +1338,12 @@ scm_gc_sweep ()
}
else /* if (SCM_IS_WHVEC_ANY (scm_weak_vectors[i])) */
{
SCM obj;
obj = scm_weak_vectors[i];
SCM obj = scm_weak_vectors[i];
register long n = SCM_LENGTH (scm_weak_vectors[i]);
register long j;
ptr = SCM_VELTS (scm_weak_vectors[i]);
n = SCM_LENGTH (scm_weak_vectors[i]);
for (j = 0; j < n; ++j)
{
SCM * fixup;
@ -1406,12 +1410,12 @@ scm_gc_sweep ()
*/
char *
scm_must_malloc (len, what)
long len;
scm_sizet len;
char *what;
{
char *ptr;
scm_sizet size = len;
long nm = scm_mallocated + size;
unsigned long nm = scm_mallocated + size;
if (len != size)
malerr:
scm_wta (SCM_MAKINUM (len), (char *) SCM_NALLOC, what);
@ -1447,15 +1451,14 @@ scm_must_malloc (len, what)
* is similar to scm_must_malloc.
*/
char *
scm_must_realloc (where, olen, len, what)
char *where;
long olen;
long len;
char *what;
scm_must_realloc (char *where,
scm_sizet olen,
scm_sizet len,
char *what)
{
char *ptr;
scm_sizet size = len;
long nm = scm_mallocated + size - olen;
scm_sizet nm = scm_mallocated + size - olen;
if (len != size)
ralerr:
scm_wta (SCM_MAKINUM (len), (char *) SCM_NALLOC, what);
@ -1552,7 +1555,7 @@ int scm_n_heap_segs = 0;
/* scm_heap_size
* is the total number of cells in heap segments.
*/
long scm_heap_size = 0;
unsigned long scm_heap_size = 0;
/* init_heap_seg
* initializes a new heap segment and return the number of objects it contains.
@ -1580,8 +1583,8 @@ init_heap_seg (seg_org, size, ncells, freelistp)
#define scmptr ptr
#endif
SCM_CELLPTR seg_end;
scm_sizet new_seg_index;
scm_sizet n_new_objects;
int new_seg_index;
int n_new_objects;
if (seg_org == NULL)
return 0;
@ -1834,8 +1837,7 @@ scm_unprotect_object (obj)
int
scm_init_storage (init_heap_size)
long init_heap_size;
scm_init_storage (scm_sizet init_heap_size)
{
scm_sizet j;

11
libguile/gc.h
View file

@ -58,7 +58,7 @@ extern int scm_gc_heap_lock;
extern long scm_heap_size;
extern unsigned long scm_heap_size;
extern SCM_CELLPTR scm_heap_org;
extern SCM scm_freelist;
extern unsigned long scm_gc_cells_collected;
@ -66,7 +66,7 @@ extern unsigned long scm_gc_malloc_collected;
extern unsigned long scm_gc_ports_collected;
extern unsigned long scm_cells_allocated;
extern unsigned long scm_mallocated;
extern long scm_mtrigger;
extern unsigned long scm_mtrigger;
#ifdef DEBUG_FREELIST
extern void scm_debug_newcell SCM_P ((SCM *into));
@ -87,8 +87,9 @@ extern void scm_gc_mark SCM_P ((SCM p));
extern void scm_mark_locations SCM_P ((SCM_STACKITEM x[], scm_sizet n));
extern int scm_cellp SCM_P ((SCM value));
extern void scm_gc_sweep SCM_P ((void));
extern char * scm_must_malloc SCM_P ((long len, char *what));
extern char * scm_must_realloc SCM_P ((char *where, long olen, long len,
extern char * scm_must_malloc SCM_P ((scm_sizet len, char *what));
extern char * scm_must_realloc SCM_P ((char *where,
scm_sizet olen, scm_sizet len,
char *what));
extern void scm_done_malloc SCM_P ((long size));
extern void scm_must_free SCM_P ((char *obj));
@ -97,6 +98,6 @@ extern SCM scm_return_first SCM_P ((SCM elt, ...));
extern SCM scm_permanent_object SCM_P ((SCM obj));
extern SCM scm_protect_object SCM_P ((SCM obj));
extern SCM scm_unprotect_object SCM_P ((SCM obj));
extern int scm_init_storage SCM_P ((long init_heap_size));
extern int scm_init_storage SCM_P ((scm_sizet init_heap_size));
extern void scm_init_gc SCM_P ((void));
#endif /* GCH */