home: hub: 9ficl

Info  •  Files  •  Log

Make ficlInstruction type more consistent.

--- a/ficl.h

+++ b/ficl.h

@@ -4,7 +4,7 @@

 ** Author: John Sadler (john_sadler@alum.mit.edu)

 ** Created: 19 July 1997

 ** Dedicated to RHS, in loving memory

-** $Id: ficl.h,v 1.21 2010/09/10 10:16:34 asau Exp $

+** $Id: ficl.h,v 1.22 2010/09/10 10:44:43 asau Exp $

 ********************************************************************

 **

 ** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)

@@ -1027,7 +1027,7 @@

 ** and words are (more or less) arrays of these constants.  In Ficl

 ** these constants are an enumerated type called ficlInstruction.

 */

-typedef enum

+enum ficlInstruction

 {

     #define FICL_TOKEN(token, description) token,

     #define FICL_INSTRUCTION_TOKEN(token, description, flags) token,

@@ -1038,7 +1038,8 @@

     ficlInstructionLast,

     ficlInstructionFourByteTrick = 0x10000000

-} ficlInstruction;

+};

+typedef intptr_t ficlInstruction;

 /*