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

* write basic attributes for riscvXX-linux

Browse Source
This commit is contained in:
florian 2024-12-30 15:56:03 +01:00
parent a16f2ae35d
commit 40f9d006d6
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/aggas.pas
View File

@ -1653,6 +1653,23 @@ implementation
end; end;
end; end;
ait_attribute:
begin
case tai_attribute(hp).eattr_typ of
eattrtype_dword:
writer.AsmWrite(#9'.attribute '+tostr(tai_attribute(hp).tag)+','+tostr(tai_attribute(hp).value));
eattrtype_ntbs:
begin
if assigned(tai_attribute(hp).valuestr) then
writer.AsmWrite(#9'.attribute '+tostr(tai_attribute(hp).tag)+',"'+tai_attribute(hp).valuestr^+'"')
else
writer.AsmWrite(#9'.attribute '+tostr(tai_attribute(hp).tag)+',""');
end
else
Internalerror(2024123001);
end;
writer.AsmLn;
end;
{$ifdef WASM} {$ifdef WASM}
ait_local: ait_local:
WriteWasmLocalDirective(tai_local(hp)); WriteWasmLocalDirective(tai_local(hp));

11
compiler/riscv/nrvutil.pas
View File

@ -41,6 +41,14 @@ implementation
systems, systems,
aasmdata,aasmtai; aasmdata,aasmtai;
const
tag_stack_align = 4;
tag_arch = 5;
tag_unaligned_access = 6;
tag_priv_spec = 8;
tag_priv_spec_minor = 10;
tag_priv_spec_revision = 12;
class procedure trvnodeutils.InsertObjectInfo; class procedure trvnodeutils.InsertObjectInfo;
begin begin
inherited InsertObjectInfo; inherited InsertObjectInfo;
@ -50,6 +58,9 @@ implementation
current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'pic')) current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'pic'))
else else
current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'nopic')); current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'nopic'));
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_attribute,tag_stack_align,target_info.stackalign));
current_asmdata.asmlists[al_start].Concat(tai_attribute.create(ait_attribute,tag_unaligned_access,0));
end; end;
end; end;