mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 11:40:18 +02:00
* gc.h: Use the PROTO macro when declaring functions.
* gc.c: Use the PROTO macro when declaring static functions. Remove the CPP hair around function definitions.
This commit is contained in:
parent
3b2b87606a
commit
ac335fa89d
1 changed files with 21 additions and 43 deletions
|
@ -69,50 +69,28 @@ extern unsigned long scm_mallocated;
|
|||
extern long scm_mtrigger;
|
||||
|
||||
|
||||
#ifdef __STDC__
|
||||
extern SCM scm_gc_stats (void);
|
||||
extern void scm_gc_start (char *what);
|
||||
extern void scm_gc_end (void);
|
||||
extern SCM scm_gc (void);
|
||||
extern void scm_gc_for_alloc (int ncells, SCM * freelistp);
|
||||
extern SCM scm_gc_for_newcell (void);
|
||||
extern void scm_igc (char *what);
|
||||
extern void scm_gc_mark (SCM p);
|
||||
extern void scm_mark_locations (SCM_STACKITEM x[], scm_sizet n);
|
||||
extern void scm_gc_sweep (void);
|
||||
extern char * scm_must_malloc (long len, char *what);
|
||||
extern char * scm_must_realloc (char *where, long olen, long len, char *what);
|
||||
extern void scm_must_free (char *obj);
|
||||
extern void scm_remember (SCM * ptr);
|
||||
extern SCM scm_return_first (SCM elt, ...);
|
||||
extern SCM scm_permanent_object (SCM obj);
|
||||
extern SCM scm_protect_object (SCM obj);
|
||||
extern SCM scm_unprotect_object (SCM obj);
|
||||
extern int scm_init_storage (long init_heap_size);
|
||||
extern void scm_init_gc (void);
|
||||
|
||||
#else /* STDC */
|
||||
extern SCM scm_gc_stats ();
|
||||
extern void scm_gc_start ();
|
||||
extern void scm_gc_end ();
|
||||
extern SCM scm_gc ();
|
||||
extern void scm_gc_for_alloc ();
|
||||
extern SCM scm_gc_for_newcell ();
|
||||
extern void scm_igc ();
|
||||
extern void scm_gc_mark ();
|
||||
extern void scm_mark_locations ();
|
||||
extern void scm_gc_sweep ();
|
||||
extern char * scm_must_malloc ();
|
||||
extern char * scm_must_realloc ();
|
||||
extern void scm_must_free ();
|
||||
extern void scm_remember ();
|
||||
extern SCM scm_return_first ();
|
||||
extern SCM scm_permanent_object ();
|
||||
extern SCM scm_protect_object ();
|
||||
extern SCM scm_unprotect_object ();
|
||||
extern int scm_init_storage ();
|
||||
extern void scm_init_gc ();
|
||||
extern SCM scm_gc_stats PROTO ((void));
|
||||
extern void scm_gc_start PROTO ((char *what));
|
||||
extern void scm_gc_end PROTO ((void));
|
||||
extern SCM scm_gc PROTO ((void));
|
||||
extern void scm_gc_for_alloc PROTO ((int ncells, SCM * freelistp));
|
||||
extern SCM scm_gc_for_newcell PROTO ((void));
|
||||
extern void scm_igc PROTO ((char *what));
|
||||
extern void scm_gc_mark PROTO ((SCM p));
|
||||
extern void scm_mark_locations PROTO ((SCM_STACKITEM x[], scm_sizet n));
|
||||
extern void scm_gc_sweep PROTO ((void));
|
||||
extern char * scm_must_malloc PROTO ((long len, char *what));
|
||||
extern char * scm_must_realloc PROTO ((char *where, long olen, long len,
|
||||
char *what));
|
||||
extern void scm_must_free PROTO ((char *obj));
|
||||
extern void scm_remember PROTO ((SCM * ptr));
|
||||
extern SCM scm_return_first PROTO ((SCM elt, ...));
|
||||
extern SCM scm_permanent_object PROTO ((SCM obj));
|
||||
extern SCM scm_protect_object PROTO ((SCM obj));
|
||||
extern SCM scm_unprotect_object PROTO ((SCM obj));
|
||||
extern int scm_init_storage PROTO ((long init_heap_size));
|
||||
extern void scm_init_gc PROTO ((void));
|
||||
|
||||
#endif /* STDC */
|
||||
#include "marksweep.h"
|
||||
#endif /* GCH */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue