Explorar o código

Amiga: fix fp.dsk saving

git-svn-id: trunk@35399 -
marcus %!s(int64=8) %!d(string=hai) anos
pai
achega
8e123e7b37
Modificáronse 1 ficheiros con 3 adicións e 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);