Powered by ViewCVS 1.0-dev
| 1 : | pazsan | 1.10 | /* |
| 2 : | Copyright (C) 1996,1997,1998 Free Software Foundation, Inc. | ||
| 3 : | |||
| 4 : | This file is part of Gforth. | ||
| 5 : | |||
| 6 : | Gforth is free software; you can redistribute it and/or | ||
| 7 : | modify it under the terms of the GNU General Public License | ||
| 8 : | as published by the Free Software Foundation; either version 2 | ||
| 9 : | of the License, or (at your option) any later version. | ||
| 10 : | |||
| 11 : | This program is distributed in the hope that it will be useful, | ||
| 12 : | but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 13 : | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 14 : | GNU General Public License for more details. | ||
| 15 : | |||
| 16 : | You should have received a copy of the GNU General Public License | ||
| 17 : | along with this program; if not, write to the Free Software | ||
| 18 : | Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | ||
| 19 : | */ | ||
| 20 : | say "*** Configuring for OS/2 with EMX 3.0 GNU C ***" | ||
| 21 : | |||
| 22 : | parse arg args | ||
| 23 : | |||
| 24 : | THREAD="i" | ||
| 25 : | FREGS="n" | ||
| 26 : | |||
| 27 : | do while args \== "" | ||
| 28 : | parse var args arg args | ||
| 29 : | |||
| 30 : | select | ||
| 31 : | when arg="--enable-direct-threaded" then THREAD="d" | ||
| 32 : | when arg="--enable-indirect-threaded" then THREAD="i" | ||
| 33 : | when arg="--enable-force-reg" then FREGS="y" | ||
| 34 : | when arg="--help" then do | ||
| 35 : | say "--enable and --with options recognized:" | ||
| 36 : | say " --enable-force-reg Use explicit register declarations if they appear in" | ||
| 37 : | say " the machine.h file. This can cause a good speedup," | ||
| 38 : | say " but also incorrect code with some gcc versions on" | ||
| 39 : | say " some processors (default disabled)." | ||
| 40 : | say " --enable-direct-threaded Force direct threading. This may not work on" | ||
| 41 : | say " some machines and may cause slowdown on others." | ||
| 42 : | say " (default processor-dependent)" | ||
| 43 : | say " --enable-indirect-threaded Force indirect threading. This can cause a" | ||
| 44 : | say " slowdown on some machines." | ||
| 45 : | say " (default processor-dependent)" | ||
| 46 : | end | ||
| 47 : | otherwise | ||
| 48 : | do | ||
| 49 : | say "*** Unknown option:" arg | ||
| 50 : | call Usage | ||
| 51 : | end | ||
| 52 : | end | ||
| 53 : | |||
| 54 : | end | ||
| 55 : | |||
| 56 : | copy makefile.os2 makefile | ||
| 57 : | copy "engine\makefile.os2" "engine\makefile" | ||
| 58 : | copy kernl32l.fi kernel.fi | ||
| 59 : | copy envos.os2 envos.fs | ||
| 60 : | copy os2conf.h "engine\config.h" | ||
| 61 : | if THREAD="i" THEN DO | ||
| 62 : | call lineout "engine\config.h", "#ifndef INDIRECT_THREADED" | ||
| 63 : | call lineout "engine\config.h", "#define INDIRECT_THREADED 1" | ||
| 64 : | call lineout "engine\config.h", "#endif" | ||
| 65 : | end | ||
| 66 : | IF THREAD="d" THEN do | ||
| 67 : | call lineout "engine\config.h", "#ifndef DIRECT_THREADED" | ||
| 68 : | call lineout "engine\config.h", "#define DIRECT_THREADED 1" | ||
| 69 : | call lineout "engine\config.h", "#endif" | ||
| 70 : | end | ||
| 71 : | IF FREGS="y" THEN do | ||
| 72 : | call lineout "engine\config.h", "#ifndef FORCE_REG" | ||
| 73 : | call lineout "engine\config.h", "#define FORCE_REG 1" | ||
| 74 : | call lineout "engine\config.h", "#endif" | ||
| 75 : | end | ||
| 76 : | call lineout version.h1, 'static char gforth_version[]="0.4.0";' | ||
| 77 : | call lineout "kernel\version.fs", ': version-string s" 0.4.0" ;' | ||
| 78 : | call lineout 'version-stamp', '0.4.0' |
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |