mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

remove unused scm_eval_stack var

Browse source 
* libguile/private-options.h:
* libguile/eval.c (scm_eval_stack): Remove declaration and definition of
  unused scm_eval_stack variable.
This commit is contained in:
Andy Wingo 2009-11-27 21:17:42 +01:00
parent 058234dd9c
commit 504864b79f
2 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -2931,8 +2931,6 @@ int scm_check_apply_p;
int scm_check_exit_p; int scm_check_exit_p;
int scm_check_memoize_p; int scm_check_memoize_p;
long scm_eval_stack;
scm_t_option scm_eval_opts[] = { scm_t_option scm_eval_opts[] = {
{ SCM_OPTION_INTEGER, "stack", 22000, "Size of thread stacks (in machine words)." }, { SCM_OPTION_INTEGER, "stack", 22000, "Size of thread stacks (in machine words)." },
{ 0 } { 0 }
@ -3011,7 +3009,6 @@ SCM_DEFINE (scm_eval_options_interface, "eval-options-interface", 0, 1, 0,
ans = scm_options (setting, ans = scm_options (setting,
scm_eval_opts, scm_eval_opts,
FUNC_NAME); FUNC_NAME);
scm_eval_stack = SCM_EVAL_STACK * sizeof (void *);
scm_dynwind_end (); scm_dynwind_end ();
return ans; return ans;

4
libguile/private-options.h
View file

@ -4,7 +4,7 @@
* We put this in a private header, since layout of data structures * We put this in a private header, since layout of data structures
* is an implementation detail that we want to hide. * is an implementation detail that we want to hide.
* *
* Copyright (C) 2007 Free Software Foundation, Inc. * Copyright (C) 2007, 2009 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
@ -30,8 +30,6 @@
*/ */
SCM_API scm_t_option scm_eval_opts[]; SCM_API scm_t_option scm_eval_opts[];
SCM_API long scm_eval_stack;
SCM_API scm_t_option scm_evaluator_trap_table[]; SCM_API scm_t_option scm_evaluator_trap_table[];
SCM_API SCM scm_eval_options_interface (SCM setting); SCM_API SCM scm_eval_options_interface (SCM setting);