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

* merged from fixes branch

Browse Source
This commit is contained in:
pierre 1999-06-10 23:52:34 +00:00
parent 9a3ab4f61a
commit abaf8ef5ee
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ag386bin.pas
View File

@ -81,7 +81,7 @@ unit ag386bin;
procedure ti386binasmlist.convertstabs(p:pchar);
var
ofs,
nidx,nother,i,line,j : longint;
nidx,nother,ii,i,line,j : longint;
code : integer;
hp : pchar;
reloc : boolean;
@ -100,6 +100,7 @@ unit ag386bin;
while not ((p[i]='"') and (p[i-1]<>'\')) do
inc(i);
p[i]:=#0;
ii:=i;
hp:=@p[1];
s:=StrPas(@P[i+2]);
end
@ -204,7 +205,7 @@ unit ag386bin;
else
objectoutput^.WriteStabs(sec,ofs,hp,nidx,nother,line,reloc);
if assigned(hp) then
p[i]:='"';
p[ii]:='"';
end;
@ -615,16 +616,18 @@ unit ag386bin;
objectoutput^.writesymbol(pai_symbol(hp)^.sym);
ait_datablock :
begin
l:=pai_datablock(hp)^.size;
if l>2 then
objectoutput^.writealign(4)
else if l>1 then
objectoutput^.writealign(2);
objectoutput^.writesymbol(pai_datablock(hp)^.sym);
{$ifdef EXTERNALBSS}
if not pai_datablock(hp)^.is_global then
{$endif}
objectoutput^.writealloc(pai_datablock(hp)^.size);
begin
l:=pai_datablock(hp)^.size;
if l>2 then
objectoutput^.writealign(4)
else if l>1 then
objectoutput^.writealign(2);
objectoutput^.writealloc(pai_datablock(hp)^.size);
end;
end;
ait_const_32bit :
objectoutput^.writebytes(pai_const(hp)^.value,4);
@ -812,7 +815,13 @@ unit ag386bin;
end.
{
$Log$
Revision 1.16 1999-06-03 16:39:10 pierre
Revision 1.17 1999-06-10 23:52:34 pierre
* merged from fixes branch
Revision 1.16.2.1 1999/06/10 23:33:35 pierre
* pchar memory loss and .bss size problem solved
Revision 1.16 1999/06/03 16:39:10 pierre
* EXTERNALBSS fixed for stabs and default again
Revision 1.15 1999/06/02 22:43:59 pierre