paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 41627 from trunk:

Browse Source 
* ppudump: Fixed formatting of a error message.
........

git-svn-id: branches/fixes_3_2@41629 -
This commit is contained in:
yury 2019-03-07 10:36:52 +00:00
parent 0d2cb32aad
commit 99c2a15203
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: ', [ {$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);
Dec(FOutBufPos, len);
end;