Move shared types into FILO package
diff --git a/src/filo-fs.ads b/src/filo-fs.ads
index 1ed5cf5..183b1f7 100644
--- a/src/filo-fs.ads
+++ b/src/filo-fs.ads
@@ -5,12 +5,6 @@
package FILO.FS is
- type Partition_Length is range 0 .. Interfaces.Unsigned_64'Last;
- subtype Partition_Offset is Partition_Length range 0 .. Partition_Length'Last - 1;
-
- BLOCK_SIZE : constant := 512;
- type Block_Offset is range 0 .. Partition_Offset'Last / BLOCK_SIZE;
-
type File_Length is range 0 .. int'Last; -- Should be higher, fix FILO first
subtype File_Offset is File_Length;
diff --git a/src/filo.ads b/src/filo.ads
index b85fa19..c0a7e3d 100644
--- a/src/filo.ads
+++ b/src/filo.ads
@@ -4,6 +4,12 @@
package FILO is
+ type Partition_Length is range 0 .. Interfaces.Unsigned_64'Last;
+ subtype Partition_Offset is Partition_Length range 0 .. Partition_Length'Last - 1;
+
+ BLOCK_SIZE : constant := 512;
+ type Block_Offset is range 0 .. Partition_Offset'Last / BLOCK_SIZE;
+
subtype Index_Type is Natural range 0 .. Natural'Last - 1;
subtype Index_Type16 is Index_Type range 0 .. Index_Type'Last - 1;
subtype Index_Type32 is Index_Type16 range 0 .. Index_Type16'Last - 2;