ext2: Read inode type and length
diff --git a/src/filo-fs-ext2.ads b/src/filo-fs-ext2.ads
index a789d4b..ac78bc1 100644
--- a/src/filo-fs-ext2.ads
+++ b/src/filo-fs-ext2.ads
@@ -69,7 +69,12 @@
subtype Inode_Size is Positive range 128 .. Positive (Unsigned_16'Last);
subtype Desc_Size is Positive range 32 .. 2 ** 15; -- power-of-2 that fits in 16 bits
+ type Inode_Type is (Dir, Regular, Link, Fast_Link);
+ type Inode_Length is range 0 .. 2 ** 46;
+
type Inode_Info is record
+ Mode : Inode_Type := Inode_Type'First;
+ Size : Inode_Length := 0;
Use_Extents : Boolean := False;
Inline : Buffer_Type (Inode_Extents_Index) := (others => 16#00#);
end record;