paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 20:20:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* support rodata like data when writing ordinal cosnts

Browse Source
This commit is contained in:
peter 2004-10-24 13:35:25 +00:00
parent ea6715c207
commit fcde2cab80
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aggas.pas
View File

@ -318,6 +318,7 @@ var
if copy(s,1,4)='.gnu' then
begin
case atype of
sec_rodata,
sec_data :
AsmWrite(',""');
sec_code :
@ -331,6 +332,7 @@ var
case atype of
sec_code :
n_line:=n_textline;
sec_rodata,
sec_data :
n_line:=n_dataline;
sec_bss :
@ -583,10 +585,14 @@ var
s:=tostr(tai_const(hp).value);
AsmWrite(s);
inc(l,length(s));
if (LasTSecType<>sec_data) or
{ Values with symbols are written on a single line to improve
reading of the .s file (PFV) }
if assigned(tai_const(hp).sym) or
not(LasTSecType in [sec_data,sec_rodata]) or
(l>line_length) or
(hp.next=nil) or
(tai(hp.next).typ<>consttyp) then
(tai(hp.next).typ<>consttyp) or
assigned(tai_const(hp.next).sym) then
break;
hp:=tai(hp.next);
AsmWrite(',');
@ -980,7 +986,10 @@ var
end.
{
$Log$
Revision 1.60 2004-10-14 16:49:14 mazen
Revision 1.61 2004-10-24 13:35:25 peter
* support rodata like data when writing ordinal cosnts
Revision 1.60 2004/10/14 16:49:14 mazen
* Merge is complete for this file, cycles !
Revision 1.59 2004/09/26 17:45:29 peter