1998-05-24
1998-05-24 02:28:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
8123846da660302b07a759d7a214977287e5b0e0
(5 lines)
(+3/-2)
[
Show
| Annotate
]
Branch: 7.9
possible bugfix in array lvalues
Rev: src/array.c:1.39
19:
#include "gc.h"
#include "main.h"
- RCSID("$Id: array.c,v 1.38 1998/05/13 07:38:29 hubbe Exp $");
+ RCSID("$Id: array.c,v 1.39 1998/05/24 02:28:20 hubbe Exp $");
struct array empty_array=
{
1531: Inside #if defined(DEBUG)
for(e=0;e<a->size;e++)
{
- if(! ( (1 << ITEM(a)[e].type) & (a->type_field) ))
+ if(! ( (1 << ITEM(a)[e].type) & (a->type_field) ) && ITEM(a)[e].type<16)
fatal("Type field lies.\n");
check_svalue(ITEM(a)+e);