guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, branch_release-1-8, updated. release_1


From: Ludovic Courtès
Subject: [Guile-commits] GNU Guile branch, branch_release-1-8, updated. release_1-8-8-9-ge7e267b
Date: Wed, 23 May 2012 12:59:25 +0000

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 <address@hidden>
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 <address@hidden>
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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]