Subversion Repositories Kolibri OS

Rev

Rev 763 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 763 Rev 790
Line 150... Line 150...
150 
    KosFile^.Data := @Dummy;
 150 
    KosFile^.Data := @Dummy;
151 
    InOutRes := DecodeErrNo(kos_readfile(KosFile, Dummy));
 151 
    InOutRes := DecodeErrNo(kos_readfile(KosFile, Dummy));
152 
  end;
 152 
  end;
Line 153... Line 153...
153
153
- 
 
 154 
  if InOutRes <> 0 then
154 
  if InOutRes <> 0 then
 155 
  begin
- 
 
 156 
    FreeMem(KosFile);
- 
 
 157 
    FileRec(f).Handle := DWord(-1);
155 
    FreeMem(KosFile);
 158 
  end;