--- gforth/Attic/forth.h 1995/10/26 22:48:39 1.18 +++ gforth/Attic/forth.h 1995/11/09 19:37:02 1.20 @@ -1,8 +1,23 @@ -/* - Copyright 1992 by the ANSI figForth Development Group -*/ +/* common header file + + Copyright (C) 1995 Free Software Foundation, Inc. + + This file is part of Gforth. -/* common header file */ + Gforth is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License + as published by the Free Software Foundation; either version 2 + of the License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +*/ typedef void *Label; @@ -20,7 +35,7 @@ typedef void *Label; #include "machine.h" /* Forth data types */ -typedef int Bool; +typedef Cell Bool; #define FLAG(b) (-(b)) #define FILEIO(error) (FLAG(error) & -37) #define FILEEXIST(error) (FLAG(error) & -38)