paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 09:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Pointer to FPC_RESSYMBOL not in fpc.resptr section

Browse Source 
git-svn-id: trunk@962 -
This commit is contained in:
michael 2005-08-28 15:36:17 +00:00
parent 2ed95f4a75
commit d93edfdf13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pmodules.pas
View File

@ -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