Skip to content

R
riscv-gcc-1
Commit 6c6db94e by Vincent Celier Committed by Arnaud Charlet
Options

mlib-tgt-tru64.adb, [...] (DLL_Prefix): New function 

2005-11-14  Vincent Celier  <celier@adacore.com>

	* mlib-tgt-tru64.adb, mlib-tgt-aix.adb, mlib-tgt-irix.adb,
	mlib-tgt-hpux.adb, mlib-tgt-hpux.adb, mlib-tgt-linux.adb,
	mlib-tgt-solaris.adb, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-alpha.adb,
	mlib-tgt-vms-ia64.adb, mlib-tgt-mingw.adb, mlib-tgt-vxworks.adb,
	mlib-tgt-darwin.adb, mlib-tgt.adb, mlib-tgt.ads,
	mlib-tgt-lynxos.adb (DLL_Prefix): New function

From-SVN: r106953
parent 9ea65354
Showing with 136 additions and 21 deletions
gcc/ada/mlib-tgt-aix.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2003-2005, Ada Core Technologies, Inc. -- -- Copyright (C) 2003-2005, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,15 +28,13 @@ ...@@ -28,15 +28,13 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic or relocatable libraries. -- static, dynamic or relocatable libraries.
-- This is the AIX version of the body. -- This is the AIX version of the body
with Ada.Strings.Fixed; use Ada.Strings.Fixed; with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with GNAT.OS_Lib; use GNAT.OS_Lib;
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
with Namet; use Namet; with Namet; use Namet;
with Osint; use Osint;
with Opt; with Opt;
with Output; use Output; with Output; use Output;
with Prj.Com; with Prj.Com;
...@@ -152,7 +150,7 @@ package body MLib.Tgt is ...@@ -152,7 +150,7 @@ package body MLib.Tgt is
Write_Line (Lib_File); Write_Line (Lib_File);
end if; end if;
-- Look for -lgnarl in Options. If found, set the thread options. -- Look for -lgnarl in Options. If found, set the thread options
for J in Options'Range loop for J in Options'Range loop
if Options (J).all = "-lgnarl" then if Options (J).all = "-lgnarl" then
...@@ -219,6 +217,15 @@ package body MLib.Tgt is ...@@ -219,6 +217,15 @@ package body MLib.Tgt is
return "a"; return "a";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-darwin.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2001-2005, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries. -- static, dynamic and shared libraries.
-- This is the Darwin version of the body. -- This is the Darwin version of the body
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -199,6 +199,15 @@ package body MLib.Tgt is ...@@ -199,6 +199,15 @@ package body MLib.Tgt is
return "dylib"; return "dylib";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-hpux.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2003-2005, Ada Core Technologies, Inc. -- -- Copyright (C) 2003-2005, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- libraries (static only on HP-UX). -- libraries (static only on HP-UX).
-- This is the HP-UX version of the body. -- This is the HP-UX version of the body
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -197,6 +197,15 @@ package body MLib.Tgt is ...@@ -197,6 +197,15 @@ package body MLib.Tgt is
return "sl"; return "sl";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-irix.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2003-2005, Ada Core Technologies, Inc. -- -- Copyright (C) 2003-2005, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries. -- static, dynamic and shared libraries.
-- This is the IRIX version of the body. -- This is the IRIX version of the body
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -235,6 +235,15 @@ package body MLib.Tgt is ...@@ -235,6 +235,15 @@ package body MLib.Tgt is
return "so"; return "so";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-linux.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- -- Copyright (C) 2001-2005, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries. -- static, dynamic and shared libraries.
-- This is the GNU/Linux version of the body. -- This is the GNU/Linux version of the body
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -194,6 +194,15 @@ package body MLib.Tgt is ...@@ -194,6 +194,15 @@ package body MLib.Tgt is
return "so"; return "so";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-lynxos.adb
...@@ -125,6 +125,15 @@ package body MLib.Tgt is ...@@ -125,6 +125,15 @@ package body MLib.Tgt is
return ""; return "";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-mingw.adb
...@@ -31,8 +31,6 @@ ...@@ -31,8 +31,6 @@
-- This is the Windows version of the body. Works only with GCC versions -- This is the Windows version of the body. Works only with GCC versions
-- supporting the "-shared" option. -- supporting the "-shared" option.
with GNAT.OS_Lib; use GNAT.OS_Lib;
with Namet; use Namet; with Namet; use Namet;
with Opt; with Opt;
with Output; use Output; with Output; use Output;
...@@ -148,6 +146,15 @@ package body MLib.Tgt is ...@@ -148,6 +146,15 @@ package body MLib.Tgt is
return "dll"; return "dll";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-solaris.adb
...@@ -191,6 +191,15 @@ package body MLib.Tgt is ...@@ -191,6 +191,15 @@ package body MLib.Tgt is
return "so"; return "so";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-tru64.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2002-2005 Free Software Foundation, Inc. -- -- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
-- This package provides a set of target dependent routines to build -- This package provides a set of target dependent routines to build
-- static, dynamic and shared libraries. -- static, dynamic and shared libraries.
-- This is the True64 version of the body. -- This is the True64 version of the body
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -201,6 +201,15 @@ package body MLib.Tgt is ...@@ -201,6 +201,15 @@ package body MLib.Tgt is
return "so"; return "so";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-vms-alpha.adb
...@@ -30,7 +30,6 @@ ...@@ -30,7 +30,6 @@
with Ada.Characters.Handling; use Ada.Characters.Handling; with Ada.Characters.Handling; use Ada.Characters.Handling;
with GNAT.Directory_Operations; use GNAT.Directory_Operations; with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.OS_Lib; use GNAT.OS_Lib;
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -540,6 +539,15 @@ package body MLib.Tgt is ...@@ -540,6 +539,15 @@ package body MLib.Tgt is
return "exe"; return "exe";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-vms-ia64.adb
...@@ -30,7 +30,6 @@ ...@@ -30,7 +30,6 @@
with Ada.Characters.Handling; use Ada.Characters.Handling; with Ada.Characters.Handling; use Ada.Characters.Handling;
with GNAT.Directory_Operations; use GNAT.Directory_Operations; with GNAT.Directory_Operations; use GNAT.Directory_Operations;
with GNAT.OS_Lib; use GNAT.OS_Lib;
with MLib.Fil; with MLib.Fil;
with MLib.Utl; with MLib.Utl;
...@@ -573,6 +572,15 @@ package body MLib.Tgt is ...@@ -573,6 +572,15 @@ package body MLib.Tgt is
return "exe"; return "exe";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt-vxworks.adb
...@@ -134,6 +134,15 @@ package body MLib.Tgt is ...@@ -134,6 +134,15 @@ package body MLib.Tgt is
return ""; return "";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt.adb
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2001-2005, Ada Core Technologies, Inc. -- -- Copyright (C) 2001-2005, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -120,6 +120,15 @@ package body MLib.Tgt is ...@@ -120,6 +120,15 @@ package body MLib.Tgt is
return ""; return "";
end DLL_Ext; end DLL_Ext;
----------------
-- DLL_Prefix --
----------------
function DLL_Prefix return String is
begin
return "lib";
end DLL_Prefix;
-------------------- --------------------
-- Dynamic_Option -- -- Dynamic_Option --
-------------------- --------------------
......
gcc/ada/mlib-tgt.ads
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2001-2005, Ada Core Technologies, Inc. -- -- Copyright (C) 2001-2005, AdaCore --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -82,6 +82,10 @@ package MLib.Tgt is ...@@ -82,6 +82,10 @@ package MLib.Tgt is
-- System dependent object extension, without leadien dot. -- System dependent object extension, without leadien dot.
-- On Unix, returns "o". -- On Unix, returns "o".
function DLL_Prefix return String;
-- System dependent dynamic library prefix.
-- On Windows, returns "". On other platforms, returns "lib".
function DLL_Ext return String; function DLL_Ext return String;
-- System dependent dynamic library extension, without leading dot. -- System dependent dynamic library extension, without leading dot.
-- On Windows, returns "dll". On Unix, usually returns "so", but not -- On Windows, returns "dll". On Unix, usually returns "so", but not
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment