From bdbcb1e00577e4fec221d110bfd9e60029d1802c Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 21 Dec 2001 04:04:19 +0000
Subject: [PATCH] fix wrong cast for large links

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@239 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/dbase.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/dbase.c b/C/dbase.c
index 4acdf4934..c0749a1ec 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -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