diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-05 18:21:45 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2021-11-05 18:21:45 +1300 |
| commit | 6a41f364d8e4222f4cf27d967a89fce509d10aaa (patch) | |
| tree | e2b845dda19159a0e80466bac4cc502967bdae99 | |
| parent | 039971f920c5a3647a33dcee0ded0100c9319223 (diff) | |
Fixed bug in Replace_All
| -rw-r--r-- | src/fmd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fmd.adb b/src/fmd.adb index 8d8fcde..cd512cb 100644 --- a/src/fmd.adb +++ b/src/fmd.adb @@ -170,7 +170,7 @@ package body FMD is loop Position := SU.Index (Text, Item); exit when Position = 0; - SU.Replace_Slice (Text, Position, Position + Sub'Length - 1, Sub); + SU.Replace_Slice (Text, Position, Position + Item'Length - 1, Sub); end loop; end Replace_All; |