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

* long symbol name fix merged

Browse Source
This commit is contained in:
peter 2002-12-06 17:50:39 +00:00
parent 8a5d95d911
commit 5fffe4335e
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aggas.pas
View File

@ -302,7 +302,7 @@ var
var
ch : char;
hp : tai;
hp1 : tailineinfo;
hp1 : tailineinfo;
consttyp : taitype;
s : string;
found : boolean;
@ -468,7 +468,8 @@ var
ait_const_symbol :
begin
AsmWrite(#9'.long'#9+tai_const_symbol(hp).sym.name);
AsmWrite(#9'.long'#9);
AsmWrite(tai_const_symbol(hp).sym.name);
if tai_const_symbol(hp).offset>0 then
AsmWrite('+'+tostr(tai_const_symbol(hp).offset))
else if tai_const_symbol(hp).offset<0 then
@ -477,7 +478,10 @@ var
end;
ait_const_rva :
AsmWriteLn(#9'.rva'#9+tai_const_symbol(hp).sym.name);
begin
AsmWrite(#9'.rva'#9);
AsmWriteLn(tai_const_symbol(hp).sym.name);
end;
ait_real_80bit :
begin
@ -815,7 +819,10 @@ var
end.
{
$Log$
Revision 1.16 2002-11-17 16:31:55 carl
Revision 1.17 2002-12-06 17:50:39 peter
* long symbol name fix merged
Revision 1.16 2002/11/17 16:31:55 carl
* memory optimization (3-4%) : cleanup of tai fields,
cleanup of tdef and tsym fields.
* make it work for m68k