diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:34:18 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-01-03 16:34:18 +0100 |
commit | e6d50a9e9d71a8b5519de675e94e79e72be3a150 (patch) | |
tree | 163dcbd1c122008f040766e9e59e37cdd5307c1c /gcc/ada/bld-io.ads | |
parent | 165eab5ffcf0a4ffe7505982de815605f15e4918 (diff) | |
download | gcc-e6d50a9e9d71a8b5519de675e94e79e72be3a150.zip gcc-e6d50a9e9d71a8b5519de675e94e79e72be3a150.tar.gz gcc-e6d50a9e9d71a8b5519de675e94e79e72be3a150.tar.bz2 |
bld.ads, [...]: Remove gpr2make, replaced by gprmake.
* bld.ads, bld.adb, bld-io.ads, bld-io.adb, gprcmd.adb,
gpr2make.ads, gpr2make.adb: Remove gpr2make, replaced by gprmake.
* Makefile.in: Add support to build shared Ada libraries on solaris x86
Remove gpr2make, replaced by gprmake.
Remove references to gnatmem and libaddr2line.
Add indepsw.adb<indepsw-linux.adb to TOOLS_TARGET_PAIRS for IA64 linux.
(gnatlib-shared-darwin): Add "-fno-common" to GNATLIBCFLAGS.
Add support for specialized version of Ada.Numerics.Aux for Darwin: use
a-numaux-darwin.ads and a-numaux-darwin.adb
Enable mlib-tgt-lynxos.adb on lynxos.
* Make-lang.in: Remove rules for gpr2make.
When generating sdefault.adb, do not call Relocate_Path
on S3 for function Target_Name, as it is not a path.
Remove references to gnatmem and libaddr2line.
* a-numaux-darwin.ads, a-numaux-darwin.adb, g-soccon-darwin.ads: New
files.
From-SVN: r92831
Diffstat (limited to 'gcc/ada/bld-io.ads')
-rw-r--r-- | gcc/ada/bld-io.ads | 73 |
1 files changed, 0 insertions, 73 deletions
diff --git a/gcc/ada/bld-io.ads b/gcc/ada/bld-io.ads deleted file mode 100644 index c5df627..0000000 --- a/gcc/ada/bld-io.ads +++ /dev/null @@ -1,73 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- B L D - I O -- --- -- --- S p e c -- --- -- --- Copyright (C) 2002 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. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- The following private package allows the ouput of text to Makefiles --- though buffers. It is possible to remove some lines from the buffers --- without putting them effectively in the Makefile. - -private package Bld.IO is - - procedure Create (File_Name : String); - -- Create a new Makefile - - procedure Flush; - -- Output all not suppressed lines to the Makefile - - procedure Close; - -- Close the current Makefile - - procedure Delete_All; - -- Delete all the Makefiles that have been created - - function Name_Of_File return String; - -- Return the path name of the current Makefile - - type Position is private; - -- Identification of a line in the Makefile - - procedure Mark (Pos : out Position); - -- Record the current line. - -- No characters should have been already put on this line. - - procedure Release (Pos : Position); - -- Suppress all line after this one, including this one. - - procedure Suppress (Pos : Position); - -- Suppress a particular line - - procedure Put (S : String); - -- Append a string to the current line - - procedure New_Line; - -- End a line. Go to the next one (initially empty). - -private - - type Position is record - Value : Positive := 1; - end record; - -end Bld.IO; |