Diff for /gforth/engine/Attic/memcmpc.c between versions 1.1 and 1.2

version 1.1, 1997/05/21 20:40:10 version 1.2, 1998/10/25 23:15:48
Line 24 Line 24
    have to work with strcoll and some hackery */     have to work with strcoll and some hackery */
   
 #include <ctype.h>  #include <ctype.h>
   #include "forth.h"
   
 int memcasecmp(const char *s1, const char *s2, long n)  Cell memcasecmp(const Char *s1, const Char *s2, Cell n)
 {  {
   int i;    Cell i;
   
   for (i=0; i<n; i++) {    for (i=0; i<n; i++) {
     char c1=toupper(s1[i]);      Char c1=toupper(s1[i]);
     char c2=toupper(s2[i]);      Char c2=toupper(s2[i]);
     if (c1 != c2)      if (c1 != c2)
       return c1-c2;        return c1-c2;
   }    }

Removed from v.1.1  
changed lines
  Added in v.1.2


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