blob: 9b12c3cf372abdf8fb21253d5c394857c26253e9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
From d386fd1f73ee5526c866e98e712ca2a8c8b49096 Mon Sep 17 00:00:00 2001
From: Dmitriy Anisimkov <anisimko@adacore.com>
Date: Wed, 5 Feb 2020 15:58:58 +0600
Subject: [PATCH 1/5] Use GPR.Sinput.Reference_Name
T117-002
Prepare to hide Source_File table.
Change-Id: I3c7378061398e1e15c3a1ef18e25c525d437f4fe
---
toolchains_editor/core/src/toolchains-parsers.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/toolchains_editor/core/src/toolchains-parsers.adb b/toolchains_editor/core/src/toolchains-parsers.adb
index b95205057e..dd0314c691 100644
--- a/toolchains_editor/core/src/toolchains-parsers.adb
+++ b/toolchains_editor/core/src/toolchains-parsers.adb
@@ -672,7 +672,7 @@ package body Toolchains.Parsers is
is
Location : constant Source_Ptr := Location_Of (Node, Node_Data);
File : constant String := Get_Name_String
- (Source_File.Table (Get_Source_File_Index (Location)).File_Name);
+ (Reference_Name (Get_Source_File_Index (Location)));
Line : constant Line_Number :=
Get_Line_Number (Location);
Col : constant Column_Number := Get_Column_Number (Location);
--
2.26.2
|