diff options
Diffstat (limited to 'gcc/ada/gnatname.adb')
| -rw-r--r-- | gcc/ada/gnatname.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb index d684551ed91..7e817b5bf03 100644 --- a/gcc/ada/gnatname.adb +++ b/gcc/ada/gnatname.adb @@ -186,7 +186,7 @@ procedure Gnatname is Excluded_Pattern_Expected : Boolean; procedure Check_Regular_Expression (S : String); - -- Compile string S into a Regexp. Fail if any error. + -- Compile string S into a Regexp, fail if any error ----------------------------- -- Check_Regular_Expression-- @@ -199,7 +199,7 @@ procedure Gnatname is Dummy := Compile (S, Glob => True); exception when Error_In_Regexp => - Fail ("invalid regular expression """, S, """"); + Fail ("invalid regular expression """ & S & """"); end Check_Regular_Expression; -- Start of processing for Scan_Args |