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.ads | |
| 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.ads')
| -rw-r--r-- | src/psl/psl-nodes.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/psl/psl-nodes.ads b/src/psl/psl-nodes.ads index d5d3b93f5..eb0ad4cb3 100644 --- a/src/psl/psl-nodes.ads +++ b/src/psl/psl-nodes.ads @@ -477,6 +477,7 @@ package PSL.Nodes is -- Note: use field Location function Get_Location (N : Node) return Location_Type; procedure Set_Location (N : Node; Loc : Location_Type); + procedure Copy_Location (N : Node; Src : Node); function Get_Kind (N : Node) return Nkind; pragma Inline (Get_Kind); |