Merge remote branch 'origin/master' into edge

Author: automatic-merge

.github/workflows/pack-binaries.sh

@@ -19,7 +19,7 @@ function make_change_log()
 
 chmod -R -v +x als-*-$DEBUG
 for X in Linux macOS Windows ; do mv -v -f als-$X-$DEBUG/* integration/vscode/ada/; done
-rm -f -v integration/vscode/ada/{linux,darwin,win32}/*.{debug,dSYM}
+rm -rf -v integration/vscode/ada/{linux,darwin,win32}/*.{debug,dSYM}
 pushd integration/vscode/ada
 sed -i -e "/version/s/[0-9][0-9.]*/$TAG/" package.json
 [ -z "$DEBUG" ] || sed -i -e '/^    "name"/s/ada/ada-debug/' \

source/memory/lsp-memory_statistics.adb

@@ -66,12 +66,11 @@ package body LSP.Memory_Statistics is
             declare
                Traceback_Str : constant String :=
                                  S (Matched (1).First .. Matched (1).Last);
-               Traceback_Long : constant Long_Integer :=
-                                  Long_Integer'Value
+               Traceback_Long : constant Integer_Address :=
+                                  Integer_Address'Value
                                     ("16#" & Traceback_Str & "#");
                Traceback_Addr : constant System.Address :=
-                                  To_Address
-                                    (Integer_Address (Traceback_Long));
+                                  To_Address (Traceback_Long);
                New_S          : constant String :=
                                   Symbolic_Traceback_No_Hex
                                     ((1 => Traceback_Addr));