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

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.57 1999/10/29 03:34:34 mast Exp $"); + RCSID("$Id: array.c,v 1.58 1999/11/23 10:38:15 mast Exp $");      struct array empty_array=   {
1781:    for (e=0; e<a->size; e++)    {    if (a->item[e].type == T_OBJECT && a->item[e].u.object->prog && -  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) +  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_FREE)    gc_mark_svalues(a->item + e, 1);    }    else
1863:    {    if(a->item[e].type <= MAX_COMPLEX &&    !(a->item[e].type == T_OBJECT && a->item[e].u.object->prog && -  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) && +  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_FREE) &&    gc_do_free(a->item[e].u.refs))    free_svalue(a->item+e);    else
1875:    {    if(a->item[e].type <= MAX_COMPLEX &&    !(a->item[e].type == T_OBJECT && a->item[e].u.object->prog && -  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_DESTRUCT) && +  a->item[e].u.object->prog->flags & PROGRAM_NO_WEAK_FREE) &&    gc_do_free(a->item[e].u.refs))    {    free_svalue(a->item+e);