diff options
Diffstat (limited to 'gcc/ada/mlib.ads')
| -rw-r--r-- | gcc/ada/mlib.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/mlib.ads b/gcc/ada/mlib.ads index ed0ffc1..684e6e7 100644 --- a/gcc/ada/mlib.ads +++ b/gcc/ada/mlib.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2007, AdaCore -- +-- Copyright (C) 1999-2008, AdaCore -- -- -- -- 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- -- @@ -40,8 +40,7 @@ package MLib is -- Maximum number of characters in a library name. -- Used by Check_Library_Name below. - type Fail_Proc is access procedure - (S1 : String; S2 : String := ""; S3 : String := ""); + type Fail_Proc is access procedure (S1 : String); Fail : Fail_Proc := Osint.Fail'Access; -- This procedure is used in the MLib hierarchy, instead of |