pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.75 2002/01/04 13:44:16 grubba Exp $ +  * $Id: builtin.cmod,v 1.76 2002/01/18 04:56:22 nilsson Exp $    */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "opcodes.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"
pike.git/src/builtin.cmod:196:    }    }    if(x->type != T_INT)    Pike_error("Bad argument 1 to int2hex.\n");       c=x->u.integer;       len=1;    if(c<0) {    len++; -  n=-c; +  n=(-c)&((unsigned int)(-1));    }else{    n=c;    } -  while(n>65536) { n>>=16; len+=4; } -  while(n>16) { n>>=4; len++; } +  while(n>65535) { n>>=16; len+=4; } +  while(n>15) { n>>=4; len++; }       s=begin_shared_string(len);    c=x->u.integer;    if(!c)    {    s->str[0]='0';    }else{    if(c<0)    {    s->str[0]='-'; -  n=-c; +  n=(-c)&((unsigned int)(-1));    }else{    n=c;    } -  while(n) +  while(len && n)    {    s->str[--len]="0123456789abcdef"[n&0xf];    n>>=4;    }    }    RETURN end_shared_string(s);   }      /*! @decl array column(array data, mixed index)    *!