Let 32-bit platforms generate 64-bit fcode too.
This commit is contained in:
parent
7d4a1addde
commit
f592ea46c0
|
@ -1,4 +1,4 @@
|
|||
/* $NetBSD: fgen.h,v 1.4 2001/06/13 10:46:05 wiz Exp $ */
|
||||
/* $NetBSD: fgen.h,v 1.5 2001/10/05 22:36:02 eeh Exp $ */
|
||||
/*
|
||||
* fgen.h -- stuff for the fcode tokenizer.
|
||||
*
|
||||
|
@ -32,7 +32,7 @@
|
|||
*/
|
||||
|
||||
/* Type of a Cell */
|
||||
typedef long Cell;
|
||||
typedef int64_t Cell;
|
||||
|
||||
/* Token from the scanner. */
|
||||
struct tok {
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
%{
|
||||
/* $NetBSD: fgen.l,v 1.13 2001/10/04 18:53:15 eeh Exp $ */
|
||||
/* $NetBSD: fgen.l,v 1.14 2001/10/05 22:36:02 eeh Exp $ */
|
||||
/* FLEX input for FORTH input file scanner */
|
||||
/*
|
||||
* Copyright (c) 1998 Eduardo Horvath.
|
||||
|
@ -725,12 +725,12 @@ struct macro macros[] = {
|
|||
* ASCII -> long int converter, eats `.'s
|
||||
*/
|
||||
#define strtol(x, y, z) cvt(x, y, z)
|
||||
long
|
||||
Cell
|
||||
cvt(s, e, base)
|
||||
char *s, **e;
|
||||
int base;
|
||||
{
|
||||
long v = 0;
|
||||
Cell v = 0;
|
||||
int c, n = 0;
|
||||
|
||||
c = *s;
|
||||
|
|
Loading…
Reference in New Issue