We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 742d952 + 45c4d79 commit 3cf0804Copy full SHA for 3cf0804
source/memory/lsp-memory_statistics.adb
@@ -66,12 +66,11 @@ package body LSP.Memory_Statistics is
66
declare
67
Traceback_Str : constant String :=
68
S (Matched (1).First .. Matched (1).Last);
69
- Traceback_Long : constant Long_Integer :=
70
- Long_Integer'Value
+ Traceback_Long : constant Integer_Address :=
+ Integer_Address'Value
71
("16#" & Traceback_Str & "#");
72
Traceback_Addr : constant System.Address :=
73
- To_Address
74
- (Integer_Address (Traceback_Long));
+ To_Address (Traceback_Long);
75
New_S : constant String :=
76
Symbolic_Traceback_No_Hex
77
((1 => Traceback_Addr));
0 commit comments