diff options
Diffstat (limited to 'gcc/ada/a-strsea.adb')
| -rw-r--r-- | gcc/ada/a-strsea.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/a-strsea.adb b/gcc/ada/a-strsea.adb index c4e4d5db54b..538add18d6d 100644 --- a/gcc/ada/a-strsea.adb +++ b/gcc/ada/a-strsea.adb @@ -1,6 +1,6 @@ ------------------------------------------------------------------------------ -- -- --- GNAT RUNTIME COMPONENTS -- +-- GNAT RUN-TIME COMPONENTS -- -- -- -- A D A . S T R I N G S . S E A R C H -- -- -- @@ -37,7 +37,6 @@ -- case of identity mappings for Count and Index, and also Index_Non_Blank -- is specialized (rather than using the general Index routine). - with Ada.Strings.Maps; use Ada.Strings.Maps; package body Ada.Strings.Search is @@ -217,7 +216,6 @@ package body Ada.Strings.Search is Cur_Index : Natural; Mapped_Source : String (Source'Range); - begin if Pattern = "" then raise Pattern_Error; |