From 7184d30fc1a4756d10ee14e5b6ea368c8b1befd8 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 1 Sep 2005 16:57:03 +0000
Subject: [PATCH] + Fixed bootstrap problem for resources
git-svn-id: trunk@1013 -
---
compiler/options.pas | 1 +
rtl/inc/elfres32.inc | 4 ++++
2 files changed, 5 insertions(+)
diff --git a/compiler/options.pas b/compiler/options.pas
index 3434f19d62..a999fe0619 100644
--- a/compiler/options.pas
+++ b/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');
diff --git a/rtl/inc/elfres32.inc b/rtl/inc/elfres32.inc
index 4e0f77fe55..56d7a5600d 100644
--- a/rtl/inc/elfres32.inc
+++ b/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;