--- gforth/Attic/primitives 1997/03/11 16:00:41 1.68 +++ gforth/Attic/primitives 1997/03/27 13:31:03 1.69 @@ -1726,9 +1726,9 @@ else represent r c_addr u -- n f1 f2 float char *sig; -Cell flag; -Cell decpt; -sig=ecvt(r, u, (int *)&decpt, (int *)&flag); +int flag; +int decpt; +sig=ecvt(r, u, &decpt, &flag); n=(r==0 ? 1 : decpt); f1=FLAG(flag!=0); f2=FLAG(isdigit(sig[0])!=0);