diff options
Diffstat (limited to 'gcc/ada/makeutl.ads')
| -rw-r--r-- | gcc/ada/makeutl.ads | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gcc/ada/makeutl.ads b/gcc/ada/makeutl.ads index b6483f3e520..705e6e72436 100644 --- a/gcc/ada/makeutl.ads +++ b/gcc/ada/makeutl.ads @@ -32,10 +32,7 @@ with GNAT.OS_Lib; use GNAT.OS_Lib; package Makeutl is - type Fail_Proc is access procedure - (S1 : String; - S2 : String := ""; - S3 : String := ""); + type Fail_Proc is access procedure (S : String); Do_Fail : Fail_Proc := Osint.Fail'Access; -- Failing procedure called from procedure Test_If_Relative_Path below. -- May be redirected. |