pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.79 1999/11/25 20:06:17 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.80 1999/11/26 01:08: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:1967:    b++;    if (EXTRACT_UCHAR(a) != T_VOID) {    if (!low_pike_types_le(b, a))    return 0;    }       a+=type_length(a);    b+=type_length(b);       /* check the returntype */ +  if (EXTRACT_UCHAR(b) != T_VOID) { +  /* FIXME: Check if a has type void here? */    if(!low_pike_types_le(a,b)) return 0; -  +  }    break;       case T_MAPPING:    /*    * mapping(A:B) <= mapping(C:D) iff ((C <= A) || (A <= C)) && B <= D.    *    * The reason for the weak index type test, is that it's not an error    * to index a mapping with a nonexistant key.    */    if(!low_pike_types_le(++b,++a) && !low_pike_types_le(a, b)) return 0;