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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2007-02-06 10:57:01 +00:00
parent 36c3b8d3cc
commit df50147c22
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ase/lsp/mem.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: mem.c,v 1.26 2007-02-03 10:51:52 bacon Exp $ * $Id: mem.c,v 1.27 2007-02-06 10:57:00 bacon Exp $
* *
* {License} * {License}
*/ */
@ -281,10 +281,11 @@ static void __mark_objs_in_use (ase_lsp_mem_t* mem)
/* mark objects in the interim frames */ /* mark objects in the interim frames */
frame = mem->brooding_frame; frame = mem->brooding_frame;
while (frame != ASE_NULL) { while (frame != ASE_NULL)
{
assoc = frame->assoc; assoc = frame->assoc;
while (assoc != ASE_NULL) { while (assoc != ASE_NULL)
{
__mark_obj (mem->lsp, assoc->name); __mark_obj (mem->lsp, assoc->name);
if (assoc->value != ASE_NULL) if (assoc->value != ASE_NULL)

10
ase/lsp/prim.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: prim.c,v 1.19 2007-02-03 10:51:53 bacon Exp $ * $Id: prim.c,v 1.20 2007-02-06 10:57:01 bacon Exp $
* *
* {License} * {License}
*/ */
@ -70,17 +70,17 @@ ase_lsp_obj_t* ase_lsp_prim_eval (ase_lsp_t* lsp, ase_lsp_obj_t* args)
tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args)); tmp1 = ase_lsp_eval (lsp, ASE_LSP_CAR(args));
if (tmp1 == ASE_NULL) return ASE_NULL; if (tmp1 == ASE_NULL) return ASE_NULL;
ase_lsp_lockobj (mem->lsp, tmp1); ase_lsp_lockobj (lsp, tmp1);
tmp2 = ase_lsp_eval (lsp, tmp1); tmp2 = ase_lsp_eval (lsp, tmp1);
if (tmp2 == ASE_NULL) if (tmp2 == ASE_NULL)
{ {
ase_lsp_unlockobj (mem->lsp, tmp1); ase_lsp_unlockobj (lsp, tmp1);
return ASE_NULL; return ASE_NULL;
} }
ase_lsp_unlockobj (mem->lsp, tmp1); ase_lsp_unlockobj (lsp, tmp1);
return tmp; return tmp2;
} }
ase_lsp_obj_t* ase_lsp_prim_gc (ase_lsp_t* lsp, ase_lsp_obj_t* args) ase_lsp_obj_t* ase_lsp_prim_gc (ase_lsp_t* lsp, ase_lsp_obj_t* args)