summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/packrat-errors.adb6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/packrat-errors.adb b/src/packrat-errors.adb
index 62a96a7..82f02f9 100644
--- a/src/packrat-errors.adb
+++ b/src/packrat-errors.adb
@@ -26,7 +26,7 @@ package body Errors is
is
Raw : String := Integer'Image (Num);
begin
- return Raw (1 + 1 .. Raw'Length);
+ return Raw (Raw'First + 1 .. Raw'Last);
end Image;
@@ -188,12 +188,12 @@ package body Errors is
end if;
end;
P_Place := P_Place + 1;
- if P_Place > Check'Length or else not Is_Digit (Check (P_Place)) then
+ if P_Place > Check'Last or else not Is_Digit (Check (P_Place)) then
return False;
end if;
loop
P_Place := P_Place + 1;
- exit when P_Place > Check'Length or else not Is_Digit (Check (P_Place));
+ exit when P_Place > Check'Last or else not Is_Digit (Check (P_Place));
end loop;
S_Place := P_Place;
end loop;