Initial commit

This commit is contained in:
Folkert Kevelam 2025-06-28 21:47:09 +02:00
parent c73b6c56c7
commit 36825506d6

View File

@ -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;