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

* add support for constant offset in stabs address, needed by threadvar debugging support

Browse Source
This commit is contained in:
pierre 2003-07-04 22:40:58 +00:00
parent 60d69bd73f
commit 907b785f0d
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/assemble.pas
View File

@ -711,8 +711,26 @@ Implementation
j:=pos(' ',s); j:=pos(' ',s);
if j=0 then if j=0 then
j:=pos('-',s); j:=pos('-',s);
{ single asmsymbol } { also try to handle
asmsymbol + constant
or
asmsymbol - constant }
if j=0 then if j=0 then
j:=pos('+',s);
if j<>0 then
begin
Val(Copy(s,j+1,255),ofs,code);
if code<>0 then
ofs:=0
else
{ constant reading successful,
avoid further treatment by
setting s[j] to '+' }
s[j]:='+';
end
else
{ single asmsymbol }
j:=256; j:=256;
{ the symbol can be external { the symbol can be external
so we must use newasmsymbol and so we must use newasmsymbol and
@ -723,11 +741,11 @@ Implementation
else else
begin begin
sec:=ps.section; sec:=ps.section;
ofs:=ps.address; ofs:=ofs+ps.address;
reloc:=true; reloc:=true;
objectlibrary.UsedAsmSymbolListInsert(ps); objectlibrary.UsedAsmSymbolListInsert(ps);
end; end;
if j<256 then if (j<256) and (s[j]<>'+') then
begin begin
i:=i+j; i:=i+j;
s:=strpas(@p[i]); s:=strpas(@p[i]);
@ -1617,7 +1635,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.52 2003-04-23 13:48:07 peter Revision 1.53 2003-07-04 22:40:58 pierre
* add support for constant offset in stabs address, needed by threadvar debugging support
Revision 1.52 2003/04/23 13:48:07 peter
* m68k fix * m68k fix
Revision 1.51 2003/04/22 14:33:38 peter Revision 1.51 2003/04/22 14:33:38 peter