home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lclint.zip / lclint-2_3h-os2-bin.zip / test / tests2.2a / addassign.c next >
Text File  |  1997-09-03  |  138b  |  12 lines
  1. int hash (char *name)
  2. {
  3.   int h = 0;
  4.   
  5.   while (*name != '\0') 
  6.     {
  7.       h += *name++; /* error in 2.1b */
  8.     }
  9.  
  10.   return h % 137;
  11. }
  12.