pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-03-09
2001-03-09 02:28:22 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
d6591a5001e5eb99b6b6fcfdbc6360df42f9ce11 (
11
lines) (+
6
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
bugfix
Rev: src/interpret.c:1.189
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
188
2001/03/
04
19
:
27
:
18
mirar
Exp $");
+
RCSID("$Id: interpret.c,v 1.
189
2001/03/
09
02
:
28
:
22
hubbe
Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
276:
to->type=T_INT; if(multiset_member(lval->u.multiset,lval+1)) {
-
to->u.integer=
0
;
-
to->subtype=NUMBER_
UNDEFINED
;
+
to->u.integer=
1
;
+
to->subtype=NUMBER_
NUMBER
;
}else{ to->u.integer=0;
-
to->subtype=NUMBER_
NUMBER
;
+
to->subtype=NUMBER_
UNDEFINED
;
} break;