1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- I N D E P S W -- 6-- -- 7-- B o d y -- 8-- (AIX version) -- 9-- -- 10-- Copyright (C) 2009-2020, Free Software Foundation, Inc. -- 11-- -- 12-- GNAT is free software; you can redistribute it and/or modify it under -- 13-- terms of the GNU General Public License as published by the Free Soft- -- 14-- ware Foundation; either version 3, or (at your option) any later ver- -- 15-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 16-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 17-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- 18-- for more details. You should have received a copy of the GNU General -- 19-- Public License distributed with GNAT; see file COPYING3. If not, go to -- 20-- http://www.gnu.org/licenses for a complete copy of the license. -- 21-- -- 22-- GNAT was originally developed by the GNAT team at New York University. -- 23-- Extensive contributions were provided by Ada Core Technologies Inc. -- 24-- -- 25------------------------------------------------------------------------------ 26 27-- This is the AIX version 28 29package body Indepsw is 30 31 Map_Switch : aliased constant String := "-Wl,-b,map:"; 32 33 ------------- 34 -- Convert -- 35 ------------- 36 37 procedure Convert 38 (Switch : Switch_Kind; 39 Argument : String; 40 To : out String_List_Access) 41 is 42 begin 43 case Switch is 44 when Map_File => 45 To := new Argument_List'(1 => new String'(Map_Switch & Argument)); 46 end case; 47 end Convert; 48 49 ------------------ 50 -- Is_Supported -- 51 ------------------ 52 53 function Is_Supported (Switch : Switch_Kind) return Boolean is 54 begin 55 case Switch is 56 when Map_File => 57 return True; 58 end case; 59 end Is_Supported; 60 61end Indepsw; 62