Filesystem.FAT: Fix flush and close

AdaCore · Aug 4, 2017 · cad2a50 · cad2a50
1 parent 7b44cf6
commit cad2a50
Showing 1 changed file with 4 additions and 7 deletions.
diff --git a/middleware/src/filesystem/FAT/filesystem-fat-files.adb b/middleware/src/filesystem/FAT/filesystem-fat-files.adb
@@ -543,7 +543,8 @@ package body Filesystem.FAT.Files is
          File.Buffer_Dirty := False;
       end if;
 
-      return OK;
+      return Directories.Update_Entry (Parent => File.Parent,
+                                       Value  => File.D_Entry);
    end Flush;
 
    ----------
@@ -627,13 +628,9 @@ package body Filesystem.FAT.Files is
 
    procedure Close (File : in out FAT_File_Handle)
    is
-      pragma Unreferenced (File);
+      Status : Status_Code with Unreferenced;
    begin
-      null;
---        Status : Status_Code with Unreferenced;
---     begin
---        Status := Directories.Update_Entry (File.Parent, File.D_Entry);
---        Status := Flush (File);
+      Status := Flush (File);
    end Close;
 
 end Filesystem.FAT.Files;