paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:09:31 +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; AsmLn;
AsmWrite('SECTION '); AsmWrite('SECTION ');
AsmWrite(secnames[atype]); AsmWrite(secnames[atype]);
if (atype<>sec_bss) and (aname<>'') then if use_smartlink_section and
(atype<>sec_bss) and
(aname<>'') then
begin begin
AsmWrite('.'); AsmWrite('.');
AsmWrite(aname); AsmWrite(aname);
@ -906,7 +908,10 @@ initialization
end. end.
{ {
$Log$ $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 * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils