pike.git / src / operators.c

version» Context lines:

pike.git/src/operators.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.   \*/   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.153 2002/05/31 22:41:25 nilsson Exp $"); + RCSID("$Id: operators.c,v 1.154 2002/06/17 16:44:31 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"   #include "mapping.h"   #include "array.h"   #include "stralloc.h"   #include "opcodes.h"   #include "operators.h"   #include "language.h"   #include "pike_memory.h"
pike.git/src/operators.c:1930:    len = sp[-2].u.string->len - from;       s = string_slice(sp[-2].u.string, from, len);    free_string(sp[-2].u.string);       sp--;    sp[-1].u.string = s;    return;    }   #ifdef AUTO_BIGNUM -  if(INT_TYPE_LSH_OVERFLOW(sp[-2].u.integer, sp[-1].u.integer)) +  if ((sp[-1].type == T_INT) && (sp[-2].type == T_INT) && +  INT_TYPE_LSH_OVERFLOW(sp[-2].u.integer, sp[-1].u.integer))    convert_stack_top_to_bignum();   #endif /* AUTO_BIGNUM */       if(sp[-1].type != T_INT || sp[-2].type != T_INT)    {    int args = 2;    if(call_lfun(LFUN_LSH, LFUN_RLSH))    return;       if(sp[-2].type != T_INT)