paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 05:07:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ppudump: Fixed formatting of a error message.

Browse Source 
git-svn-id: trunk@41627 -
This commit is contained in:
yury 2019-03-07 10:33:04 +00:00
parent 37941d03cc
commit 54756c0f60
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: ', [ {$if declared(GetLastOSError) } SysErrorMessage(GetLastOSError) {$else} 'I/O error' {$endif} ]); raise Exception.CreateFmt('Error writing to file: %s', [ {$if declared(GetLastOSError) } SysErrorMessage(GetLastOSError) {$else} 'I/O error' {$endif} ]);
Inc(i, len); Inc(i, len);
Dec(FOutBufPos, len); Dec(FOutBufPos, len);
end; end;