Re: Gmp now working, but number.c:147 isinf declared implicitly.

[Hugh Sasse]

On Mon, 15 Jan 2007, Hugh Sasse wrote:

> On Sat, 13 Jan 2007, Kevin Ryde wrote:
> 
> > You might be able to just stick in a prototype,
> 
> Tried to do that, it still complained about it.
> >                                                 or alternately just
> > "./configure --disable-error-on-warning".
> 
> Hmmmm, I'll give that a go.

Right, I got this:

if /bin/bash ../libtool --tag=CC --mode=compile gcc -DHAVE_CONFIG_H -I. -I. 
-I.. -I.. -I..    -g -O2 -Wall -Wmissing-prototypes -MT posix.lo -MD -MP -MF 
".deps/posix.Tpo" -c -o posix.lo posix.c; \
        then mv -f ".deps/posix.Tpo" ".deps/posix.Plo"; else rm -f 
".deps/posix.Tpo"; exit 1; fi
 gcc -DHAVE_CONFIG_H -I. -I. -I.. -I.. -I.. -g -O2 -Wall -Wmissing-prototypes 
-MT posix.lo -MD -MP -MF .deps/posix.Tpo -c posix.c  -fPIC -DPIC -o 
.libs/posix.o
posix.c: In function 'scm_putenv':
posix.c:1332: error: 'len' undeclared (first use in this function)
posix.c:1332: error: (Each undeclared identifier is reported only once
posix.c:1332: error: for each function it appears in.)
gmake[3]: *** [posix.lo] Error 1
gmake[3]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1/libguile'
gmake[2]: *** [all] Error 2
gmake[2]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1/libguile'
gmake[1]: *** [all-recursive] Error 1
gmake[1]: Leaving directory `/export/home/Scratch/hgs/guile-1.8.1'
gmake: *** [all] Error 2
bash-2.05$

bash-2.05$ ggrep -n -C 2 '\<len\>' posix.c
1314-  char *c_str = scm_to_locale_string (str);
1315-#ifdef __MINGW32__
1316:  size_t len = strlen (c_str);
1317-#endif
1318-
--
1330-    environment variable 'name'. */
1331-      int e;
1332:      char *ptr = scm_malloc (len + 2);
1333-      strcpy (ptr, c_str);
1334:      strcpy (ptr+len, "=");
1335-      rv = putenv (ptr);
1336-      e = errno; free (ptr); free (c_str); errno = e;
--
1349-         because MINGW putenv copies it.  */
1350-
1351:      if (c_str[len-1] == '=')
1352-        {
1353:     char *ptr = scm_malloc (len+2);
1354-     strcpy (ptr, c_str);
1355:     strcpy (ptr+len, " ");
1356-     rv = putenv (ptr);
1357-     if (rv < 0)
--
1363-       }
1364-     /* truncate to just the name */
1365:     c_str[len-1] = '\0';
1366-     ptr = getenv (c_str);
1367-     if (ptr)
--
1592-{
1593-  static char user[256];
1594:  static unsigned long len = 256;
1595-
1596:  if (!GetUserName (user, &len))
1597-    return NULL;
1598-  return user;
--
1745-static int flock (int fd, int operation)
1746-{
1747:  long pos, len;
1748-  int ret, err;
1749-
--
1771-
1772-  /* Save current file pointer and seek to beginning. */
1773:  if ((pos = lseek (fd, 0, SEEK_CUR)) == -1 || (len = filelength (fd)) == 
-1)
1774-    return -1;
1775-  lseek (fd, 0L, SEEK_SET);
--
1778-  do
1779-    {
1780:      ret = _locking (fd, operation, len);
1781-    }
1782-  while (ret == -1 && errno == EDEADLOCK);
--
1871-  /* Various systems define MAXHOSTNAMELEN (including Solaris in fact).
1872-   * On GNU/Linux this doesn't include the terminating '\0', hence "+ 1".  
*/
1873:  const int len = MAXHOSTNAMELEN + 1;
1874:  char *const p = scm_malloc (len);
1875:  const int res = gethostname (p, len);
1876-
1877-  scm_dynwind_begin (0);
--
1882-  /* Default 256 is for Solaris, under Linux ENAMETOOLONG is returned if 
not
1883-   * large enough.  SUSv2 specifies 255 maximum too, apparently.  */
1884:  int len = 256;
1885-  int res;
1886-  char *p;
--
1895-    const long int n = sysconf (_SC_HOST_NAME_MAX);
1896-    if (n != -1L)
1897:      len = n;
1898-  }
1899-
1900-#  endif
1901-
1902:  p = scm_malloc (len);
1903-
1904-  scm_dynwind_begin (0);
1905-  scm_dynwind_unwind_handler (free, p, 0);
1906-
1907:  res = gethostname (p, len);
1908-  while (res == -1 && errno == ENAMETOOLONG)
1909-    {
1910:      len *= 2;
1911-
1912-      /* scm_realloc may throw an exception.  */
1913:      p = scm_realloc (p, len);
1914:      res = gethostname (p, len);
1915-    }
1916-
bash-2.05$

        Hugh