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

Some anti-warning changes from Greg Harvey.

Browse source 
* gh_data.c (gh_scm2doubles): Initialize m, to avoid compiler
warnings when it doesn't understand our NORETURN declarations in
error.h.
* posix.c (scm_mknod): Similar.
This commit is contained in:
Jim Blandy 1998-10-03 14:12:59 +00:00
parent f9d12ce88b
commit 82a76bdfcf
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/gh_data.c
View file

@ -229,7 +229,7 @@ double*
gh_scm2doubles (SCM obj)
{
int i, n;
double *m;
double *m = 0;
SCM val;
if (!SCM_NIMP (obj))
scm_wrong_type_arg (0, 0, obj);

2
libguile/posix.c
View file

@ -1122,7 +1122,7 @@ scm_mknod(path, type, perms, dev)
#ifdef HAVE_MKNOD
int val;
char *p;
int ctype;
int ctype = 0;
SCM_ASSERT (SCM_NIMP(path) && SCM_ROSTRINGP(path), path, SCM_ARG1, s_mknod);
SCM_ASSERT (SCM_NIMP(type) && SCM_SYMBOLP (type), type, SCM_ARG2, s_mknod);