diff options
Diffstat (limited to 'src/psl/psl-nodes.adb')
| -rw-r--r-- | src/psl/psl-nodes.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/psl/psl-nodes.adb b/src/psl/psl-nodes.adb index 629041a73..3b3dac4be 100644 --- a/src/psl/psl-nodes.adb +++ b/src/psl/psl-nodes.adb @@ -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 |