Browse Source

+ Pointer to FPC_RESSYMBOL not in fpc.resptr section

git-svn-id: trunk@962 -
michael 20 years ago
parent
commit
d93edfdf13
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/pmodules.pas

+ 3 - 3
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