diff options
Diffstat (limited to 'gcc/ada/osint.ads')
| -rw-r--r-- | gcc/ada/osint.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/osint.ads b/gcc/ada/osint.ads index eff00dea9b2..4d82c86a5a2 100644 --- a/gcc/ada/osint.ads +++ b/gcc/ada/osint.ads @@ -121,11 +121,11 @@ package Osint is -- Writes name of program as invoked to the current output (normally -- standard output). - procedure Fail (S1 : String; S2 : String := ""; S3 : String := ""); + procedure Fail (S : String); pragma No_Return (Fail); - -- Outputs error messages S1 & S2 & S3 preceded by the name of the - -- executing program and exits with E_Fatal. The output goes to standard - -- error, except if special output is in effect (see Output). + -- Outputs error message S preceded by the name of the executing program + -- and exits with E_Fatal. The output goes to standard error, except if + -- special output is in effect (see Output). function Is_Directory_Separator (C : Character) return Boolean; -- Returns True if C is a directory separator |