Explorar el Código

Amiga: fix fp.dsk saving

git-svn-id: trunk@35399 -
marcus hace 8 años
padre
commit
8e123e7b37
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  1. 3 0
      ide/wresourc.pas

+ 3 - 0
ide/wresourc.pas

@@ -780,6 +780,9 @@ begin
       Fail;
     End;
   MyStream:=true;
+  {$ifdef HASAMIGA}
+  Flush;
+  {$endif}
 end;
 
 constructor TResourceFile.LoadFile(AFileName: string);