From: Robert Dewar <dewar@adacore.com>
Date: Tue, 31 Oct 2006 18:01:11 +0000 (+0100)
Subject: g-spipat.adb (S_To_PE): Remove incorrect use of 0 instead of Str'First
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2d6a1685fa6007072522a8531e204ca118854f5b;p=gcc.git

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
---

diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb
index 8a5375ddd6f..a7a3af690e4 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);