[gforth] / gforth / Attic / primitives  

gforth: gforth/Attic/primitives

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

version 1.7, Wed May 18 17:29:58 1994 UTC version 1.8, Wed Jun 1 10:05:20 1994 UTC
Line 621 
Line 621 
   
 (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 
Line 824 
 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 
Line 836 
 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 
Line 846 
 {  {
         *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 
Line 985 
 *(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;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help