--- gforth/Attic/forth.h 1995/10/12 20:43:24 1.17 +++ gforth/Attic/forth.h 1995/11/07 18:06:40 1.19 @@ -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; @@ -65,7 +80,7 @@ Label *engine(Xt *ip, Cell *sp, Cell *rp #endif #ifdef DEBUG -# define NAME(string) fprintf(stderr,"%08x: "string"\n",(Cell)ip); +# define NAME(string) fprintf(stderr,"%08lx: "string"\n",(Cell)ip); #else # define NAME(string) #endif