home: hub: 9ficl

Info  •  Files  •  Log

Use "ficlInteger" instead of "int" to allow 64-bit version.

--- a/vm.c

+++ b/vm.c

@@ -3,7 +3,7 @@

 ** Forth Inspired Command Language - virtual machine methods

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

 ** Created: 19 July 1997

-** $Id: vm.c,v 1.15 2010/09/12 15:07:32 asau Exp $

+** $Id: vm.c,v 1.16 2010/09/12 15:16:44 asau Exp $

 *******************************************************************/

 /*

 ** This file implements the virtual machine of Ficl. Each virtual

@@ -470,7 +470,7 @@

 		#define POP_CELL_POINTER_DOUBLE(cp)  cell = (cp); *cell = *dataTop--; cell[1] = *dataTop--; continue

 		#define POP_CELL_POINTER(cp)         cell = (cp); *cell = *dataTop--; continue

-		#define BRANCH()         ip += *(int *)ip; continue

+		#define BRANCH()         ip += *(ficlInteger *)ip; continue

 		#define EXIT_FUNCTION()  ip = (ficlInstruction *)((returnTop--)->p); continue

 #endif /* FICL_WANT_SIZE */