pike.git/ src/ pike_types.c

1999-11-25

1999-11-25 01:01:44 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 012cc53674b3be34fc15c86ffd242af5dde0a60a (9 lines) (+5/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed typo in pike_types_le().
Fixed warning in low_index_type().

Rev: src/pike_types.c:1.75

5:   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.74 1999/11/25 00:56:25 hubbe Exp $"); + RCSID("$Id: pike_types.c,v 1.75 1999/11/25 01:01:44 grubba Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"
1929:    * The reason for the weak index type test, is that it's not an error    * to index a mapping with a nonexistant key.    */ -  if(!low_pike_types_le(++b,++a) && !low_pike_types_le(b, a)) return 0; +  if(!low_pike_types_le(++b,++a) && !low_pike_types_le(a, b)) return 0;    return low_pike_types_le(a+type_length(a),b+type_length(b));       case T_OBJECT:
2225:    case T_ARRAY:    if(n &&    (CDR(n)->token == F_CONSTANT ? -  CDR(n)->u.sval.type == T_STRING : -  low_match_types(string_type_string->str,CDR(n)->type->str,0))) +  (CDR(n)->u.sval.type == T_STRING) : +  !!low_match_types(string_type_string->str,CDR(n)->type->str,0)))    {    struct pike_string *a=low_index_type(t,n);    if(!a)