TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
THREADSLIB = -lpthread
GNATLIB_SHARED = gnatlib-shared-dual
endif
ifeq ($(strip $(filter-out lynxos,$(osys))),)
- TOOLS_TARGET_PAIRS=mlib-tgt.adb<mlib-tgt-lynxos.adb
+ TOOLS_TARGET_PAIRS = \
+ mlib-tgt.adb<mlib-tgt-lynxos.adb \
+ indepsw.adb<indepsw-gnu.adb
ifeq ($(strip $(filter-out %86 lynxos,$(arch) $(osys))),)
LIBGNAT_TARGET_PAIRS = \
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
THREADSLIB = -lpthread
GNATLIB_SHARED = gnatlib-shared-dual
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
THREADSLIB = -lpthread
GNATLIB_SHARED = gnatlib-shared-dual
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
THREADSLIB = -lpthread
GNATLIB_SHARED = gnatlib-shared-dual
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
MISCLIB=
THREADSLIB=-lpthread
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
MISCLIB=
THREADSLIB=-lpthread
TOOLS_TARGET_PAIRS = \
mlib-tgt.adb<mlib-tgt-linux.adb \
- indepsw.adb<indepsw-linux.adb
+ indepsw.adb<indepsw-gnu.adb
THREADSLIB=-lpthread
GNATLIB_SHARED=gnatlib-shared-dual
--- /dev/null
+------------------------------------------------------------------------------
+-- --
+-- GNAT COMPILER COMPONENTS --
+-- --
+-- I N D E P S W --
+-- --
+-- B o d y --
+-- (GNU version) --
+-- --
+-- Copyright (C) 2005 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, 51 Franklin Street, Fifth Floor, --
+-- Boston, MA 02110-1301, 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 is the GNU ld version
+
+package body Indepsw is
+
+ Map_Switch : aliased constant String := "-Wl,-Map,";
+
+ -------------
+ -- Convert --
+ -------------
+
+ procedure Convert
+ (Switch : Switch_Kind;
+ Argument : String;
+ To : out String_List_Access)
+ is
+ begin
+ case Switch is
+ when Map_File =>
+ To := new Argument_List'(1 => new String'(Map_Switch & Argument));
+ end case;
+ end Convert;
+
+ ------------------
+ -- Is_Supported --
+ ------------------
+
+ function Is_Supported (Switch : Switch_Kind) return Boolean is
+ begin
+ case Switch is
+ when Map_File =>
+ return True;
+ end case;
+ end Is_Supported;
+
+end Indepsw;
+++ /dev/null
-------------------------------------------------------------------------------
--- --
--- GNAT COMPILER COMPONENTS --
--- --
--- I N D E P S W --
--- --
--- B o d y --
--- (GNU/Linux version) --
--- --
--- Copyright (C) 2004 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, 51 Franklin Street, Fifth Floor, --
--- Boston, MA 02110-1301, 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 is the GNU/Linux version
-
-package body Indepsw is
-
- Map_Switch : aliased constant String := "-Wl,-Map,";
-
- -------------
- -- Convert --
- -------------
-
- procedure Convert
- (Switch : Switch_Kind;
- Argument : String;
- To : out String_List_Access)
- is
- begin
- case Switch is
- when Map_File =>
- To := new Argument_List'(1 => new String'(Map_Switch & Argument));
- end case;
- end Convert;
-
- ------------------
- -- Is_Supported --
- ------------------
-
- function Is_Supported (Switch : Switch_Kind) return Boolean is
- begin
- case Switch is
- when Map_File =>
- return True;
- end case;
- end Is_Supported;
-
-end Indepsw;