Diff for /gforth/prim between versions 1.37 and 1.38

version 1.37, 1999/08/07 21:40:35 version 1.38, 1999/08/20 17:22:51
Line 488  the first string is smaller, @i{n} is -1 Line 488  the first string is smaller, @i{n} is -1
 is 1. Currently this is based on the machine's character  is 1. Currently this is based on the machine's character
 comparison. In the future, this may change to consider the current  comparison. In the future, this may change to consider the current
 locale and its collation order.""  locale and its collation order.""
 #ifdef MEMCMP_AS_SUBROUTINE  
 n = gforth_memcmp(c_addr1, c_addr2, u1<u2 ? u1 : u2);  
 #else  
 n = memcmp(c_addr1, c_addr2, u1<u2 ? u1 : u2);  n = memcmp(c_addr1, c_addr2, u1<u2 ? u1 : u2);
 #endif  
 if (n==0)  if (n==0)
   n = u1-u2;    n = u1-u2;
 if (n<0)  if (n<0)
Line 509  else if (n>0) Line 505  else if (n>0)
  THEN ;   THEN ;
   
 -text           c_addr1 u c_addr2 -- n  new     dash_text  -text           c_addr1 u c_addr2 -- n  new     dash_text
 #ifdef MEMCMP_AS_SUBROUTINE  
 n = gforth_memcmp(c_addr1, c_addr2, u);  
 #else  
 n = memcmp(c_addr1, c_addr2, u);  n = memcmp(c_addr1, c_addr2, u);
 #endif  
 if (n<0)  if (n<0)
   n = -1;    n = -1;
 else if (n>0)  else if (n>0)
Line 1274  while(a_addr != NULL) Line 1266  while(a_addr != NULL)
    f83name1=(struct F83Name *)(a_addr[1]);     f83name1=(struct F83Name *)(a_addr[1]);
    a_addr=(Cell *)(a_addr[0]);     a_addr=(Cell *)(a_addr[0]);
    if ((UCell)F83NAME_COUNT(f83name1)==u &&     if ((UCell)F83NAME_COUNT(f83name1)==u &&
 #ifdef MEMCMP_AS_SUBROUTINE  
        gforth_memcmp(c_addr, f83name1->name, u)== 0 /* or inline? */)  
 #else  
        memcmp(c_addr, f83name1->name, u)== 0 /* or inline? */)         memcmp(c_addr, f83name1->name, u)== 0 /* or inline? */)
 #endif  
      {       {
         f83name2=f83name1;          f83name2=f83name1;
         break;          break;

Removed from v.1.37  
changed lines
  Added in v.1.38


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