pike.git/ src/ docode.c

2003-01-26

2003-01-26 15:29:23 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 648a8c6599f9bbdc6c961fe65e81b4661a1d21eb (23 lines) (+21/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

one step closer to make 64-bit integers work:
added new instruction to push >32 bit integers on the stack: F_NUMBER64
(only used when 1) SIZEOF_INT_TYPE > 4 and 2) the number doesn't fit in a 32 bit integer)

Rev: src/docode.c:1.161
Rev: src/interpret_functions.h:1.129

2:   || 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: docode.c,v 1.160 2002/11/23 16:36:44 mast Exp $ + || $Id: docode.c,v 1.161 2003/01/26 15:29:23 mirar Exp $   */      #include "global.h" - RCSID("$Id: docode.c,v 1.160 2002/11/23 16:36:44 mast Exp $"); + RCSID("$Id: docode.c,v 1.161 2003/01/26 15:29:23 mirar Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"
2041:    {    emit0(F_UNDEFINED);    }else{ + #if SIZEOF_INT_TYPE > 4 +  INT_TYPE i=n->u.sval.u.integer; +  if (i != (INT32)i) +  { +  INT_TYPE ip=i; +  INT32 a,b; +  +  if (ip<0) ip=-ip; +  a=(INT32)(ip>>32); +  b=(INT32)(ip&0xffffffff); +  if (i<0) a=-a; +  +  emit2(F_NUMBER64,a,b); +  } +  else +  emit1(F_NUMBER,i); + #else    emit1(F_NUMBER,n->u.sval.u.integer); -  + #endif    }    return 1;