[BACK]Return to primitives CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/primitives between versions 1.7 and 1.8

version 1.7, 1994/05/18 17:29:58 version 1.8, 1994/06/01 10:05:20
Line 621  wior = a_addr2==NULL; /* !! Define a ret Line 621  wior = a_addr2==NULL; /* !! Define a ret
   
 (f83find)       c_addr u f83name1 -- f83name2   new     paren_f83find  (f83find)       c_addr u f83name1 -- f83name2   new     paren_f83find
 for (; f83name1 != NULL; f83name1 = f83name1->next)  for (; f83name1 != NULL; f83name1 = f83name1->next)
   if (F83NAME_COUNT(f83name1)==u && !F83NAME_SMUDGE(f83name1) &&    if (F83NAME_COUNT(f83name1)==u &&
         strncmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
       break;
   f83name2=f83name1;
   
   (f83casefind)   c_addr u f83name1 -- f83name2   new     paren_f83casefind
   for (; f83name1 != NULL; f83name1 = f83name1->next)
     if (F83NAME_COUNT(f83name1)==u &&
       strncasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)        strncasecmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
     break;      break;
 f83name2=f83name1;  f83name2=f83name1;
Line 817  else Line 824  else
 represent               r c_addr u -- n f1 f2   float  represent               r c_addr u -- n f1 f2   float
 char *sig;  char *sig;
 int flag;  int flag;
 sig=ecvt(r, u, &n, &flag);  sig=ecvt(r, u, (int *)&n, &flag);
 f1=FLAG(flag!=0);  f1=FLAG(flag!=0);
 f2=FLAG(isdigit(sig[0])!=0);  f2=FLAG(isdigit(sig[0])!=0);
 memmove(c_addr,sig,u);  memmove(c_addr,sig,u);
Line 829  char number[u+1]; Line 836  char number[u+1];
 char *endconv;  char *endconv;
 cstr(number, c_addr, u);  cstr(number, c_addr, u);
 r=strtod(number,&endconv);  r=strtod(number,&endconv);
 if(flag=FLAG(!(int)*endconv))  if((flag=FLAG(!(int)*endconv)))
 {  {
         IF_FTOS(fp[0] = FTOS);          IF_FTOS(fp[0] = FTOS);
         fp += -1;          fp += -1;
Line 839  else if(*endconv=='d' || *endconv=='D') Line 846  else if(*endconv=='d' || *endconv=='D')
 {  {
         *endconv='E';          *endconv='E';
         r=strtod(number,&endconv);          r=strtod(number,&endconv);
         if(flag=FLAG(!(int)*endconv))          if((flag=FLAG(!(int)*endconv)))
         {          {
                 IF_FTOS(fp[0] = FTOS);                  IF_FTOS(fp[0] = FTOS);
                 fp += -1;                  fp += -1;
Line 978  lp -= sizeof(Float); Line 985  lp -= sizeof(Float);
 *(Float *)lp = r;  *(Float *)lp = r;
   
 up!     a_addr --       new     up_store  up!     a_addr --       new     up_store
 up=a_addr;  up=(char *)a_addr;
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>