diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-10-31 19:01:11 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:01:11 +0100 |
| commit | 2d6a1685fa6007072522a8531e204ca118854f5b (patch) | |
| tree | 256e6d71a6992c08fb3dfd7d84fe2ec7402595c2 | |
| parent | 30f41abaecc1914140134b0f97619fa4dc9c90c9 (diff) | |
| download | gcc-2d6a1685fa6007072522a8531e204ca118854f5b.zip gcc-2d6a1685fa6007072522a8531e204ca118854f5b.tar.gz gcc-2d6a1685fa6007072522a8531e204ca118854f5b.tar.bz2 | |
g-spipat.adb (S_To_PE): Remove incorrect use of 0 instead of Str'First
2006-10-31 Robert Dewar <dewar@adacore.com>
* g-spipat.adb (S_To_PE): Remove incorrect use of 0 instead of Str'First
From-SVN: r118282
| -rw-r--r-- | gcc/ada/g-spipat.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index 8a5375d..a7a3af6 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -3431,7 +3431,7 @@ package body GNAT.Spitbol.Patterns is return new PE'(PC_Null, 1, EOP); when 1 => - return new PE'(PC_Char, 1, EOP, Str (1)); + return new PE'(PC_Char, 1, EOP, Str (Str'First)); when 2 => return new PE'(PC_String_2, 1, EOP, Str); |