diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
commit | 6e8d25a6954b00e1ff40976d95c8289cfa9fcca4 (patch) | |
tree | 524a6cdf3bb04e0ed9cb97b5d66777972e336c07 /libguile/gc.c | |
parent | 1006486ec27336ea25ece6e5d97a2dbefbfe79e3 (diff) | |
download | guile-6e8d25a6954b00e1ff40976d95c8289cfa9fcca4.tar.gz |
* *.c: Finish replacing K&R style prototypes with ANSI C
prototypes.
* eval.c: Make scm_m_mody's 3rd argument be a const char *, not a
char *. ANSI prototypes caught this.
* strorder.c: Use GUILE_PROC1 for the couple SCM_PROC1 expansions
that I missed.
* scm_validate.h: Use SCM_BOOLP for validating bools. Do not
expand macros if SCM_DOCSTRING_SNARF.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 37 |
1 files changed, 11 insertions, 26 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 141c548e0..4d79e4a38 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -389,8 +389,7 @@ GUILE_PROC (scm_gc_stats, "gc-stats", 0, 0, 0, void -scm_gc_start (what) - const char *what; +scm_gc_start (const char *what) { scm_gc_rt = SCM_INUM (scm_get_internal_run_time ()); scm_gc_cells_collected = 0; @@ -912,9 +911,7 @@ gc_mark_nimp: */ void -scm_mark_locations (x, n) - SCM_STACKITEM x[]; - scm_sizet n; +scm_mark_locations (SCM_STACKITEM x[], scm_sizet n) { register long m = n; register int i, j; @@ -981,8 +978,7 @@ scm_mark_locations (x, n) int -scm_cellp (value) - SCM value; +scm_cellp (SCM value) { register int i, j; register SCM_CELLPTR ptr; @@ -1553,8 +1549,7 @@ scm_must_free (void *obj) * value. */ void -scm_done_malloc (size) - long size; +scm_done_malloc (long size) { scm_mallocated += size; @@ -1615,11 +1610,7 @@ unsigned long scm_heap_size = 0; static scm_sizet -init_heap_seg (seg_org, size, ncells, freelistp) - SCM_CELLPTR seg_org; - scm_sizet size; - int ncells; - SCM *freelistp; +init_heap_seg (SCM_CELLPTR seg_org, scm_sizet size, int ncells, SCM *freelistp) { register SCM_CELLPTR ptr; #ifdef SCM_POINTERS_MUNGED @@ -1701,9 +1692,7 @@ init_heap_seg (seg_org, size, ncells, freelistp) static void -alloc_some_heap (ncells, freelistp) - int ncells; - SCM * freelistp; +alloc_some_heap (int ncells, SCM *freelistp) { struct scm_heap_seg_data * tmptable; SCM_CELLPTR ptr; @@ -1813,9 +1802,8 @@ GUILE_PROC (scm_unhash_name, "unhash-name", 1, 0, 0, void -scm_remember (ptr) - SCM * ptr; -{} +scm_remember (SCM *ptr) +{ /* empty */ } SCM @@ -1826,8 +1814,7 @@ scm_return_first (SCM elt, ...) SCM -scm_permanent_object (obj) - SCM obj; +scm_permanent_object (SCM obj) { SCM_REDEFER_INTS; scm_permobjs = scm_cons (obj, scm_permobjs); @@ -1853,8 +1840,7 @@ scm_permanent_object (obj) scm_unprotect_object removes the first occurrence of its argument to the list. */ SCM -scm_protect_object (obj) - SCM obj; +scm_protect_object (SCM obj) { scm_protects = scm_cons (obj, scm_protects); @@ -1867,8 +1853,7 @@ scm_protect_object (obj) See scm_protect_object for more information. */ SCM -scm_unprotect_object (obj) - SCM obj; +scm_unprotect_object (SCM obj) { SCM *tail_ptr = &scm_protects; |