fix wrong cast for large links

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@239 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-21 04:04:19 +00:00
parent 2088cb48b0
commit bdbcb1e005

View File

@ -92,9 +92,9 @@ static char SccsId[] = "%W% %G%";
#define OTHER_ERROR_IN_DB 4
#if SIZEOF_INT_P==4
#define ToSmall(V) ((BITS16)(Unsigned(V)>>2))
#define ToSmall(V) ((link_entry)(Unsigned(V)>>2))
#else
#define ToSmall(V) ((BITS16)(Unsigned(V)>>3))
#define ToSmall(V) ((link_entry)(Unsigned(V)>>3))
#endif
#ifdef KEEP_OLD_ENTRIES_HANGING_ABOUT