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

* fix section names

Browse Source
This commit is contained in:
peter 2005-01-18 17:49:45 +00:00
parent 35d252cae4
commit ba4228d281
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i386/ag386nsm.pas
View File

@ -368,7 +368,9 @@ interface
AsmLn;
AsmWrite('SECTION ');
AsmWrite(secnames[atype]);
if (atype<>sec_bss) and (aname<>'') then
if use_smartlink_section and
(atype<>sec_bss) and
(aname<>'') then
begin
AsmWrite('.');
AsmWrite(aname);
@ -906,7 +908,10 @@ initialization
end.
{
$Log$
Revision 1.50 2004-10-31 21:45:03 peter
Revision 1.51 2005-01-18 17:49:45 peter
* fix section names
Revision 1.50 2004/10/31 21:45:03 peter
* generic tlocation
* move tlocation to cgutils