X-Git-Url: https://git.gag.com/?p=debian%2Fyforth;a=blobdiff_plain;f=yforth.h;h=e5e5ac030149ec37e6b2610f1811ba0854fea2e4;hp=abdef546c1faaf2584f4aaacc4797d1e78037b60;hb=1f159338ae285680863150605167fea32aa74aca;hpb=ef65b7aa8aa9801818dfe1de1f4a434719cc62e1 diff --git a/yforth.h b/yforth.h index abdef54..e5e5ac0 100644 --- a/yforth.h +++ b/yforth.h @@ -1,8 +1,18 @@ -/* yForth? - Written by Luca Padovani (C) 1996/97 - * ------------------------------------------------------------------------ - * This software is FreeWare as long as it comes with this header in each - * source file, anyway you can use it or any part of it whatever - * you want. It comes without any warranty, so use it at your own risk. +/* yForth? - A Forth interpreter written in ANSI C + * Copyright (C) 2012 Luca Padovani + * + * This program 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 3 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, see . * ------------------------------------------------------------------------ * Module name: yforth.h * Abstract: definition of constants, data types, prototypes, and so on. @@ -126,8 +136,8 @@ void put_dcell(Cell *ptr, DCell d); # define GET_DCELL(ptr) get_dcell((Cell *) ptr) # define PUT_DCELL(ptr, d) put_dcell((Cell *) ptr, (DCell) d) # else -# define GET_DCELL(ptr) *((DCell *) ptr) -# define PUT_DCELL(ptr, d) *((DCell *) ptr) = d +# define GET_DCELL(ptr) *((DCell *) (ptr)) +# define PUT_DCELL(ptr, d) *((DCell *) (ptr)) = d # endif #else # ifdef LITTLE_ENDIAN