gforth/engine/ecvt.c - diff

Return to ecvt.c CVS log

Up to [gforth] / gforth / engine

version 1.4, 1999/03/28 16:10:03	version 1.5, 2000/07/30 19:56:06
Line 56 char* ecvt(double x, int len, int* exp,	Line 56 char* ecvt(double x, int len, int* exp,
for(i=0; i < len; i++)	for(i=0; i < len; i++)
{	{
z=floor(x);	z=floor(x);
	if(z<0) z = 0;
scratch[i]='0'+(char)((int)z);	scratch[i]='0'+(char)((int)z);
x = (x-z)*10;	x = (x-z)*10;
}	}
Line 94 int main(int argc, char ** argv)	Line 95 int main(int argc, char ** argv)
printf("ecvt Test: %f -> %s, %d, %d\n",9e0,conv,a,b);	printf("ecvt Test: %f -> %s, %d, %d\n",9e0,conv,a,b);
}	}
#endif	#endif