paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 06:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed compilation (mantis #22413)

Browse Source 
git-svn-id: trunk@21891 -
This commit is contained in:
michael 2012-07-12 08:37:40 +00:00
parent f9cdf3d4ca
commit 1f25547903
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win/dynlibs.inc
View File

@ -57,16 +57,15 @@ end;
Function GetLoadErrorStr: string;
Var
rc : integer;
rc,c : integer;
begin
rc := GetLastError;
try
result := Trim(SysErrorMessage(rc));
if (result='') then
result := 'Operating system error 0x' + IntToHex(rc, 8) + ' (no descriptive text)'
except
result := 'Operating system error 0x' + IntToHex(rc, 8) + ' (error getting descriptive text)'
end;
SetLength(Result,255);
C:=FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM,nil,rc,
MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
@Result[1], 255,nil);
SetLength(Result,c);
end;
{$endif}