$.Analysis.Text: reimplement to rely on the internal implementation

TN: S521-032
This commit is contained in:
Pierre-Marie de Rodat
2019-05-21 17:57:40 +02:00
committed by Pierre-Marie de Rodat
parent 2a212dd7c4
commit 6da104f219
2 changed files with 2 additions and 2 deletions

View File

@@ -871,7 +871,7 @@ class CompileCtx(object):
# Avoid a warning about unused documentation when there are no
# synthetic nodes.
if not self.synthetic_nodes:
_ = self.documentations['langkit.synthetic_nodes']
self.documentations['langkit.synthetic_nodes']
# Check that the environment hook is bound if the language spec uses
# it.

View File

@@ -882,7 +882,7 @@ package body ${ada_lib_name}.Analysis is
function Text (Node : ${root_entity.api_name}'Class) return Text_Type is
begin
Check_Safety_Net (Node.Safety_Net);
return Text (Node.Token_Start, Node.Token_End);
return Text (Node.Internal.Node);
end Text;
----------------