--- gforth/arch/generic/machine.h 2007/03/31 12:58:07 1.26 +++ gforth/arch/generic/machine.h 2007/12/31 18:40:25 1.29 @@ -2,13 +2,13 @@ This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS). It only supports indirect threading. - Copyright (C) 1995,1998,1999,2003 Free Software Foundation, Inc. + Copyright (C) 1995,1998,1999,2003,2007 Free Software Foundation, Inc. This file is part of Gforth. 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 + as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, @@ -17,8 +17,7 @@ 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., 59 Temple Place, Suite 330, Boston, MA 02111, USA. + along with this program; if not, see http://www.gnu.org/licenses/. */ /* define SYSCALL */ @@ -101,10 +100,10 @@ typedef void *Label; #undef HAS_HASH #define HAS_F83HEADERSTRING #ifndef PUTC -# define PUTC(x) putc(x, stdout) +# define PUTC(x) emit_char(x) #endif #ifndef TYPE -# define TYPE(x, l) fwrite(x, l, 1, stdout) +# define TYPE(x, l) type_chars(x, l) #endif #endif #define HAS_DCOMPS