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

* symbol name is now written using separate asmwrite() calls to overcome

Browse Source 
> 255 char strings
This commit is contained in:
peter 1999-08-25 16:03:46 +00:00
parent 8dc64344fd
commit 01fc4505c9
1 changed files with 29 additions and 8 deletions

37
compiler/ag386att.pas
View File

@ -631,18 +631,26 @@ unit ag386att;
if (pai_label(hp)^.l^.is_used) then
begin
if pai_label(hp)^.l^.typ=AS_GLOBAL then
AsmWriteLn('.globl'#9+pai_label(hp)^.l^.name);
AsmWriteLn(pai_label(hp)^.l^.name+':');
begin
AsmWrite('.globl'#9);
AsmWriteLn(pai_label(hp)^.l^.name);
end;
AsmWrite(pai_label(hp)^.l^.name);
AsmWriteLn(':');
end;
end;
ait_symbol :
begin
if pai_symbol(hp)^.is_global then
AsmWriteLn('.globl'#9+pai_symbol(hp)^.sym^.name);
begin
AsmWrite('.globl'#9);
AsmWriteLn(pai_symbol(hp)^.sym^.name);
end;
if target_info.target=target_i386_linux then
begin
AsmWrite(#9'.type'#9+pai_symbol(hp)^.sym^.name);
AsmWrite(#9'.type'#9);
AsmWrite(pai_symbol(hp)^.sym^.name);
if assigned(pai(hp^.next)) and
(pai(hp^.next)^.typ in [ait_const_symbol,ait_const_rva,
ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock,
@ -651,9 +659,15 @@ unit ag386att;
else
AsmWriteLn(',@function');
if pai_symbol(hp)^.sym^.size>0 then
AsmWriteLn(#9'.size'#9+pai_symbol(hp)^.sym^.name+', '+tostr(pai_symbol(hp)^.sym^.size));
begin
AsmWrite(#9'.size'#9);
AsmWrite(pai_symbol(hp)^.sym^.name);
AsmWrite(', ');
AsmWriteLn(tostr(pai_symbol(hp)^.sym^.size));
end;
end;
AsmWriteLn(pai_symbol(hp)^.sym^.name+':');
AsmWrite(pai_symbol(hp)^.sym^.name);
AsmWriteLn(':');
end;
ait_symbol_end :
@ -663,7 +677,10 @@ unit ag386att;
s:=target_asm.labelprefix+'e'+tostr(symendcount);
inc(symendcount);
AsmWriteLn(s+':');
AsmWriteLn(#9'.size'#9+pai_symbol(hp)^.sym^.name+', '+s+' - '+pai_symbol(hp)^.sym^.name);
AsmWrite(#9'.size'#9);
AsmWrite(pai_symbol(hp)^.sym^.name);
AsmWrite(', '+s+' - ');
AsmWriteLn(pai_symbol(hp)^.sym^.name);
end;
end;
@ -844,7 +861,11 @@ unit ag386att;
end.
{
$Log$
Revision 1.11 1999-08-25 11:59:32 jonas
Revision 1.12 1999-08-25 16:03:46 peter
* symbol name is now written using separate asmwrite() calls to overcome
> 255 char strings
Revision 1.11 1999/08/25 11:59:32 jonas
* changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.10 1999/08/13 15:44:57 peter