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

* load.c (swap_port): Make this function static.

Browse source 
* load.c (scm_search_path): Make max_path_len and max_ext_len
unsigned, since they're compared against string sizes.
* load.c (init_build_info): Make i unsigned.
This commit is contained in:
Jim Blandy 1998-09-06 18:15:49 +00:00
parent fec5693499
commit c7023c693a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/load.c
View file

@ -70,7 +70,7 @@
Applied to the full name of the file. */ Applied to the full name of the file. */
static SCM *scm_loc_load_hook; static SCM *scm_loc_load_hook;
void static void
swap_port (void *data) swap_port (void *data)
{ {
SCM *save_port = data, tmp = scm_cur_loadp; SCM *save_port = data, tmp = scm_cur_loadp;
@ -235,8 +235,8 @@ scm_search_path (path, filename, extensions)
{ {
char *buf; char *buf;
int filename_len; int filename_len;
int max_path_len; size_t max_path_len;
int max_ext_len; size_t max_ext_len;
SCM_ASSERT (scm_ilength (path) >= 0, path, SCM_ARG1, s_search_path); SCM_ASSERT (scm_ilength (path) >= 0, path, SCM_ARG1, s_search_path);
SCM_ASSERT (SCM_NIMP (filename) && SCM_ROSTRINGP (filename), filename, SCM_ASSERT (SCM_NIMP (filename) && SCM_ROSTRINGP (filename), filename,
@ -416,7 +416,7 @@ init_build_info ()
{ {
static struct { char *name; char *value; } info[] = SCM_BUILD_INFO; static struct { char *name; char *value; } info[] = SCM_BUILD_INFO;
SCM *loc = SCM_CDRLOC (scm_sysintern ("%guile-build-info", SCM_EOL)); SCM *loc = SCM_CDRLOC (scm_sysintern ("%guile-build-info", SCM_EOL));
int i; unsigned int i;
for (i = 0; i < (sizeof (info) / sizeof (info[0])); i++) for (i = 0; i < (sizeof (info) / sizeof (info[0])); i++)
*loc = scm_acons (SCM_CAR (scm_intern0 (info[i].name)), *loc = scm_acons (SCM_CAR (scm_intern0 (info[i].name)),