Przeglądaj źródła

Allow msdos RTL compilation with -Sfnodynlibs

git-svn-id: trunk@36108 -
pierre 8 lat temu
rodzic
commit
7d0d41be4b
1 zmienionych plików z 4 dodań i 0 usunięć
  1. 4 0
      rtl/msdos/system.pp

+ 4 - 0
rtl/msdos/system.pp

@@ -545,8 +545,12 @@ begin
     SysInitFPU;
     SysInitFPU;
   { To be set if this is a GUI or console application }
   { To be set if this is a GUI or console application }
   IsConsole := TRUE;
   IsConsole := TRUE;
+{$ifdef FPC_HAS_FEATURE_DYNLIBS}
+  { If dynlibs feature is disabled,
+    IsLibrary is a constant, which can thus not be set to a value }
   { To be set if this is a library and not a program  }
   { To be set if this is a library and not a program  }
   IsLibrary := FALSE;
   IsLibrary := FALSE;
+{$endif def FPC_HAS_FEATURE_DYNLIBS}
 { Setup heap }
 { Setup heap }
   InitDosHeap;
   InitDosHeap;
   SysInitExceptions;
   SysInitExceptions;