diff options
Diffstat (limited to 'src/psl/psl-nodes.adb.in')
| -rw-r--r-- | src/psl/psl-nodes.adb.in | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/psl/psl-nodes.adb.in b/src/psl/psl-nodes.adb.in index a7d34b64a..4294140c1 100644 --- a/src/psl/psl-nodes.adb.in +++ b/src/psl/psl-nodes.adb.in @@ -200,6 +200,10 @@ package body PSL.Nodes is Nodet.Table (N).Location := Int32 (Loc); end Set_Location; + procedure Copy_Location (N : Node; Src : Node) is + begin + Set_Location (N, Get_Location (Src)); + end Copy_Location; procedure Set_Field1 (N : Node; V : Node) is begin |