paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 16:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* initise result of SafeLoadLibrary for non-windows

Browse Source 
git-svn-id: trunk@3775 -
This commit is contained in:
Jonas Maebe 2006-06-03 13:46:40 +00:00
parent e4fe73dcf8
commit cb58ac7f18
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysutils.inc
View File

@ -600,6 +600,8 @@ function SafeLoadLibrary(const FileName: AnsiString;
{$endif} {$endif}
{$if defined(windows) or defined(win32)} {$if defined(windows) or defined(win32)}
Result:=LoadLibraryA(PChar(Filename)); Result:=LoadLibraryA(PChar(Filename));
{$else}
Result:=0;
{$endif} {$endif}
finally finally
{$if defined(cpui386) or defined(cpux86_64)} {$if defined(cpui386) or defined(cpux86_64)}