Branch: Tag:

1999-11-23

1999-11-23 10:38:17 by Martin Stjernholm <mast@lysator.liu.se>

Changed misleading identifier PROGRAM_NO_WEAK_DESTRUCT to PROGRAM_NO_WEAK_FREE.

Rev: src/array.c:1.58
Rev: src/mapping.c:1.47
Rev: src/modules/Gmp/mpz_glue.c:1.67
Rev: src/program.h:1.68

5:   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.46 1999/11/12 07:34:31 hubbe Exp $"); + RCSID("$Id: mapping.c,v 1.47 1999/11/23 10:38:16 mast Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
1101:    if (m->flags & MAPPING_FLAG_WEAK)    {    if (k->ind.type == T_OBJECT && -  k->ind.u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) +  k->ind.u.object->prog->flags & PROGRAM_NO_WEAK_FREE)    gc_mark_svalues(&k->ind, 1);    if (k->val.type == T_OBJECT && k->val.u.object->prog && -  k->val.u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) +  k->val.u.object->prog->flags & PROGRAM_NO_WEAK_FREE)    gc_mark_svalues(&k->val, 1);    }    else {
1202:    {    if((k->val.type <= MAX_COMPLEX &&    !(k->val.type == T_OBJECT && -  k->val.u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) && +  k->val.u.object->prog->flags & PROGRAM_NO_WEAK_FREE) &&    gc_do_free(k->val.u.refs)) ||    (k->ind.type <= MAX_COMPLEX &&    !(k->ind.type == T_OBJECT && -  k->ind.u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) && +  k->ind.u.object->prog->flags & PROGRAM_NO_WEAK_FREE) &&    gc_do_free(k->ind.u.refs)))    {    *prev=k->next;