diff options
Diffstat (limited to 'src/exprnbin.c')
-rw-r--r-- | src/exprnbin.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/exprnbin.c b/src/exprnbin.c index c517099..5d505ff 100644 --- a/src/exprnbin.c +++ b/src/exprnbin.c @@ -1,7 +1,7 @@ /*******************************************************/ /* "C" Language Integrated Production System */ /* */ - /* CLIPS Version 6.23 01/31/05 */ + /* CLIPS Version 6.30 08/16/14 */ /* */ /* EXPRESSION BSAVE/BLOAD MODULE */ /*******************************************************/ @@ -14,10 +14,12 @@ /* Gary D. Riley */ /* */ /* Contributing Programmer(s): */ -/* Brian L. Donnell */ +/* Brian L. Dantes */ /* */ /* Revision History: */ /* */ +/* 6.30: Changed integer type/precision. */ +/* */ /*************************************************************/ #define _EXPRNBIN_SOURCE_ @@ -80,15 +82,15 @@ globle void AllocateExpressions( void *theEnv) { - unsigned long space; + size_t space; - GenReadBinary(theEnv,(void *) &ExpressionData(theEnv)->NumberOfExpressions,(unsigned long) sizeof(long)); + GenReadBinary(theEnv,(void *) &ExpressionData(theEnv)->NumberOfExpressions,sizeof(long)); if (ExpressionData(theEnv)->NumberOfExpressions == 0L) ExpressionData(theEnv)->ExpressionArray = NULL; else { space = ExpressionData(theEnv)->NumberOfExpressions * sizeof(struct expr); - ExpressionData(theEnv)->ExpressionArray = (struct expr *) genlongalloc(theEnv,space); + ExpressionData(theEnv)->ExpressionArray = (struct expr *) genalloc(theEnv,space); } } @@ -246,7 +248,8 @@ static void UpdateExpression( globle void ClearBloadedExpressions( void *theEnv) { - unsigned long int i, space; + unsigned long int i; + size_t space; /*===============================================*/ /* Update the busy counts of atomic data values. */ @@ -297,7 +300,7 @@ globle void ClearBloadedExpressions( /*===================================*/ space = ExpressionData(theEnv)->NumberOfExpressions * sizeof(struct expr); - if (space != 0) genlongfree(theEnv,(void *) ExpressionData(theEnv)->ExpressionArray,space); + if (space != 0) genfree(theEnv,(void *) ExpressionData(theEnv)->ExpressionArray,space); ExpressionData(theEnv)->ExpressionArray = 0; } |