aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/bld-io.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2005-01-03 16:34:18 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2005-01-03 16:34:18 +0100
commite6d50a9e9d71a8b5519de675e94e79e72be3a150 (patch)
tree163dcbd1c122008f040766e9e59e37cdd5307c1c /gcc/ada/bld-io.ads
parent165eab5ffcf0a4ffe7505982de815605f15e4918 (diff)
downloadgcc-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.ads73
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;