[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.36 and 1.37

version 1.36, Sun Jun 20 19:56:48 1999 UTC version 1.37, Sat Aug 7 21:40:35 1999 UTC
Line 488 
Line 488 
 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 505 
Line 509 
  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 1266 
Line 1274 
    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;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help