gforth/engine/support.c - diff

Return to support.c CVS log

Up to [gforth] / gforth / engine

-version 1.13, 2006/01/16 08:27:59
+version 1.14, 2006/02/04 22:09:11
  Line 190  Cell memcasecmp(const Char *s1, const Ch
    return 0;
  }
+ Cell capscompare(Char *c_addr1, UCell u1, Char *c_addr2, UCell u2)
+ {
+   Cell n;
+   n = memcasecmp(c_addr1, c_addr2, u1<u2 ? u1 : u2);
+   if (n==0)
+     n = u1-u2;
+   if (n<0)
+     n = -1;
+   else if (n>0)
+     n = 1;
+   return n;
+ }
  struct Longname *listlfind(Char *c_addr, UCell u, struct Longname *longname1)
  {
    for (; longname1 != NULL; longname1 = (struct Longname *)(longname1->next))