pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
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)