hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
hyung-hwan 2008-01-16 08:07:11 +00:00
parent a0aae74abe
commit 9da2f0772f
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ase/awk/run.c
View File

@ -981,7 +981,7 @@ static void deinit_run (ase_awk_run_t* run)
while (run->ichunk != ASE_NULL) while (run->ichunk != ASE_NULL)
{ {
ase_awk_val_pool_t* next = run->ichunk->next; ase_awk_val_chunk_t* next = run->ichunk->next;
ASE_AWK_FREE (run->awk, run->ichunk); ASE_AWK_FREE (run->awk, run->ichunk);
run->ichunk = next; run->ichunk = next;
} }

14
ase/awk/val.c
View File

@ -84,7 +84,7 @@ ase_awk_val_t* ase_awk_makeintval (ase_awk_run_t* run, ase_long_t v)
} }
} }
*/ */
ase_awk_val_pool_t* p = run->ipool; ase_awk_val_chunk_t* p = run->ichunk;
ase_awk_val_int_t* f = run->ifree; ase_awk_val_int_t* f = run->ifree;
if (f = ASE_NULL) if (f = ASE_NULL)
@ -93,7 +93,7 @@ ase_awk_val_t* ase_awk_makeintval (ase_awk_run_t* run, ase_long_t v)
ase_size_t i; ase_size_t i;
p = ASE_AWK_MALLOC (run->awk, p = ASE_AWK_MALLOC (run->awk,
ASE_SIZEOF(ase_awk_val_pool_t)+ ASE_SIZEOF(ase_awk_val_chunk_t)+
ASE_SIZEOF(ase_awk_val_int_t)*100); ASE_SIZEOF(ase_awk_val_int_t)*100);
if (p == ASE_NULL) if (p == ASE_NULL)
{ {
@ -102,16 +102,16 @@ ase_awk_val_t* ase_awk_makeintval (ase_awk_run_t* run, ase_long_t v)
} }
x = (ase_awk_val_int_t*)(p + 1); x = (ase_awk_val_int_t*)(p + 1);
for (i = 0; i < 100-1; i++) f for (i = 0; i < 100-1; i++)
x[i].nde = (ase_awk_nde_int_t*)&x[i+1]; x[i].nde = (ase_awk_nde_int_t*)&x[i+1];
x[i].nde = ASE_NULL; x[i].nde = ASE_NULL;
run->ifree = &f[0]; run->ifree = &f[0];
p->next = run->ipool; p->next = run->ichunk;
} }
val = run->ifree; val = run->ifree;
p->ifree = (ase_awk_val_int_t*)p->ifree->nde; run->ifree = (ase_awk_val_int_t*)run->ifree->nde;
val->type = ASE_AWK_VAL_INT; val->type = ASE_AWK_VAL_INT;
val->ref = 0; val->ref = 0;
@ -425,7 +425,9 @@ void ase_awk_freeval (ase_awk_run_t* run, ase_awk_val_t* val, ase_bool_t cache)
*/ */
if (cache) if (cache)
{ {
val->nde = (ase_awk_val_nde_t*)run->ifree;
((ase_awk_val_int_t*)val)->nde =
(ase_awk_nde_int_t*)run->ifree;
run->ifree = val; run->ifree = val;
} }
else ASE_AWK_FREE (run->awk, val); else ASE_AWK_FREE (run->awk, val);