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

46
libguile/gdbint.c
View file

@ -128,14 +128,12 @@ static int tok_buf_mark_p;
static SCM gdb_output_port;
static int old_ints, old_gc;
#ifdef __STDC__
static void
unmark_port (SCM port)
#else
static void unmark_port SCM_P ((SCM port));
static void
unmark_port (port)
SCM port;
#endif
{
SCM stream, string;
port_mark_p = SCM_GC8MARKP (port);
@ -148,14 +146,12 @@ unmark_port (port)
SCM_CLRGC8MARK (string);
}
#ifdef __STDC__
static void
remark_port (SCM port)
#else
static void remark_port SCM_P ((SCM port));
static void
remark_port (port)
SCM port;
#endif
{
SCM stream = SCM_STREAM (port);
SCM string = SCM_CDR (stream);
@ -164,28 +160,20 @@ remark_port (port)
if (port_mark_p) SCM_SETGC8MARK (port);
}
#ifdef __STDC__
int
gdb_maybe_valid_type_p (SCM value)
#else
int
gdb_maybe_valid_type_p (value)
SCM value;
#endif
{
if (SCM_IMP (value) || scm_cellp (value))
return scm_tag (value) != SCM_MAKINUM (-1);
return 0;
}
#ifdef __STDC__
int
gdb_read (char *str)
#else
int
gdb_read (str)
char *str;
#endif
{
SCM ans;
int status = 0;
@ -249,14 +237,10 @@ exit:
return status;
}
#ifdef __STDC__
int
gdb_eval (SCM exp)
#else
int
gdb_eval (exp)
SCM exp;
#endif
{
RESET_STRING;
if (SCM_IMP (exp))
@ -278,14 +262,10 @@ gdb_eval (exp)
return 0;
}
#ifdef __STDC__
int
gdb_print (SCM obj)
#else
int
gdb_print (obj)
SCM obj;
#endif
{
RESET_STRING;
SCM_BEGIN_FOREIGN_BLOCK;
@ -298,15 +278,11 @@ gdb_print (obj)
return 0;
}
#ifdef __STDC__
int
gdb_binding (SCM name, SCM value)
#else
int
gdb_binding (name, value)
SCM name;
SCM value;
#endif
{
RESET_STRING;
if (SCM_GC_P)