pike.git / src / builtin_functions.c

version» Context lines:

pike.git/src/builtin_functions.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: builtin_functions.c,v 1.557 2006/03/14 17:39:59 grubba Exp $ + || $Id: builtin_functions.c,v 1.558 2006/03/16 09:44:50 grubba Exp $   */      #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.557 2006/03/14 17:39:59 grubba Exp $"); + RCSID("$Id: builtin_functions.c,v 1.558 2006/03/16 09:44:50 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"   #include "constants.h"   #include "mapping.h"   #include "stralloc.h"
pike.git/src/builtin_functions.c:3027:    ptrdiff_t blen, int bsize)   {    ptrdiff_t pos;    ptrdiff_t len = MINIMUM(alen, blen);   #define TWO_SIZES(X,Y) (((X)<<2)+(Y))    switch(TWO_SIZES(asize, bsize)) {   #define CASE(AZ, BZ) \    case TWO_SIZES(AZ, BZ): { \    PIKE_CONCAT(p_wchar, AZ) *a_arr = \    (PIKE_CONCAT(p_wchar, AZ) *)a; \ -  PIKE_CONCAT(p_wchar, AZ) *b_arr = \ -  (PIKE_CONCAT(p_wchar, AZ) *)b; \ +  PIKE_CONCAT(p_wchar, BZ) *b_arr = \ +  (PIKE_CONCAT(p_wchar, BZ) *)b; \    for (pos=0; pos<len; pos++) { \    if (a_arr[pos] == b_arr[pos]) \    continue; \    if (a_arr[pos] < b_arr[pos]) \    return ~pos; \    return pos+1; \    } \    } break    CASE(0,0);    CASE(0,1);