mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 02:33:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

Some versions of GCC do not like the static declaration inside the function

Browse source
This commit is contained in:
jjgarcia 2005-05-19 16:14:29 +00:00
parent 8663bdb8c9
commit 82dbe6b94d
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/alloc_2.d
View file

@ -170,12 +170,11 @@ static int alloc_initialized = FALSE;
extern void (*GC_push_other_roots)();
static void (*old_GC_push_other_roots)();
static void stacks_scanner();
void
init_alloc(void)
{
static void stacks_scanner();
if (alloc_initialized) return;
alloc_initialized = TRUE;
@ -267,7 +266,7 @@ ecl_mark_env(struct cl_env_struct *env)
}
static void
stacks_scanner(void)
stacks_scanner()
{
#ifdef ECL_THREADS
cl_object l = cl_core.processes;