diff options
Diffstat (limited to 'gcc/ada/makeutl.adb')
| -rw-r--r-- | gcc/ada/makeutl.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 3d0ee62eaed..afddc059b77 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -670,9 +670,9 @@ package body Makeutl is if not Is_Absolute_Path (Sw (Start .. Sw'Last)) then if Parent = null or else Parent'Length = 0 then Do_Fail - ("relative search path switches (""", - Sw, - """) are not allowed"); + ("relative search path switches (""" + & Sw + & """) are not allowed"); else Switch := @@ -688,7 +688,7 @@ package body Makeutl is if not Is_Absolute_Path (Sw) then if Parent = null or else Parent'Length = 0 then Do_Fail - ("relative paths (""", Sw, """) are not allowed"); + ("relative paths (""" & Sw & """) are not allowed"); else Switch := |