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