--- lout-3.19-src/z10.c Thu Mar 9 15:40:47 2000 +++ lout-3.19/z10.c Sat Apr 1 21:52:21 2000 @@ -66,7 +66,7 @@ #define crtab_chain(S,i) (S)->tab_chains[i] #define hash(pos, sym, fnum, S) \ -{ pos = ( ((long) sym) + fnum ) % crtab_size(S); \ +{ pos = ( ((unsigned long) sym) + fnum ) % crtab_size(S); \ } static CROSSREF_TABLE crtab_new(int newsize) @@ -85,7 +85,7 @@ } /* end crtab_new */ static CROSSREF_TABLE crtab_rehash(CROSSREF_TABLE S, int newsize) -{ CROSSREF_TABLE NewS; int i; long newpos; CROSSREF_ENTRY p, q; +{ CROSSREF_TABLE NewS; int i; unsigned long newpos; CROSSREF_ENTRY p, q; NewS = crtab_new(newsize); for( i = 0; i < crtab_size(S); i++ ) { p = crtab_chain(S, i); @@ -105,7 +105,7 @@ } /* end crtab_rehash */ static int crtab_getnext(OBJECT sym, FILE_NUM fnum, CROSSREF_TABLE *S) -{ CROSSREF_ENTRY x; OBJECT t; long pos; +{ CROSSREF_ENTRY x; OBJECT t; unsigned long pos; /* if S is NULL, create a new table */ if( *S == NULL ) *S = crtab_new(INIT_CROSSREF_NUM); --- lout-3.19-src/z33.c Thu Mar 9 15:41:03 2000 +++ lout-3.19/z33.c Sat Apr 1 21:50:37 2000 @@ -59,7 +59,7 @@ #define hash(pos, sym, tag, S) \ { FULL_CHAR *p = tag; \ - pos = (long) sym; \ + pos = (unsigned long) sym; \ while( *p ) pos += *p++; \ pos = pos % dtab_size(S); \ } @@ -101,7 +101,7 @@ } /* end dtab_rehash */ static void dtab_insert(OBJECT x, DBCHECK_TABLE *S) -{ long pos; OBJECT z, link, y; +{ unsigned long pos; OBJECT z, link, y; if( dtab_count(*S) == dtab_size(*S) - 1 ) /* one less since 0 unused */ *S = dtab_rehash(*S, 2*dtab_size(*S)); dtab_count(*S)++; @@ -118,7 +118,7 @@ } /* end dtab_insert */ static OBJECT dtab_retrieve(OBJECT sym, FULL_CHAR *tag, DBCHECK_TABLE S) -{ OBJECT x, link, y; long pos; +{ OBJECT x, link, y; unsigned long pos; hash(pos, sym, tag, S); x = dtab_item(S, pos); if( x == nilobj ) return nilobj; --- lout-3.19-src/z47.c Thu Mar 9 15:41:13 2000 +++ lout-3.19/z47.c Sat Apr 1 21:51:55 2000 @@ -48,7 +48,7 @@ #define hash1(pos, env, fnum) \ { \ - pos = ( (int) env + fnum ) % TAB_SIZE; \ + pos = ( (unsigned int) env + fnum ) % TAB_SIZE; \ } #define hash2(pos, fnum, offset) \ @@ -91,7 +91,7 @@ /*****************************************************************************/ BOOLEAN EnvWriteRetrieve(OBJECT env, FILE_NUM fnum, int *offset, int *lnum) -{ int pos; OBJECT link, y, z; +{ unsigned int pos; OBJECT link, y, z; debug2(DET, DD, "EnvWriteRetrieve(env %d, %s)", (int) env, FileName(fnum)); debug1(DET, DDD, " %s", EchoObject(env)); stat_writes++; @@ -127,7 +127,7 @@ /*****************************************************************************/ void EnvWriteInsert(OBJECT env, FILE_NUM fnum, int offset, int lnum) -{ int pos; OBJECT loser, x; +{ unsigned int pos; OBJECT loser, x; debug3(DET, DD, "EnvWriteInsert(env %d, %s, %d)", (int) env, FileName(fnum), offset);