From 40f9d006d6f931f07b2df21849bd8a96776110ea Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 30 Dec 2024 15:56:03 +0100
Subject: [PATCH]   * write basic attributes for riscvXX-linux

---
 compiler/aggas.pas         | 17 +++++++++++++++++
 compiler/riscv/nrvutil.pas | 11 +++++++++++
 2 files changed, 28 insertions(+)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 8b0058068a..d11027ffe7 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -1653,6 +1653,23 @@ implementation
                  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}
            ait_local:
              WriteWasmLocalDirective(tai_local(hp));
diff --git a/compiler/riscv/nrvutil.pas b/compiler/riscv/nrvutil.pas
index 38776bc57d..491bb051e9 100644
--- a/compiler/riscv/nrvutil.pas
+++ b/compiler/riscv/nrvutil.pas
@@ -41,6 +41,14 @@ implementation
     systems,
     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;
     begin
       inherited InsertObjectInfo;
@@ -50,6 +58,9 @@ implementation
             current_asmdata.asmlists[al_start].Concat(tai_directive.create(asd_option,'pic'))
           else
             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;