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

+ experimental code for externalbss and stabs problem

Browse Source
This commit is contained in:
pierre 1999-05-19 11:54:17 +00:00
parent b3658d0a51
commit 0838866112
3 changed files with 67 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ag386bin.pas
View File

@ -91,6 +91,7 @@ unit ag386bin;
begin
ofs:=0;
reloc:=true;
ps:=nil;
sec:=sec_none;
if p[0]='"' then
begin
@ -186,7 +187,11 @@ unit ag386bin;
end;
end;
end;
objectoutput^.WriteStabs(sec,ofs,hp,nidx,nother,line,reloc);
{ external bss need speical handling (PM) }
if assigned(ps) and (ps^.section=sec_none) then
objectoutput^.WriteSymStabs(sec,ofs,hp,ps,nidx,nother,line,reloc)
else
objectoutput^.WriteStabs(sec,ofs,hp,nidx,nother,line,reloc);
if assigned(hp) then
p[i]:='"';
end;
@ -820,7 +825,10 @@ unit ag386bin;
end.
{
$Log$
Revision 1.9 1999-05-12 00:19:37 peter
Revision 1.10 1999-05-19 11:54:17 pierre
+ experimental code for externalbss and stabs problem
Revision 1.9 1999/05/12 00:19:37 peter
* removed R_DEFAULT_SEG
* uniform float names

11
compiler/og386.pas
View File

@ -74,6 +74,7 @@ unit og386;
procedure writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);virtual;
procedure writesymbol(p:pasmsymbol);virtual;
procedure writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);virtual;
procedure writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);virtual;
procedure defaultsection(sec:tsection);
end;
@ -264,10 +265,18 @@ unit og386;
RunError(211);
end;
procedure tobjectoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);
begin
RunError(211);
end;
end.
{
$Log$
Revision 1.6 1999-05-07 00:36:56 pierre
Revision 1.7 1999-05-19 11:54:18 pierre
+ experimental code for externalbss and stabs problem
Revision 1.6 1999/05/07 00:36:56 pierre
* added alignment code for .bss
* stabs correct but externalbss disabled
would need a special treatment in writestabs

49
compiler/og386cff.pas
View File

@ -132,7 +132,7 @@ unit og386cff;
procedure writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);virtual;
procedure writesymbol(p:pasmsymbol);virtual;
procedure writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);virtual;
procedure writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);virtual;
function text_flags : longint;virtual;
function data_flags : longint;virtual;
function bss_flags : longint;virtual;
@ -588,6 +588,48 @@ unit og386cff;
end;
procedure tgenericcoffoutput.writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;nidx,nother,line:longint;reloc:boolean);
var
stab : coffstab;
s : tsection;
begin
{ This is wrong because
sec_none is used only for external bss
if section=sec_none then
s:=currsec
else }
s:=section;
{ local var can be at offset -1 !! PM }
if reloc then
begin
if (offset=-1) then
begin
if s=sec_none then
offset:=0
else
offset:=sects[s]^.len;
end;
if (s<>sec_none) then
inc(offset,sects[s]^.mempos);
end;
fillchar(stab,sizeof(coffstab),0);
if assigned(p) and (p[0]<>#0) then
begin
stab.strpos:=sects[sec_stabstr]^.len;
sects[sec_stabstr]^.write(p^,strlen(p)+1);
end;
stab.ntype:=nidx;
stab.ndesc:=line;
stab.nother:=nother;
stab.nvalue:=offset;
sects[sec_stab]^.write(stab,sizeof(stab));
{ when the offset is not 0 then write a relocation, take also the
hdrstab into account with the offset }
if reloc then
sects[sec_stab]^.addsymreloc(0,ps,relative_false);
end;
procedure tgenericcoffoutput.write_relocs(s:pcoffsection);
var
rel : coffreloc;
@ -902,7 +944,10 @@ unit og386cff;
end.
{
$Log$
Revision 1.5 1999-05-09 11:38:05 peter
Revision 1.6 1999-05-19 11:54:19 pierre
+ experimental code for externalbss and stabs problem
Revision 1.5 1999/05/09 11:38:05 peter
* don't write .o and link if errors occure during assembling
Revision 1.4 1999/05/07 00:36:57 pierre