pike.git/ src/ pike_types.c

1999-12-12

1999-12-12 00:26:08 by Martin Stjernholm <mast@lysator.liu.se>

• 3ac0d12ef4e9979d5a96b60a240d1b1603eeea26 (15 lines) (+4/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

Only allow type inference in the normal direction for the indices of
mapping and multiset.

Rev: src/pike_types.c:1.90

5:   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.89 1999/12/11 23:37:29 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.90 1999/12/12 00:26:08 mast Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"
2197:       case T_MAPPING:    /* -  * mapping(A:B) <= mapping(C:D) iff ((C <= A) || (A <= C)) && B <= D. -  * -  * The reason for the weak index type test, is that it's not an error -  * to index a mapping with a nonexistant key. +  * mapping(A:B) <= mapping(C:D) iff A <= C && B <= D.    */ -  if(!low_pike_types_le(++b,++a) && !low_pike_types_le(a, b)) return 0; +  if(!low_pike_types_le(++a, ++b)) return 0;    return low_pike_types_le(a+type_length(a),b+type_length(b));       case T_OBJECT:
2271:          case T_MULTISET: -  /* It's not an error to index a multiset with a nonexistant key. */ -  if(!low_pike_types_le(++a,++b) && -  !low_pike_types_le(b, a)) return 0; -  break; -  +     case T_ARRAY:    if(!low_pike_types_le(++a,++b)) return 0;