diff --git a/runtime/adainclude/system-storage_elements.ads b/runtime/adainclude/system-storage_elements.ads index 906080e..2a98f3c 100644 --- a/runtime/adainclude/system-storage_elements.ads +++ b/runtime/adainclude/system-storage_elements.ads @@ -1,7 +1,7 @@ package System.Storage_Elements with Pure is - type Storage_Offset is range + type Storage_Offset is range -2 ** (Word_Size - 1) .. 2 ** (Word_Size - 1) - 1; subtype Storage_Count is Storage_Offset range 0 .. Storage_Offset'Last;