paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/ag386att.pas
View File

@ -631,18 +631,26 @@ unit ag386att;
if (pai_label(hp)^.l^.is_used) then if (pai_label(hp)^.l^.is_used) then
begin begin
if pai_label(hp)^.l^.typ=AS_GLOBAL then if pai_label(hp)^.l^.typ=AS_GLOBAL then
AsmWriteLn('.globl'#9+pai_label(hp)^.l^.name); begin
AsmWriteLn(pai_label(hp)^.l^.name+':'); AsmWrite('.globl'#9);
AsmWriteLn(pai_label(hp)^.l^.name);
end;
AsmWrite(pai_label(hp)^.l^.name);
AsmWriteLn(':');
end; end;
end; end;
ait_symbol : ait_symbol :
begin begin
if pai_symbol(hp)^.is_global then 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 if target_info.target=target_i386_linux then
begin 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 if assigned(pai(hp^.next)) and
(pai(hp^.next)^.typ in [ait_const_symbol,ait_const_rva, (pai(hp^.next)^.typ in [ait_const_symbol,ait_const_rva,
ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock, ait_const_32bit,ait_const_16bit,ait_const_8bit,ait_datablock,
@ -651,9 +659,15 @@ unit ag386att;
else else
AsmWriteLn(',@function'); AsmWriteLn(',@function');
if pai_symbol(hp)^.sym^.size>0 then 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; end;
AsmWriteLn(pai_symbol(hp)^.sym^.name+':'); AsmWrite(pai_symbol(hp)^.sym^.name);
AsmWriteLn(':');
end; end;
ait_symbol_end : ait_symbol_end :
@ -663,7 +677,10 @@ unit ag386att;
s:=target_asm.labelprefix+'e'+tostr(symendcount); s:=target_asm.labelprefix+'e'+tostr(symendcount);
inc(symendcount); inc(symendcount);
AsmWriteLn(s+':'); 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;
end; end;
@ -844,7 +861,11 @@ unit ag386att;
end. end.
{ {
$Log$ $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) * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
Revision 1.10 1999/08/13 15:44:57 peter Revision 1.10 1999/08/13 15:44:57 peter