pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-11-21
1999-11-21 21:06:56 by Henrik Grubbström (Grubba) <grubba@grubba.org>
e8c6c399077c304b20cabb32ebc983f193b4f9c2 (
10
lines) (+
8
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Bugfix of and_pike_types().
Rev: src/pike_types.c:1.67
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
66
1999/11/21
18
:
04
:
16
grubba Exp $");
+
RCSID("$Id: pike_types.c,v 1.
67
1999/11/21
21
:
06
:
56
grubba Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
1074:
int is_complex = 0; while(EXTRACT_UCHAR(type) == T_OR) {
+
int new_complex;
type++;
-
is
_complex |= low_and_push_complex_pike_type(type);
+
new
_complex |= low_and_push_complex_pike_type(type);
+
if (new_complex) {
+
push_type(T_OR);
+
is_complex = 1;
+
}
type += type_length(type); } switch(EXTRACT_UCHAR(type)) {