diff options
Diffstat (limited to 'src/immthpsr.c')
| -rw-r--r-- | src/immthpsr.c | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/src/immthpsr.c b/src/immthpsr.c index cd12a0a..19e8150 100644 --- a/src/immthpsr.c +++ b/src/immthpsr.c @@ -1,7 +1,7 @@ /*******************************************************/ /* "C" Language Integrated Production System */ /* */ - /* CLIPS Version 6.24 07/01/05 */ + /* CLIPS Version 6.30 08/16/14 */ /* */ /* IMPLICIT SYSTEM METHODS PARSING MODULE */ /*******************************************************/ @@ -10,16 +10,26 @@ /* Purpose: Parsing routines for Implicit System Methods */ /* */ /* Principal Programmer(s): */ -/* Brian L. Donnell */ +/* Brian L. Dantes */ /* */ /* Contributing Programmer(s): */ /* */ /* Revision History: */ +/* */ /* 6.23: Correction for FalseSymbol/TrueSymbol. DR0859 */ /* */ /* 6.24: Added pragmas to remove unused parameter */ /* warnings. */ /* */ +/* 6.30: Removed conditional code for unsupported */ +/* compilers/operating systems (IBM_MCW, */ +/* MAC_MCW, and IBM_TBC). */ +/* */ +/* Support for long long integers. */ +/* */ +/* Added const qualifiers to remove C++ */ +/* deprecation warnings. */ +/* */ /*************************************************************/ /* ========================================= @@ -54,9 +64,9 @@ ========================================= ***************************************** */ -static void FormMethodsFromRestrictions(void *,DEFGENERIC *,char *,EXPRESSION *); +static void FormMethodsFromRestrictions(void *,DEFGENERIC *,const char *,EXPRESSION *); static RESTRICTION *ParseRestrictionType(void *,int); -static EXPRESSION *GenTypeExpression(void *,EXPRESSION *,int,int,char *); +static EXPRESSION *GenTypeExpression(void *,EXPRESSION *,int,int,const char *); /* ========================================= ***************************************** @@ -112,7 +122,7 @@ globle void AddImplicitMethods( static void FormMethodsFromRestrictions( void *theEnv, DEFGENERIC *gfunc, - char *rstring, + const char *rstring, EXPRESSION *actions) { DEFMETHOD *meth; @@ -253,7 +263,7 @@ static void FormMethodsFromRestrictions( rptr->query->argList = GenConstant(theEnv,FCALL,(void *) FindFunction(theEnv,"length$")); rptr->query->argList->argList = GenProcWildcardReference(theEnv,min + i + 1); rptr->query->argList->nextArg = - GenConstant(theEnv,INTEGER,(void *) EnvAddLong(theEnv,(long) (max - min - i))); + GenConstant(theEnv,INTEGER,(void *) EnvAddLong(theEnv,(long long) (max - min - i))); } tmp = get_struct(theEnv,expr); tmp->argList = (EXPRESSION *) rptr; @@ -377,22 +387,19 @@ static RESTRICTION *ParseRestrictionType( environment, they are pointers to classes ***************************************************/ -#if IBM_TBC -#pragma argsused -#endif static EXPRESSION *GenTypeExpression( void *theEnv, EXPRESSION *top, int nonCOOLCode, int primitiveCode, - char *COOLName) + const char *COOLName) { #if OBJECT_SYSTEM -#if MAC_MCW || IBM_MCW || MAC_XCD +#if MAC_XCD #pragma unused(nonCOOLCode) #endif #else -#if MAC_MCW || IBM_MCW || MAC_XCD +#if MAC_XCD #pragma unused(primitiveCode) #pragma unused(COOLName) #endif @@ -405,7 +412,7 @@ static EXPRESSION *GenTypeExpression( else tmp = GenConstant(theEnv,0,(void *) LookupDefclassByMdlOrScope(theEnv,COOLName)); #else - tmp = GenConstant(theEnv,0,EnvAddLong(theEnv,(long) nonCOOLCode)); + tmp = GenConstant(theEnv,0,EnvAddLong(theEnv,(long long) nonCOOLCode)); #endif tmp->nextArg = top; return(tmp); |