From d93edfdf13be137f281bb32448a798265ccbbb27 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 28 Aug 2005 15:36:17 +0000
Subject: [PATCH] + Pointer to FPC_RESSYMBOL not in fpc.resptr section

git-svn-id: trunk@962 -
---
 compiler/pmodules.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index 9e999d819a..b9e19bb524 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -291,6 +291,9 @@ implementation
         ResourceInfo:=TAAsmOutput.Create;
         if found then
           begin
+          { Valid pointer to resource information }
+          ResourceInfo.concat(Tai_symbol.Createname_global('FPC_RESLOCATION',AT_DATA,0));
+          ResourceInfo.concat(Tai_const.Createname('FPC_RESSYMBOL',AT_DATA,0));
 {$ifdef EXTERNALRESPTRS}
           current_module.linkotherofiles.add('resptrs.o',link_allways);
 {$else EXTERNALRESPTRS}
@@ -299,9 +302,6 @@ implementation
           For I:=1 to 32 do 
             ResourceInfo.Concat(Tai_const.Create_32bit(0));
 {$endif EXTERNALRESPTRS}
-          { Valid pointer to resource information }
-          ResourceInfo.concat(Tai_symbol.Createname_global('FPC_RESLOCATION',AT_DATA,0));
-          ResourceInfo.concat(Tai_const.Createname('FPC_RESSYMBOL',AT_DATA,0));
           end
         else
           begin