From 36825506d66757d7f117476c5b2069a354c43ba4 Mon Sep 17 00:00:00 2001 From: Folkert Kevelam Date: Sat, 28 Jun 2025 21:47:09 +0200 Subject: [PATCH] Initial commit --- runtime/adainclude/system-storage_elements.ads | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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;