pike.git/
src/
pike_types.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-11-20
1999-11-20 22:52:26 by Henrik Grubbström (Grubba) <grubba@grubba.org>
05fe34bc3b68b0a0889173348ddd63017ded94f6 (
14
lines) (+
8
/-
6
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed bug in and_pike_types().
Rev: src/pike_types.c:1.65
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: pike_types.c,v 1.
64
1999/11/20 22:
15
:
45
grubba Exp $");
+
RCSID("$Id: pike_types.c,v 1.
65
1999/11/20 22:
52
:
26
grubba Exp $");
#include <ctype.h> #include "svalue.h" #include "pike_types.h"
919:
}
-
static int low_find_exact_type_match(char *needle, char *haystack)
+
static int low_find_exact_type_match(char *needle, char *haystack
,
+
int separator
)
{
-
while(EXTRACT_UCHAR(haystack)==
T_OR
)
+
while(EXTRACT_UCHAR(haystack)
==
separator
)
{ haystack++;
-
if(low_find_exact_type_match(needle, haystack))
+
if(low_find_exact_type_match(needle, haystack
, separator
))
return 1; haystack+=type_length(haystack); }
939:
very_low_or_pike_types(to_push, not_push); to_push+=type_length(to_push); }
-
if(!low_find_exact_type_match(to_push, not_push))
+
if(!low_find_exact_type_match(to_push, not_push
, T_OR
))
{ push_unfinished_type(to_push); push_type(T_OR);
1005:
very_low_and_pike_types(to_push, not_push); to_push+=type_length(to_push); }
-
if(!low_find_exact_type_match(to_push, not_push))
+
if(!low_find_exact_type_match(to_push, not_push
, T_AND
))
{ push_unfinished_type(to_push); push_type(T_AND);