+++ /dev/null
-------------------------------------------------------------------------------
--- --
--- GNAT COMPILER COMPONENTS --
--- --
--- H O S T P A R M --
--- --
--- S p e c --
--- --
--- $Revision: 1.1.16.1 $
--- --
--- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
--- --
--- GNAT is free software; you can redistribute it and/or modify it under --
--- terms of the GNU General Public License as published by the Free Soft- --
--- ware Foundation; either version 2, or (at your option) any later ver- --
--- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
--- OUT 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 distributed with GNAT; see file COPYING. If not, write --
--- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, --
--- MA 02111-1307, USA. --
--- --
--- As a special exception, if other files instantiate generics from this --
--- unit, or you link this unit with other files to produce an executable, --
--- this unit does not by itself cause the resulting executable to be --
--- covered by the GNU General Public License. This exception does not --
--- however invalidate any other reasons why the executable file might be --
--- covered by the GNU Public License. --
--- --
--- GNAT was originally developed by the GNAT team at New York University. --
--- Extensive contributions were provided by Ada Core Technologies Inc. --
--- --
-------------------------------------------------------------------------------
-
--- This package defines some system dependent parameters for GNAT. These
--- are parameters that are relevant to the host machine on which the
--- compiler is running, and thus this package is part of the compiler.
-
-package Hostparm is
-pragma Preelaborate (Hostparm);
-
- -----------------------
- -- TARGET Parameters --
- -----------------------
-
- -- ??? The following should really be moved to a Target package
-
- Java_VM : constant Boolean := False;
- -- Set true when compiling the JGNAT tool chain (compiler, gnatmake, etc)
-
- ---------------------
- -- HOST Parameters --
- ---------------------
-
- OpenVMS : Boolean := False;
- -- Set True for OpenVMS host. See also OpenVMS target boolean in
- -- 5vsystem.ads and OpenVMS_On_Target boolean in Targparm. This is
- -- not a constant, because it can be modified by -gnatdm.
-
- Normalized_CWD : constant String := "./";
- -- Normalized string to access current directory
-
- Max_Line_Length : constant := 255;
- -- Maximum source line length. This can be set to any value up to
- -- 2**15 - 1, a limit imposed by the assumption that column numbers
- -- can be stored in 16 bits (see Types.Column_Number). A value of
- -- 200 is the minimum value required (RM 2.2(15)), but we use 255
- -- for most GNAT targets since this is DEC Ada compatible.
-
- Max_Name_Length : constant := 1024;
- -- Maximum length of unit name (including all dots, and " (spec)") and
- -- of file names in the library, must be at least Max_Line_Length, but
- -- can be larger.
-
- Max_Instantiations : constant := 4000;
- -- Maximum number of instantiations permitted (to stop runaway cases
- -- of nested instantiations). These situations probably only occur in
- -- specially concocted test cases.
-
- Tag_Errors : constant Boolean := False;
- -- If set to true, then brief form error messages will be prefaced by
- -- the string "error:". Used as default for Opt.Unique_Error_Tag.
-
- Exclude_Missing_Objects : constant Boolean := True;
- -- If set to true, gnatbind will exclude from consideration all
- -- non-existent .o files.
-
- Max_Debug_Name_Length : constant := 256;
- -- If a generated qualified debug name exceeds this length, then it
- -- is automatically compressed, regardless of the setting of the
- -- Compress_Debug_Names switch controlled by -gnatC.
-
-end Hostparm;