paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 18:58:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 41625 from trunk:

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

git-svn-id: branches/fixes_3_2@41626 -
This commit is contained in:
yury 2019-03-07 10:24:25 +00:00
parent 663c97ed23
commit 0d2cb32aad
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
len:=FileWrite(FOutFileHandle, FOutBuf[i], FOutBufPos);
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);
Dec(FOutBufPos, len);
end;