diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-26 20:06:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-26 20:07:53 +0200 |
| commit | 2bdc1cdc3afc8350fb5bb1ba7a438055704a6ed9 (patch) | |
| tree | 69ce5d8df99977b0dcac613c7068d863d67a7fd3 /src/psl/psl-nodes.adb | |
| parent | f73b474036e2b91370de0696a14c2faf0a106097 (diff) | |
| download | ghdl-2bdc1cdc3afc8350fb5bb1ba7a438055704a6ed9.tar.gz ghdl-2bdc1cdc3afc8350fb5bb1ba7a438055704a6ed9.tar.bz2 ghdl-2bdc1cdc3afc8350fb5bb1ba7a438055704a6ed9.zip | |
psl: keep locations.
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 |