mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* eval.c (scm_lookupcar1): Don't declare var2 unless USE_THREADS

Browse source 
is defined, to avoid warnings; it's only used in the
conflict-checking code.  Which might go away anyway.
(SCM_CEVAL): All goto's targeting the `dispatch' label are in
conditionals; put the label definition in an #if too, to stifle
warnings.
This commit is contained in:
Jim Blandy 1997-06-21 05:53:04 +00:00
parent 1773993b8f
commit e3173f937c
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/eval.c
View file

@ -265,7 +265,10 @@ scm_lookupcar1 (vloc, genv)
SCM genv;
{
SCM env = genv;
register SCM *al, fl, var = SCM_CAR (vloc), var2 = var;
register SCM *al, fl, var = SCM_CAR (vloc);
#ifdef USE_THREADS
register SCM var2 = var;
#endif
#ifdef MEMOIZE_LOCALS
register SCM iloc = SCM_ILOC00;
#endif
@ -1561,7 +1564,9 @@ start:
0);
}
#endif
#if defined (USE_THREADS) || defined (DEVAL)
dispatch:
#endif
SCM_ASYNC_TICK;
switch (SCM_TYP7 (x))
{