22 lines
947 B
Text
22 lines
947 B
Text
$NetBSD: patch-ar,v 1.1 2004/05/28 22:28:09 shannonjr Exp $
|
|
|
|
--- gcc/ada/osint.ads.orig 2002-10-23 01:33:27.000000000 -0600
|
|
+++ gcc/ada/osint.ads
|
|
@@ -195,6 +195,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 --
|
|
-------------------------
|