From fb672fe6455a3b168d6a330c571992fc6e1328a7 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Sun, 8 Jan 2023 23:48:14 +0100
Subject: [PATCH 1/3] Both _STAT_VER_KERNEL and _STAT_VER_LINUX are equal to
 zero for aarch64-linux

(cherry picked from commit 0641ea33d1fea5499d414dd8d4e95c509bb3270a)
---
 rtl/linux/ostypes.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/linux/ostypes.inc b/rtl/linux/ostypes.inc
index 204e275d09..1b27966e0f 100644
--- a/rtl/linux/ostypes.inc
+++ b/rtl/linux/ostypes.inc
@@ -75,14 +75,18 @@ TYPE
 { include /include/asm-<cpu>/posix-types.h                       }
 
 const
-{$ifndef cpux86_64}
+{$if not defined(cpux86_64) and not defined (cpuaarch64)}
   _STAT_VER_LINUX_OLD = 1;
   _STAT_VER_KERNEL = 1;
   _STAT_VER_SVR4 = 2;
   _STAT_VER_LINUX = 3;
 {$else}
   _STAT_VER_KERNEL = 0;
+{$if defined(cpuaarch64)}
+  _STAT_VER_LINUX = 0;
+{$else}
   _STAT_VER_LINUX = 1;
+{$endif}
 {$endif}
   _STAT_VER = _STAT_VER_LINUX;
 

From 41c9661d6da2baa5e6bc765b81cdbd3526f9e1d8 Mon Sep 17 00:00:00 2001
From: Yuriy Sydorov <jura@cp-lab.com>
Date: Tue, 2 Nov 2021 13:01:44 +0200
Subject: [PATCH 2/3] * The label which is generated by traisenode is not a
 jump target. Mark   this label as nf_internal, which means the label does not
 impact the   code flow. This leads to a much better register allocation.

(cherry picked from commit e04df465efe7fdbdc8ebe6b812789daa0bea0e25)
---
 compiler/ncgflw.pas | 4 ++--
 compiler/nflw.pas   | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/ncgflw.pas b/compiler/ncgflw.pas
index 70c42d7182..0f38f88810 100644
--- a/compiler/ncgflw.pas
+++ b/compiler/ncgflw.pas
@@ -512,8 +512,8 @@ implementation
     procedure tcglabelnode.pass_generate_code;
       begin
          location_reset(location,LOC_VOID,OS_NO);
-
-         include(flowcontrol,fc_gotolabel);
+         if not (nf_internal in flags) then
+           include(flowcontrol,fc_gotolabel);
 {$ifdef OLDREGVARS}
          load_all_regvars(current_asmdata.CurrAsmList);
 {$endif OLDREGVARS}
diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 3896810ce1..fc393f4d7c 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -2118,7 +2118,8 @@ implementation
         result:=nil;
         expectloc:=LOC_VOID;
 
-        include(current_procinfo.flags,pi_has_label);
+        if not (nf_internal in flags) then
+          include(current_procinfo.flags,pi_has_label);
 
         if assigned(labsym) and labsym.nonlocal then
           begin
@@ -2223,6 +2224,7 @@ implementation
               begin
                 third:=cinlinenode.create(in_get_frame,false,nil);
                 current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
+                current_addr.toggleflag(nf_internal);
                 addstatement(statements,current_addr);
                 right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));
               end;

From 1bcaaacfe4d7d303d0b73117ca40cfe00dc70482 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 23 Sep 2024 21:40:15 +0200
Subject: [PATCH 3/3]   * use node unit so make the last commit work

---
 compiler/ncgflw.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncgflw.pas b/compiler/ncgflw.pas
index 0f38f88810..66a65e50eb 100644
--- a/compiler/ncgflw.pas
+++ b/compiler/ncgflw.pas
@@ -131,7 +131,7 @@ implementation
       fmodule,
       cpubase,
       tgobj,paramgr,
-      cgobj,hlcgobj,nutils
+      cgobj,hlcgobj,nutils,node
       ;
 
 {*****************************************************************************