* fpc_LibInitializeUnits can be empty if the target has no shared lib support

git-svn-id: trunk@18871 -

rtl/inc/system.inc

@@ -809,10 +809,12 @@ procedure internal_initializeunits; external name 'FPC_INITIALIZEUNITS';
 
 procedure fpc_LibInitializeUnits;[public,alias:'FPC_LIBINITIALIZEUNITS'];
 begin
+{$ifdef FPC_HAS_FEATURE_DYNLIBS}
   IsLibrary:=true;
   { must also be set to true for packages when implemented }
   ModuleIsLib:=true;
   internal_initializeunits;
+{$endif FPC_HAS_FEATURE_DYNLIBS}
 end;