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

remove dead code in init.c

Browse source 
* libguile/init.c: Remove some dead code.
This commit is contained in:
Andy Wingo 2011-02-09 23:00:12 +01:00
parent d98e8fc180
commit 6245ea9440
1 changed files with 1 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

39
libguile/init.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2009, 2010 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004, 2006, 2009, 2010, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -149,43 +149,6 @@
#ifdef HAVE_UNISTD_H #ifdef HAVE_UNISTD_H
#include <unistd.h> #include <unistd.h>
#endif #endif
#if 0
static char remsg[] = "remove\n#define ", addmsg[] = "add\n#define ";
static void
fixconfig (char *s1, char *s2, int s)
{
fputs (s1, stderr);
fputs (s2, stderr);
fputs ("\nin ", stderr);
fputs (s ? "setjump" : "scmfig", stderr);
fputs (".h and recompile scm\n", stderr);
exit (EXIT_FAILURE);
}
static void
check_config (void)
{
size_t j;
j = HEAP_SEG_SIZE;
if (HEAP_SEG_SIZE != j)
fixconfig ("reduce", "size of HEAP_SEG_SIZE", 0);
#if SCM_STACK_GROWS_UP
if (((SCM_STACKITEM *) & j - stack_start_ptr) < 0)
fixconfig (remsg, "SCM_STACK_GROWS_UP", 1);
#else
if ((stack_start_ptr - (SCM_STACKITEM *) & j) < 0)
fixconfig (addmsg, "SCM_STACK_GROWS_UP", 1);
#endif
}
#endif