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

* relocation with debug info in rva (only with internal compiler)

Browse Source
This commit is contained in:
pierre 1999-12-20 22:29:26 +00:00
parent f3557f20ed
commit c3fb5e5237
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/og386cff.pas
View File

@ -606,6 +606,9 @@ unit og386cff;
{ when the offset is not 0 then write a relocation, take also the { when the offset is not 0 then write a relocation, take also the
hdrstab into account with the offset } hdrstab into account with the offset }
if reloc then if reloc then
if DLLSource then
sects[sec_stab]^.addsectionreloc(sects[sec_stab]^.len-4,s,relative_rva)
else
sects[sec_stab]^.addsectionreloc(sects[sec_stab]^.len-4,s,relative_false); sects[sec_stab]^.addsectionreloc(sects[sec_stab]^.len-4,s,relative_false);
end; end;
@ -653,6 +656,9 @@ unit og386cff;
{ when the offset is not 0 then write a relocation, take also the { when the offset is not 0 then write a relocation, take also the
hdrstab into account with the offset } hdrstab into account with the offset }
if reloc then if reloc then
if DLLSource then
sects[sec_stab]^.addsymreloc(sects[sec_stab]^.len-4,ps,relative_rva)
else
sects[sec_stab]^.addsymreloc(sects[sec_stab]^.len-4,ps,relative_false); sects[sec_stab]^.addsymreloc(sects[sec_stab]^.len-4,ps,relative_false);
end; end;
@ -976,7 +982,10 @@ unit og386cff;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1999-11-30 10:40:43 peter Revision 1.16 1999-12-20 22:29:26 pierre
* relocation with debug info in rva (only with internal compiler)
Revision 1.15 1999/11/30 10:40:43 peter
+ ttype, tsymlist + ttype, tsymlist
Revision 1.14 1999/11/06 14:34:21 peter Revision 1.14 1999/11/06 14:34:21 peter

10
compiler/pmodules.pas
View File

@ -1334,8 +1334,11 @@ unit pmodules;
IsExe:=true; IsExe:=true;
parse_only:=false; parse_only:=false;
{ relocation works only without stabs under win32 !! PM } { relocation works only without stabs under win32 !! PM }
{ internal assembler uses rva for stabs info
so it should work with relocated DLLs }
if RelocSection and if RelocSection and
(target_info.target=target_i386_win32) then (target_info.target=target_i386_win32) and
(target_info.assem<>as_i386_pecoff) then
begin begin
aktglobalswitches:=aktglobalswitches+[cs_link_strip]; aktglobalswitches:=aktglobalswitches+[cs_link_strip];
{ Warning stabs info does not work with reloc section !! } { Warning stabs info does not work with reloc section !! }
@ -1558,7 +1561,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.176 1999-12-10 10:02:53 peter Revision 1.177 1999-12-20 22:29:26 pierre
* relocation with debug info in rva (only with internal compiler)
Revision 1.176 1999/12/10 10:02:53 peter
* only check relocsection for win32 * only check relocsection for win32
Revision 1.175 1999/11/30 10:40:44 peter Revision 1.175 1999/11/30 10:40:44 peter