34 #undef __STRICT_ANSI__
108 printf(
"<ATOM> [%08x] integer=%I64d\n",(
int)a,data);
118 #ifdef DEBUG_RUNTIME_ATOMS
122 dump_atom_address( a );
127 #ifdef DEBUG_COMPILETIME_ATOMS
131 dump_atom_address( a );
166 printf(
"<ATOM> [%08x] float=%Lf\n",(
int)a,data);
176 #ifdef DEBUG_RUNTIME_ATOMS
180 dump_atom_address( a );
185 #ifdef DEBUG_COMPILETIME_ATOMS
189 dump_atom_address( a );
224 #define DUMP_BUF_SIZE 128
232 if( 0<=limit && limit<10 ) limit=10;
234 if( 0<=limit && limit<n )
262 #define DUMP_BUF_SIZE 128
273 #if defined(DEBUG_RUNTIME_ATOMS) || defined(DEBUG_COMPILETIME_ATOMS)
281 void dump_atom_address(
atom_t a )
283 #define DUMP_BUF_SIZE 128
287 n =
SPRINTF( buf, DUMP_BUF_SIZE,
TEXT(
" [%x]"), (
int)a );
299 #endif //DEBUG_RUNTIME_ATOMS || DEBUG_COMPILETIME_ATOMS
334 if( isnan(
FLOAT(a))!=0 )
341 #define DUMP_BUF_SIZE 128
345 if( x==0 && signbit(x) ) x = 0;
348 if( (x>=1e23) || (x<=-1e23) || ((x>=-1e-23) && (x<=1e-23)) )
355 while( buf[n-1]==L
'0' ) n--;
356 if( buf[n-1]==L
'.' ) n--;
357 if( (
unsigned char)buf[n-1]<128
364 if( 0<=limit && limit<10 ) limit=10;
366 if( 0<=limit && limit<n )
431 *(ptr+cnt) =
TEXT(
'\0');
433 if( (*ptr==
TEXT(
'0')) && ((*(ptr+1)==
TEXT(
'x')) || (*(ptr+1)==
TEXT(
'X'))))
444 if( end-ptr==cnt )
return 1;
521 *(ptr+cnt) =
TEXT(
'\0');
526 if( end-ptr==cnt )
return 1;
581 *(ptr+cnt) =
TEXT(
'\0');
586 if( end-ptr==cnt )
return 1;