pike.git/ src/ pike_types.c

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);