pike.git / src / encode.c

version» Context lines:

pike.git/src/encode.c:18:   #include "pike_error.h"   #include "operators.h"   #include "builtin_functions.h"   #include "module_support.h"   #include "fsort.h"   #include "threads.h"   #include "stuff.h"   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.124 2001/08/10 22:11:44 grubba Exp $"); + RCSID("$Id: encode.c,v 1.125 2001/08/13 21:47:57 hubbe Exp $");      /* #define ENCODE_DEBUG */      #ifdef ENCODE_DEBUG   /* Pass a nonzero integer as the third arg to encode_value,    * encode_value_canonic and decode_value to activate this debug. */   #define EDB(N,X) do if (data->debug>=N) {X;} while (0)   #else   #define EDB(N,X) do {} while (0)   #endif
pike.git/src/encode.c:56:   #endif /* HAVE_IEEEFP_H */      #include <math.h>      /* Restore the sp macro */   #ifdef STACKPOINTER_WAS_DEFINED   #define sp Pike_sp   #undef STACK_POINTER_WAS_DEFINED   #endif /* STACKPOINTER_WAS_DEFINED */    - #ifdef HAVE_FREXP - #define FREXP frexp - #else - double FREXP(double x, int *exp) - { -  double ret; -  *exp = DO_NOT_WARN((int)ceil(log(fabs(x))/log(2.0))); -  ret = (x*pow(2.0,(double)-*exp)); -  return ret; - } - #endif -  - #if HAVE_LDEXP - #define LDEXP ldexp - #else - double LDEXP(double x, int exp) - { -  return x * pow(2.0,(double)exp); - } - #endif -  +    #ifdef PIKE_DEBUG   #define encode_value2 encode_value2_   #define decode_value2 decode_value2_   #endif         /* Tags used by encode value.    * Currently they only differ from the PIKE_T variants by    * TAG_FLOAT == PIKE_T_TYPE == 7    * and