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

Fix compilation failure for systems that do not have dynlibs

Browse Source 
git-svn-id: trunk@37056 -
This commit is contained in:
pierre 2017-08-25 07:28:35 +00:00
parent 4d5a94644f
commit e325284160
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -718,7 +718,11 @@ begin
end; end;
{$else} {$else}
begin begin
{$ifdef FPC_HAS_FEATURE_DYNLIBS}
Result:=System.SafeLoadLibrary(FileName); Result:=System.SafeLoadLibrary(FileName);
{$else}
Result:=HModule(nil);
{$endif not FPC_HAS_FEATURE_DYNLIBS}
end; end;
{$endif} {$endif}