home: hub: 9ficl

Info  •  Files  •  Log

Use proper integer type.

--- a/word.c

+++ b/word.c

@@ -30,13 +30,13 @@

 ficlWordKind ficlWordClassify(ficlWord *word)

 {

     ficlPrimitive code;

-    int i;

+    ficlInstruction i;

 	ficlWordKind iType;

 	if ( (((ficlInstruction)word) > ficlInstructionInvalid)

 		&& (((ficlInstruction)word) < ficlInstructionLast) )

 		{

-		i = (int)word;

+		i = (ficlInstruction)word;

 		iType = FICL_WORDKIND_INSTRUCTION;

 		goto IS_INSTRUCTION;

 		}

@@ -45,7 +45,7 @@

 	if ((ficlInstruction)code < ficlInstructionLast)

 		{

-		i = (int)code;

+		i = (ficlInstruction)code;

 		iType = FICL_WORDKIND_INSTRUCTION_WORD;

 		goto IS_INSTRUCTION;

 		}