OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

g-spipat.adb (S_To_PE): Remove incorrect use of 0 instead of Str'First

Browse Source 
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
This commit is contained in:
Robert Dewar 2006-10-31 19:01:11 +01:00 committed by Arnaud Charlet
parent 30f41abaec
commit 2d6a1685fa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/g-spipat.adb
View File

@ -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);