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

* write .size only for linux

Browse Source
This commit is contained in:
peter 1999-07-30 12:26:07 +00:00
parent 1715434502
commit 4d419ef8d4
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ag386att.pas
View File

@ -649,10 +649,13 @@ unit ag386att;
ait_symbol_end :
begin
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);
if target_info.target=target_i386_linux then
begin
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);
end;
end;
ait_instruction :
@ -829,7 +832,10 @@ unit ag386att;
end.
{
$Log$
Revision 1.6 1999-07-29 20:53:56 peter
Revision 1.7 1999-07-30 12:26:07 peter
* write .size only for linux
Revision 1.6 1999/07/29 20:53:56 peter
* write .size also
Revision 1.5 1999/07/22 09:37:29 florian