? ficl.patch
Index: dict.c
===================================================================
RCS file: /home/ncvs/src/sys/boot/ficl/dict.c,v
retrieving revision 1.11
diff -u -p -r1.11 dict.c
--- dict.c	2001/04/29 02:36:33	1.11
+++ dict.c	2001/05/29 01:04:15
@@ -66,8 +66,8 @@
 #include "ficl.h"
 
 /* Dictionary on-demand resizing control variables */
-unsigned int dictThreshold;
-unsigned int dictIncrease;
+CELL dictThreshold;
+CELL dictIncrease;
 
 
 static char *dictCopyName(FICL_DICT *pDict, STRINGINFO si);
@@ -774,11 +774,12 @@ void hashReset(FICL_HASH *pHash)
 
 void dictCheckThreshold(FICL_DICT* dp)
 {
-    if( dictCellsAvail(dp) < dictThreshold ) {
-        dp->dict = ficlMalloc( dictIncrease * sizeof (CELL) );
+    if( dictCellsAvail(dp) < dictThreshold.u ) {
+        dp->dict = ficlMalloc( dictIncrease.u * sizeof (CELL) );
         assert(dp->dict);
         dp->here = dp->dict;
-        dp->size = dictIncrease;
+        dp->size = dictIncrease.u;
+        dictAlign(dp);
     }
 }
 
Index: ficl.h
===================================================================
RCS file: /home/ncvs/src/sys/boot/ficl/ficl.h,v
retrieving revision 1.18
diff -u -p -r1.18 ficl.h
--- ficl.h	2001/04/29 02:36:33	1.18
+++ ficl.h	2001/05/29 01:04:17
@@ -1011,8 +1011,8 @@ WORDKIND   ficlWordClassify(FICL_WORD *p
 /*
 ** Dictionary on-demand resizing
 */
-extern unsigned int dictThreshold;
-extern unsigned int dictIncrease;
+extern CELL dictThreshold;
+extern CELL dictIncrease;
 
 /*
 ** Various FreeBSD goodies