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

* Fixed AV in SysErrorMessage() when there is no message string corresponding to a error code. Bug #13617.

Browse Source 
git-svn-id: trunk@13082 -
This commit is contained in:
yury 2009-05-02 14:15:50 +00:00
parent f59d1b1b0b
commit 57e49c4bb9
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/wince/sysutils.pp
View File

@ -604,19 +604,25 @@ var
MsgBuffer: PWideChar;
len: longint;
begin
MsgBuffer:=nil;
len:=FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS,
nil,
ErrorCode,
0,
PWideChar(@MsgBuffer), { This function allocs the memory (in this case you pass a PPwidechar)}
@MsgBuffer, { This function allocs the memory (in this case you pass a PPwidechar)}
0,
nil);
while (len > 0) and (MsgBuffer[len - 1] <= #32) do
Dec(len);
MsgBuffer[len]:=#0;
PWideCharToString(PWideChar(MsgBuffer), Result);
LocalFree(HLOCAL(MsgBuffer));
if MsgBuffer <> nil then begin
while (len > 0) and (MsgBuffer[len - 1] <= #32) do
Dec(len);
MsgBuffer[len]:=#0;
PWideCharToString(MsgBuffer, Result);
LocalFree(HLOCAL(MsgBuffer));
end
else
Result:='';
end;
{****************************************************************************