This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e7e267be016f23ed51ec4e68bd627683961553ca The branch, branch_release-1-8 has been updated via e7e267be016f23ed51ec4e68bd627683961553ca (commit) via 93f68a5ac407b92ce1ef82d317bc62994448aeef (commit) from e2547476441c9e7ecb752ec1aa7c2f55dcd2a0b8 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e7e267be016f23ed51ec4e68bd627683961553ca Author: Ludovic Courtès <l...@gnu.org> Date: Wed May 23 14:59:17 2012 +0200 Build without `-Werror' by default. * configure.in: Set GUILE_ERROR_ON_WARNING to "no" by default. commit 93f68a5ac407b92ce1ef82d317bc62994448aeef Author: Ludovic Courtès <l...@gnu.org> Date: Wed May 23 14:55:38 2012 +0200 Remove set-but-unused variables from libguile. * libguile/filesys.c (scm_readdir): Remove set-but-unused `namlen' variable. * libguile/fports.c (fport_flush): Same for `written'. * libguile/gc-segment.c (scm_i_initialize_heap_segment_data): Same for `bvec_ptr'. * libguile/posix.c (scm_nice): Same for `nice_value'. * libguile/scmsigs.c (take_signal): Same for `count'. * libguile/srfi-4.c (uvec_to_list): Same for `elts'. * libguile/stacks.c (scm_stack_ref): Same for `c_index'. * libguile/threads.c (scm_std_select): Same for `count'. * libguile/throw.c (scm_ithrow): Same for `answer'. * libguile/unif.c (scm_i_read_array): Same for `got_rank'. ----------------------------------------------------------------------- Summary of changes: configure.in | 4 ++-- libguile/filesys.c | 9 ++++----- libguile/fports.c | 10 +++++----- libguile/gc-segment.c | 6 ++---- libguile/posix.c | 9 ++++----- libguile/scmsigs.c | 6 +++--- libguile/srfi-4.c | 5 ++--- libguile/stacks.c | 6 ++---- libguile/threads.c | 8 ++++---- libguile/throw.c | 9 +++++---- libguile/unif.c | 7 +++---- 11 files changed, 36 insertions(+), 43 deletions(-) diff --git a/configure.in b/configure.in index 2b176ab..b46f88f 100644 --- a/configure.in +++ b/configure.in @@ -5,7 +5,7 @@ dnl define(GUILE_CONFIGURE_COPYRIGHT,[[ Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, - 2006, 2007, 2008, 2009, 2011 Free Software Foundation, Inc. + 2006, 2007, 2008, 2009, 2011, 2012 Free Software Foundation, Inc. This file is part of GUILE @@ -101,7 +101,7 @@ AM_PATH_LISPDIR # #-------------------------------------------------------------------- -GUILE_ERROR_ON_WARNING="yes" +GUILE_ERROR_ON_WARNING="no" AC_ARG_ENABLE(error-on-warning, [ --enable-error-on-warning treat compile warnings as errors], diff --git a/libguile/filesys.c b/libguile/filesys.c index c8acb13..c76f407 100644 --- a/libguile/filesys.c +++ b/libguile/filesys.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1996,1997,1998,1999,2000,2001, 2002, 2004, 2006, 2008 Free Software Foundation, Inc. - * +/* Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2006, 2008, + * 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -904,7 +905,7 @@ SCM_DEFINE (scm_readdir, "readdir", 1, 0, 0, { struct dirent_or_dirent64 de; /* just for sizeof */ DIR *ds = (DIR *) SCM_CELL_WORD_1 (port); - size_t namlen; + #ifdef NAME_MAX char buf [SCM_MAX (sizeof (de), sizeof (de) - sizeof (de.d_name) + NAME_MAX + 1)]; @@ -924,8 +925,6 @@ SCM_DEFINE (scm_readdir, "readdir", 1, 0, 0, if (! rdent) return SCM_EOF_VAL; - namlen = NAMLEN (rdent); - return (rdent ? scm_from_locale_stringn (rdent->d_name, NAMLEN (rdent)) : SCM_EOF_VAL); } diff --git a/libguile/fports.c b/libguile/fports.c index e7ad4a3..7925d11 100644 --- a/libguile/fports.c +++ b/libguile/fports.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2008 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + * 2006, 2008, 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -843,11 +844,10 @@ fport_flush (SCM port) { const char *msg = "Error: could not flush file-descriptor "; char buf[11]; - size_t written; - written = write (2, msg, strlen (msg)); + (void) write (2, msg, strlen (msg)); sprintf (buf, "%d\n", fp->fdes); - written = write (2, buf, strlen (buf)); + (void) write (2, buf, strlen (buf)); count = remaining; } diff --git a/libguile/gc-segment.c b/libguile/gc-segment.c index b07cfc7..e07e052 100644 --- a/libguile/gc-segment.c +++ b/libguile/gc-segment.c @@ -1,4 +1,5 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2006, 2008 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2006, 2008, + * 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -89,7 +90,6 @@ scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t request size_t mem_needed = (1+card_count) * SCM_GC_SIZEOF_CARD + SCM_GC_CARD_BVEC_SIZE_IN_LONGS * card_count * SCM_SIZEOF_LONG ; - scm_t_c_bvec_long * bvec_ptr = 0; scm_t_cell * memory = 0; /* @@ -106,8 +106,6 @@ scm_i_initialize_heap_segment_data (scm_t_heap_segment * segment, size_t request segment->bounds[1] = segment->bounds[0] + card_count * SCM_GC_CARD_N_CELLS; segment->freelist->heap_size += scm_i_segment_cell_count (segment); - - bvec_ptr = (scm_t_c_bvec_long*) segment->bounds[1]; /* Don't init the mem or the bitvector. This is handled by lazy diff --git a/libguile/posix.c b/libguile/posix.c index 2ecd8ae..9e32feb 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, + * 2005, 2006, 2007, 2008, 2009, 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -1543,12 +1544,10 @@ SCM_DEFINE (scm_nice, "nice", 1, 0, 0, "The return value is unspecified.") #define FUNC_NAME s_scm_nice { - int nice_value; - /* nice() returns "prio-NZERO" on success or -1 on error, but -1 can arise from "prio-NZERO", so an error must be detected from errno changed */ errno = 0; - nice_value = nice (scm_to_int (incr)); + (void) nice (scm_to_int (incr)); if (errno != 0) SCM_SYSERROR; diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index 8c655f1..14fb71d 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -1,4 +1,5 @@ -/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2004, 2006, 2007 Free Software Foundation, Inc. +/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2004, 2006, + * 2007, 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -137,10 +138,9 @@ static int signal_pipe[2]; static SIGRETTYPE take_signal (int signum) { - size_t count; char sigbyte = signum; - count = write (signal_pipe[1], &sigbyte, 1); + (void) write (signal_pipe[1], &sigbyte, 1); #ifndef HAVE_SIGACTION signal (signum, take_signal); diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c index f2a9d7f..06ea489 100644 --- a/libguile/srfi-4.c +++ b/libguile/srfi-4.c @@ -1,6 +1,6 @@ /* srfi-4.c --- Uniform numeric vector datatypes. * - * Copyright (C) 2001, 2004, 2006, 2010 Free Software Foundation, Inc. + * Copyright (C) 2001, 2004, 2006, 2010, 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -396,10 +396,9 @@ uvec_to_list (int type, SCM uvec) scm_t_array_handle handle; size_t len; ssize_t i, inc; - const void *elts; SCM res = SCM_EOL; - elts = uvec_elements (type, uvec, &handle, &len, &inc); + (void) uvec_elements (type, uvec, &handle, &len, &inc); for (i = len*inc; i > 0;) { i -= inc; diff --git a/libguile/stacks.c b/libguile/stacks.c index eda3641..e86579a 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -1,5 +1,5 @@ /* Representation of stack frame debug information - * Copyright (C) 1996,1997,2000,2001, 2006, 2007, 2008 Free Software Foundation + * Copyright (C) 1996,1997,2000,2001, 2006, 2007, 2008, 2012 Free Software Foundation * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -552,10 +552,8 @@ SCM_DEFINE (scm_stack_ref, "stack-ref", 2, 0, 0, "Return the @var{index}'th frame from @var{stack}.") #define FUNC_NAME s_scm_stack_ref { - unsigned long int c_index; - SCM_VALIDATE_STACK (1, stack); - c_index = scm_to_unsigned_integer (index, 0, SCM_STACK_LENGTH(stack)-1); + (void) scm_to_unsigned_integer (index, 0, SCM_STACK_LENGTH (stack) - 1); return scm_cons (stack, index); } #undef FUNC_NAME diff --git a/libguile/threads.c b/libguile/threads.c index f2bb556..50e2231 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2003, 2004, 2005, 2006, 2008 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, + * 2006, 2008, 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -1455,9 +1456,8 @@ scm_std_select (int nfds, if (res > 0 && FD_ISSET (wakeup_fd, readfds)) { char dummy; - size_t count; - count = read (wakeup_fd, &dummy, 1); + (void) read (wakeup_fd, &dummy, 1); FD_CLR (wakeup_fd, readfds); res -= 1; diff --git a/libguile/throw.c b/libguile/throw.c index fcfde47..72c5f22 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2003, 2004, 2006, 2008 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2003, 2004, 2006, 2008, + * 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -752,7 +753,7 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED) { struct pre_unwind_data *c = (struct pre_unwind_data *) SCM_CELL_WORD_1 (jmpbuf); - SCM handle, answer; + SCM handle; /* For old-style lazy-catch behaviour, we unwind the dynamic context before invoking the handler. */ @@ -776,7 +777,7 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED) c, SCM_F_WIND_EXPLICITLY); scm_dynwind_unwind_handler (toggle_pre_unwind_running, c, 0); - answer = (c->handler) (c->handler_data, key, args); + (c->handler) (c->handler_data, key, args); /* There is deliberately no scm_dynwind_end call here. This means that the unwind handler (toggle_pre_unwind_running) diff --git a/libguile/unif.c b/libguile/unif.c index dd4e617..11e1f75 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1,5 +1,6 @@ -/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006, 2011 Free Software Foundation, Inc. - * +/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005, + * 2006, 2011, 2012 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -2676,7 +2677,6 @@ SCM scm_i_read_array (SCM port, int c) { ssize_t rank; - int got_rank; char tag[80]; int tag_len; @@ -2704,7 +2704,6 @@ scm_i_read_array (SCM port, int c) return SCM_BOOL_F; } rank = 1; - got_rank = 1; tag[0] = 'f'; tag_len = 1; goto continue_reading_tag; hooks/post-receive -- GNU Guile
