diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 13:22:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 13:22:34 +0000 |
| commit | ad73b39701cd115f28e1a536c66d4a999de3f55c (patch) | |
| tree | 0d62b778459616a301d7b5a24088c9a2ab8f5158 /gcc/ada/a-stzsea.adb | |
| parent | 1df25d19eea2f5f00fb28299c16e92d6f44cb1ff (diff) | |
| download | gcc-ad73b39701cd115f28e1a536c66d4a999de3f55c.tar.gz | |
2009-07-07 Robert Dewar <dewar@adacore.com>
* s-osprim-mingw.adb: Minor reformatting
Minor code reorganization
* a-stzsea.adb, a-stwise.adb, a-strsea.adb (Index): Redo previous change
(Ind should be Integer).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149327 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-stzsea.adb')
| -rw-r--r-- | gcc/ada/a-stzsea.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/ada/a-stzsea.adb b/gcc/ada/a-stzsea.adb index d6341ae1200..4947896809c 100644 --- a/gcc/ada/a-stzsea.adb +++ b/gcc/ada/a-stzsea.adb @@ -237,7 +237,7 @@ package body Ada.Strings.Wide_Wide_Search is return Natural is PL1 : constant Integer := Pattern'Length - 1; - Ind : Natural; + Ind : Integer; -- can be negative if Pattern'Length > Source'Length Cur : Natural; begin @@ -245,12 +245,6 @@ package body Ada.Strings.Wide_Wide_Search is raise Pattern_Error; end if; - -- If Pattern longer than Source it can't be found - - if Pattern'Length > Source'Length then - return 0; - end if; - -- Forwards case if Going = Forward then |