andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: Remove local variables from gc. 

* src/gc.c (gl_loop): Remove local variables.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-12 21:33:38 +02:00
parent a342791f2b
commit 3dc72ce20d
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gc.c
View File

@ -92,6 +92,8 @@ gc_relocate_cdr (SCM new, SCM cdr) ///((internal))
SCM SCM
gc_loop (SCM scan) ///((internal)) gc_loop (SCM scan) ///((internal))
{ {
SCM car;
SCM cdr;
while (scan < g_free) while (scan < g_free)
{ {
if (NTYPE (scan) == TCLOSURE if (NTYPE (scan) == TCLOSURE
@ -107,7 +109,7 @@ gc_loop (SCM scan) ///((internal))
|| NTYPE (scan) == TSYMBOL || NTYPE (scan) == TSYMBOL
|| NTYPE (scan) == TVARIABLE) || NTYPE (scan) == TVARIABLE)
{ {
SCM car = gc_copy (g_news[scan].car); car = gc_copy (g_news[scan].car);
gc_relocate_car (scan, car); gc_relocate_car (scan, car);
} }
if ((NTYPE (scan) == TCLOSURE if ((NTYPE (scan) == TCLOSURE
@ -118,7 +120,7 @@ gc_loop (SCM scan) ///((internal))
|| NTYPE (scan) == TVARIABLE) || NTYPE (scan) == TVARIABLE)
&& g_news[scan].cdr) // allow for 0 terminated list of symbols && g_news[scan].cdr) // allow for 0 terminated list of symbols
{ {
SCM cdr = gc_copy (g_news[scan].cdr); cdr = gc_copy (g_news[scan].cdr);
gc_relocate_cdr (scan, cdr); gc_relocate_cdr (scan, cdr);
} }
scan++; scan++;

4
src/mes.c
View File

@ -1140,8 +1140,8 @@ eval_apply ()
&& (CAR (r1) == cell_symbol_define && (CAR (r1) == cell_symbol_define
|| CAR (r1) == cell_symbol_define_macro)) || CAR (r1) == cell_symbol_define_macro))
{ {
int global_p = CAAR (r0) != cell_closure; global_p = CAAR (r0) != cell_closure;
int macro_p = CAR (r1) == cell_symbol_define_macro; macro_p = CAR (r1) == cell_symbol_define_macro;
if (global_p) if (global_p)
{ {
name = CADR (r1); name = CADR (r1);