pike.git / src / array.c

version» Context lines:

pike.git/src/array.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: array.c,v 1.135 2003/01/11 03:06:54 mast Exp $ + || $Id: array.c,v 1.136 2003/01/14 05:23:09 nilsson Exp $   */      #include "global.h"   #include "svalue.h"   #include "array.h"   #include "object.h"   #include "las.h"   #include "stralloc.h"   #include "interpret.h"   #include "opcodes.h"
pike.git/src/array.c:18:   #include "fsort.h"   #include "builtin_functions.h"   #include "pike_memory.h"   #include "gc.h"   #include "main.h"   #include "security.h"   #include "stuff.h"   #include "bignum.h"   #include "cyclic.h"    - RCSID("$Id: array.c,v 1.135 2003/01/11 03:06:54 mast Exp $"); + RCSID("$Id: array.c,v 1.136 2003/01/14 05:23:09 nilsson Exp $");      PMOD_EXPORT struct array empty_array=   {    PIKE_CONSTANT_MEMOBJ_INIT(1), /* Never free */    &weak_empty_array, /* Next */    &weak_shrink_empty_array, /* previous (circular) */    0, /* Size = 0 */    0, /* malloced Size = 0 */    0, /* no types */    0, /* no flags */
pike.git/src/array.c:846:    if(a->u.integer < b->u.integer) return -1;    if(a->u.integer > b->u.integer) return 1;    return 0;       case T_FLOAT:    if(a->u.float_number < b->u.float_number) return -1;    if(a->u.float_number > b->u.float_number) return 1;    return 0;       case T_STRING: -  return DO_NOT_WARN((int)my_strcmp(a->u.string, b->u.string)); +  return DO_NOT_WARN((int)my_quick_strcmp(a->u.string, b->u.string));       case T_ARRAY:    if(a==b) return 0;    if(!a->u.array->size) return -1;    if(!b->u.array->size) return 1;    return alpha_svalue_cmpfun(ITEM(a->u.array), ITEM(b->u.array));       default:    return set_svalue_cmpfun(a,b);