Commit bce5545d authored by anton's avatar anton

updated dates in copyright messages

inserted copyright messages in most files that did not have them
removed outdated files engine/32bit.h engine/strsig.c
parent 917aaf4c
......@@ -14,6 +14,3 @@ points to the current SOURCE, and QUERY puts its result there. anton
open-path-file expands "./" into the sourcefilename. It should either
not expand "./" or provide a mechanism that allows the application to
determine what "./" should expand to. anton 16jun98
": foo create c, does> c@ ; see foo" displays a number after DOES> on
i386, direct threaded. Marcel Hendrix 23nov98 -- fixed Bernd Paysan 27nov98
#Makefile for Gforth
#Copyright (C) 1995-1997 Free Software Foundation, Inc.
#Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
#This file is part of Gforth.
......
/* Descriptions and defaults for C preprocessor symbols for config.h.in
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
dnl AC_CHECK_INT_TYPE macro
dnl Copyright (C) 1996 Free Software Foundation, Inc.
dnl Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
dnl This file is part of Gforth.
......
\ ADD.FS Kernal additional things 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ report words used from the various wordsets
\ Copyright (C) 1996 Free Software Foundation, Inc.
\ Copyright (C) 1996,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ ANSI.STR Define terminal attributes 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
/*
This is the machine-specific part for Intel 386 compatible processors
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* preliminary machine file for DEC Alpha
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
......@@ -2,7 +2,7 @@
This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
It only supports indirect threading.
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* cache flushing for the HP-PA architecture
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* This is the machine-specific part for a HPPA running HP-UX
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* This is the machine-specific part for the 68000 and family
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* This is the machine-specific part for MIPS R[2346810]000 processors
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* This is the machine-specific part for the Power (incl. PPC) architecture
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* This is the machine-specific part for a SPARC
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
\ asmbasic.fs basic assebmler definitions
\ Copyright (C) 1998 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
\ 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.
[IFUNDEF] assembler Vocabulary assembler [THEN]
require ./target.fs
[IFUNDEF] chained require chains.fs [THEN]
......
\ bitmask.fs Generic Bitmask compiler 13aug97jaw
\ This file is copyritghted by JW-Datentechnik GmbH, Munich.
\ You have the right to use it together with GForth EC.
\ This file may copied and redistributed if it is not altered.
\ This is distributed without any warranty.
\ Send comments, suggestions, additions and bugfixes to: wilke@jwdt.com
\ Copyright (C) 1998 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
\ 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.
\ This is a tool for building up assemblers.
\ In modern CPU's instrutions there are often some bitfields that
......
\ generic.fs implements generic assembler definitions 13aug97jaw
\ Copyright (C) 1998 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
\ 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.
\ These are generic routines to build up a table-driven assembler
\ fo any modern (RISC)-CPU
\ This file is copyritghted by JW-Datentechnik GmbH, Munich.
\ You have the right to use it together with GForth EC.
\ This file may copied and redistributed if it is not altered.
\ This is distributed without any warranty.
\ Send comments, suggestions, additions and bugfixes to: wilke@jwdt.com
\ Revision Log:
\
\ 13aug97jaw-14aug97 Initial Version -> V0.5
......
\ refs.fs
\ Copyright (C) 1998 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
\ 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.
0 [IF]
This is a generic solution for doing labels (forward and backward
......
\ asm/target.fs
\ Copyright (C) 1998 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
\ 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.
[IFUNDEF] there
.( no target compiling )
......
\ assertions
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ A less simple implementation of the blocks wordset.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ BUFOUT.STR Buffered output for Debug 13jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ chains.fs execution chains for gforth 21jun97jaw
\ Copyright (C) 1998 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
\ 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.
0 [IF]
This defines execution chains.
The first application for this is building initialization chains:
......
\ ASSEMBLER, CODE etc.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ COLORIZE.STR Coloured .NAME and WORDS 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ Compare nonrelocatable images and produce a relocatable image
\ Copyright (C) 1996-1997 Free Software Foundation, Inc.
\ Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
@ECHO OFF
REM Copyright 1995 Free Software Foundation, Inc.
REM Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
REM
REM This file is part of Gforth.
REM
......
/*
Copyright 1996-1997 Free Software Foundation, Inc.
Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
dnl Process this file with autoconf to produce a configure script.
#Copyright (C) 1995,1996 Free Software Foundation, Inc.
#Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
#This file is part of Gforth.
......
\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ DEBUG.FS Debugger 12jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ Simple debugging aids
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ MS-DOS key interpreter 17oct94py
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ documentation source to texi format converter
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
\ builttag.fs
\ Copyright (C) 1998 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
\ 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.
variable builtnr
create linebuf 200 chars allot
create filename 200 chars allot
......
\ ???
\ Copyright (C) 1998 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
\ 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.
\ for 16 bit machines only
......
\ mirror.fs mirrors ram in rom and copies back at startup
\ Copyright (C) 1998 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
\ 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.
0 [IF]
For the romable feature:
......
\ mirror.fs mirrors ram in rom and copies back at startup
\ Copyright (C) 1998 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
\ 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.
0 [IF]
For the romable feature:
......
\ mirror.fs mirrors ram in rom and copies back at startup
\ Copyright (C) 1998 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
\ 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.
0 [IF]
For the romable feature:
......
\ nesting.fs displays nesting for primitive trace 12jun97jaw
\ Copyright (C) 1998 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
\ 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.
Variable nestlevel
: main
......
\ shex.fs Output Routines for Motorola S-Records 16jul97jaw
\ Copyright (C) 1998 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
\ 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.
\ this is a extention to cross.fs to save motorola s-records
\ the first part is generic to output s-records from and to any
\ destination
......
/*
This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
It only supports indirect threading.
Copyright (C) 1995 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
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.
*/
/* define this if IEEE singles and doubles are available as C data types */
#define IEEE_FP
/* the IEEE types are used only for loading and storing */
/* the IEEE double precision type */
typedef double DFloat;
/* the IEEE single precision type */
typedef float SFloat;
#ifndef USE_FTOS
#ifndef USE_NO_FTOS
/* keep top of FP stack in register. Since most processors have FP
registers and they are hardly used in gforth, this is usually a
good idea. The 88100 has no separate FP regs, but many general
purpose regs, so it should be ok */
#define USE_FTOS
#endif
#endif
/* I don't do the same for the data stack (i.e. USE_TOS), since this
loses on processors with few registers. USE_TOS might be defined in
the processor-specific files */
#ifdef DIRECT_THREADED
/* If you want direct threading, write a .h file for your processor! */
/* We could put some stuff here that causes a compile error, but then
we could not use this file in the other machine.h files */
#endif
#Makefile for the C part of Gforth
#Copyright (C) 1995-1997 Free Software Foundation, Inc.
#Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
#This file is part of Gforth.
......
/* replacement for asinh, acosh, and atanh */
/*
Copyright (C) 1996 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
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.
*/
#include <math.h>
double atanh(double r1)
......
/* alignment-clean replacements for library functions
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1997 Free Software Foundation, Inc.
This file is part of Gforth.
......
/* cheap ecvt replacement */