|
@@ -291,6 +291,9 @@ implementation
|
|
|
ResourceInfo:=TAAsmOutput.Create;
|
|
ResourceInfo:=TAAsmOutput.Create;
|
|
|
if found then
|
|
if found then
|
|
|
begin
|
|
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}
|
|
{$ifdef EXTERNALRESPTRS}
|
|
|
current_module.linkotherofiles.add('resptrs.o',link_allways);
|
|
current_module.linkotherofiles.add('resptrs.o',link_allways);
|
|
|
{$else EXTERNALRESPTRS}
|
|
{$else EXTERNALRESPTRS}
|
|
@@ -299,9 +302,6 @@ implementation
|
|
|
For I:=1 to 32 do
|
|
For I:=1 to 32 do
|
|
|
ResourceInfo.Concat(Tai_const.Create_32bit(0));
|
|
ResourceInfo.Concat(Tai_const.Create_32bit(0));
|
|
|
{$endif EXTERNALRESPTRS}
|
|
{$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
|
|
end
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
michael