pike.git / src / operators.c

version» Context lines:

pike.git/src/operators.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"   #include <math.h> - RCSID("$Id: operators.c,v 1.123 2001/02/08 19:28:10 grubba Exp $"); + RCSID("$Id: operators.c,v 1.124 2001/02/20 13:02:12 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:799:    {    sp[-1].u.float_number=(FLOAT_TYPE)sp[-1].u.integer;    sp[-1].type=T_FLOAT;    return 1;    }      #ifdef AUTO_BIGNUM    if(is_bignum_object_in_svalue(sp-2) && sp[-1].type==T_FLOAT)    {    stack_swap(); -  push_constant_text(tFloat); +  ref_push_type_value(float_type_string);    stack_swap();    f_cast();    stack_swap();    return 1;    }    else if(is_bignum_object_in_svalue(sp-1) && sp[-2].type==T_FLOAT)    { -  push_constant_text(tFloat); +  ref_push_type_value(float_type_string);    stack_swap();    f_cast();    return 1;    }   #endif    return 0;   }      static int call_lfun(int left, int right)   {