folkert/Ethy_Soft
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Folkert Kevelam 2025-06-28 21:47:09 +02:00
parent c73b6c56c7
commit 36825506d6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
runtime/adainclude/system-storage_elements.ads
View File

@ -1,7 +1,7 @@
package System.Storage_Elements package System.Storage_Elements
with Pure is with Pure is
type Storage_Offset is range type Storage_Offset is range
-2 ** (Word_Size - 1) .. -2 ** (Word_Size - 1) ..
2 ** (Word_Size - 1) - 1; 2 ** (Word_Size - 1) - 1;
subtype Storage_Count is Storage_Offset range 0 .. Storage_Offset'Last; subtype Storage_Count is Storage_Offset range 0 .. Storage_Offset'Last;