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

* __scm.h, alist.c, alist.h, append.c, append.h, appinit.c,

Browse source 
arbiters.c, arbiters.h, async.c, async.h, boolean.c, boolean.h,
chars.c, chars.h, continuations.c, continuations.h, debug.c,
debug.h, dynwind.c, dynwind.h, eq.c, eq.h, error.c, eval.c,
eval.h, extchrs.c, extchrs.h, fdsocket.c, fdsocket.h, filesys.c,
filesys.h, fports.c, fports.h, gc.c, gdb_interface.h, gdbint.c,
gdbint.h, genio.c, genio.h, gscm.c, gscm.h, gsubr.c, gsubr.h,
hash.c, hash.h, hashtab.c, hashtab.h, init.c, ioext.c, ioext.h,
kw.c, kw.h, libguile.h, mallocs.c, mallocs.h, markers.c,
markers.h, mbstrings.c, mbstrings.h, numbers.c, numbers.h,
objprop.c, objprop.h, options.c, options.h, pairs.c, pairs.h,
ports.c, ports.h, posix.c, posix.h, print.c, print.h, procprop.c,
procprop.h, procs.c, procs.h, ramap.c, ramap.h, read.c, read.h,
root.c, scmsigs.c, scmsigs.h, sequences.c, sequences.h, simpos.c,
simpos.h, smob.c, socket.c, socket.h, srcprop.c, srcprop.h,
stackchk.c, stackchk.h, stime.c, stime.h, strings.c, strings.h,
strop.c, strop.h, strorder.c, strorder.h, strports.c, strports.h,
struct.c, struct.h, symbols.c, symbols.h, tag.c, tag.h, unif.c,
unif.h, variable.c, variable.h, vectors.c, vectors.h, version.c,
version.h, vports.c, vports.h, weaks.c, weaks.h: Use SCM_P to
declare functions with prototypes.  (Patch thanks to Marius
Vollmer.)
This commit is contained in:
Jim Blandy 1996-10-14 01:33:50 +00:00
parent 1717856b4e
commit 1cc91f1b29
115 changed files with 1793 additions and 5912 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/mallocs.c
View file

@ -37,30 +37,26 @@
#ifdef __STDC__
static scm_sizet
fmalloc(SCM ptr)
#else
static scm_sizet fmalloc SCM_P ((SCM ptr));
static scm_sizet
fmalloc(ptr)
SCM ptr;
#endif
{
if (SCM_MALLOCDATA (ptr))
free (SCM_MALLOCDATA (ptr));
return 0;
}
#ifdef __STDC__
static int
prinmalloc (SCM exp, SCM port, scm_print_state *pstate)
#else
static int prinmalloc SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
static int
prinmalloc (exp, port, pstate)
SCM exp;
SCM port;
scm_print_state *pstate;
#endif
{
scm_gen_puts(scm_regular_string, "#<malloc ", port);
scm_intprint(SCM_CDR(exp), 16, port);
@ -74,14 +70,10 @@ static scm_smobfuns mallocsmob = {scm_mark0, fmalloc, prinmalloc, 0};
#ifdef __STDC__
SCM
scm_malloc_obj (scm_sizet n)
#else
SCM
scm_malloc_obj (n)
scm_sizet n;
#endif
{
SCM answer;
SCM mem;
@ -104,13 +96,9 @@ scm_malloc_obj (n)
#ifdef __STDC__
void
scm_init_mallocs (void)
#else
void
scm_init_mallocs ()
#endif
{
scm_tc16_malloc = scm_newsmob (&mallocsmob);
}