re PR ada/12950 (Ada runtime is not relocatable)

[gcc.git] / gcc / ada / osint.ads

diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads
index ba58622267544c0c3fa4d37b2befee884d6b0b57..5f137b7c7faa29c02bb39e636deb238d3fe1e3b9 100644 (file)
--- a/gcc/ada/osint.ads
+++ b/gcc/ada/osint.ads
@@ -202,6 +202,17 @@ package Osint is
       return           String_Access;
    --  Convert a canonical syntax file specification to host syntax.
 
+   function Relocate_Path
+     (Prefix : String;
+      Path   : String) return String_Ptr;
+   --  Given an absolute path and a prefix, if Path starts with Prefix,
+   --  replace the Prefix substring with the root installation directory.
+   --  By default, try to compute the root installation directory by looking
+   --  at the executable name as it was typed on the command line and, if
+   --  needed, use the PATH environment variable.
+   --  If the above computation fails, return Path.
+   --  This function assumes that Prefix'First = Path'First
+
    -------------------------
    -- Search Dir Routines --
    -------------------------