Make it compile
diff --git a/src/fs-filo.adb b/src/fs-filo.adb
index 3280b34..591f321 100644
--- a/src/fs-filo.adb
+++ b/src/fs-filo.adb
@@ -1,21 +1,19 @@
package body FS.FILO is
procedure Read
- (Buffer : in out Buffer_Type;
- Offset : in Natural;
- Bytes_Read: out Natural)
+ (Buffer : in out Buffer_Type;
+ Offset : in Natural;
+ Success : out Boolean)
is
- Sector_Size : constant Natural := 512;
- Sector : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
- Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
- Byte_Len : constant Interfaces.C.unsigned_long := Buffer'Length;
+ --Sector_Size : constant Natural := 512;
+ --Sector : constant Interfaces.C.unsigned_long := Offset / Sector_Size;
+ --Byte_Offset : constant Interfaces.C.unsigned_long := Offset rem Sector_Size;
+ --Byte_Len : constant Interfaces.C.unsigned_long := Buffer'Length;
+ --function To_Bool(Item : Interfaces.C.int) return Bool is
+ -- (if Item = 0 then False else True);
begin
-
- Bytes_Read := C_devread
- (sector => Sector,
- byte_offset => Byte_Offset,
- byte_len => Byte_Len,
- buf => Buffer'Address);
+ null;
+ --Success := To_Bool (C_devread (Sector, Byte_Offset, Byte_Len, Buffer'Address));
end Read;
end FS.FILO;