pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: pike_types.c,v 1.207 2004/03/12 21:20:20 grubba Exp $ + || $Id: pike_types.c,v 1.208 2005/12/07 09:38:02 grubba Exp $   */      #include "global.h" - RCSID("$Id: pike_types.c,v 1.207 2004/03/12 21:20:20 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.208 2005/12/07 09:38:02 grubba Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:2073:   }            /******/      /*    * match two type strings, return zero if they don't match, and return    * the part of 'a' that _did_ match if it did.    */ + #ifdef PIKE_TYPE_DEBUG + static struct pike_type *low_match_types2(struct pike_type *a, +  struct pike_type *b, +  int flags); + #endif   static struct pike_type *low_match_types(struct pike_type *a,    struct pike_type *b,    int flags)   #ifdef PIKE_TYPE_DEBUG   {    int e;    char *s; -  static struct pike_type *low_match_types2(struct pike_type *a, -  struct pike_type *b, -  int flags); +        if (l_flag>2) {    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("low_match_types(");    my_describe_type(a);    my_strcat(",\n");    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat(" ");    my_describe_type(b);
pike.git/src/pike_types.c:2625:    *    * zero    *    * void    *    * Note that non-destructive operations are assumed.    * ie it's assumed that calling a function(mapping(string|int:string|int):void)    * with a mapping(int:int) won't change the type of the mapping after the    * operation.    */ + #ifdef PIKE_TYPE_DEBUG + static int low_pike_types_le2(struct pike_type *a, struct pike_type *b, +  int array_cnt, unsigned int flags); + #endif   static int low_pike_types_le(struct pike_type *a, struct pike_type *b,    int array_cnt, unsigned int flags)   #ifdef PIKE_TYPE_DEBUG   {    int e;    char *s; -  static int low_pike_types_le2(struct pike_type *a, struct pike_type *b, -  int array_cnt, unsigned int flags); +     int res;    char buf[50];       if (l_flag>2) {    init_buf();    for(e=0;e<indent;e++) my_strcat(" ");    my_strcat("low_pike_types_le(");    my_describe_type(a);    my_strcat(",\n");    for(e=0;e<indent;e++) my_strcat(" ");