Răsfoiți Sursa

+ Fixed bootstrap problem for resources

git-svn-id: trunk@1013 -
michael 20 ani în urmă
părinte
comite
7184d30fc1
2 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  1. 1 0
      compiler/options.pas
  2. 4 0
      rtl/inc/elfres32.inc

+ 1 - 0
compiler/options.pas

@@ -1829,6 +1829,7 @@ begin
   def_system_macro('FPC_HAS_TYPE_EXTENDED');
   def_system_macro('FPC_HAS_TYPE_DOUBLE');
   def_system_macro('FPC_HAS_TYPE_SINGLE');
+  def_system_macro('FPC_HAS_RESOURCES');
 {$endif}
 {$ifdef m68k}
   def_system_macro('CPU68K');

+ 4 - 0
rtl/inc/elfres32.inc

@@ -41,7 +41,11 @@ type
 
 Var
   InitRes : Boolean = False;
+{$ifdef FPC_HAS_RESOURCES}
   FPCResourceSectionLocation : pFPCResourceSectionTable; external name 'FPC_RESLOCATION';
+{$else}
+  FPCResourceSectionLocation : pFPCResourceSectionTable = Nil;
+{$endif}
   FPCRuntimeResourceInfoArray : PFPCRuntimeResourceInfo;
   ResInfoCount : Cardinal;