[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, branch_release-1-8, updated. release_1-8-8-9-ge7e267b,
Ludovic Courtès <=