projects
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
30f41ab
)
g-spipat.adb (S_To_PE): Remove incorrect use of 0 instead of Str'First
author
Robert Dewar
<dewar@adacore.com>
Tue, 31 Oct 2006 18:01:11 +0000
(19:01 +0100)
committer
Arnaud Charlet
<charlet@gcc.gnu.org>
Tue, 31 Oct 2006 18:01:11 +0000
(19:01 +0100)
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
gcc/ada/g-spipat.adb
patch
|
blob
|
history
diff --git
a/gcc/ada/g-spipat.adb
b/gcc/ada/g-spipat.adb
index 8a5375ddd6fd0b7fedfba0383b7ec937e01abdcf..a7a3af690e43f9f2b691bdb971d48272b93ff348 100644
(file)
--- 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);