paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ppudump: Avoid using GetLastOSError on platforms that doesn't support it (e.g. go32v2).

Browse Source 
git-svn-id: trunk@41625 -
This commit is contained in:
yury 2019-03-07 10:18:15 +00:00
parent da4d2e2712
commit 37941d03cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/utils/ppuutils/ppuout.pp
View File

@ -1210,7 +1210,7 @@ begin
while FOutBufPos > 0 do begin while FOutBufPos > 0 do begin
len:=FileWrite(FOutFileHandle, FOutBuf[i], FOutBufPos); len:=FileWrite(FOutFileHandle, FOutBuf[i], FOutBufPos);
if len < 0 then if len < 0 then
raise Exception.CreateFmt('Error writing to file: ', [SysErrorMessage(GetLastOSError)]); raise Exception.CreateFmt('Error writing to file: ', [ {$if declared(GetLastOSError) } SysErrorMessage(GetLastOSError) {$else} 'I/O error' {$endif} ]);
Inc(i, len); Inc(i, len);
Dec(FOutBufPos, len); Dec(FOutBufPos, len);
end; end;