diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-30 14:21:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-30 14:21:51 +0200 |
commit | 5ca1572dbef924b659e7ecc912686d3941b5ae30 (patch) | |
tree | 1e847161da1afc0fd3b1d28af2bfa7a111e157c4 /src/psl | |
parent | f771391fd9c0a99e1652209a74c1687c77a7ab35 (diff) | |
download | ghdl-5ca1572dbef924b659e7ecc912686d3941b5ae30.tar.gz ghdl-5ca1572dbef924b659e7ecc912686d3941b5ae30.tar.bz2 ghdl-5ca1572dbef924b659e7ecc912686d3941b5ae30.zip |
vhdl-prints: handle PSL, add psl tokens for strong and inclusive variants.
Diffstat (limited to 'src/psl')
-rw-r--r-- | src/psl/psl-prints.ads | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/psl/psl-prints.ads b/src/psl/psl-prints.ads index d49a5e093..96692d436 100644 --- a/src/psl/psl-prints.ads +++ b/src/psl/psl-prints.ads @@ -27,6 +27,8 @@ package PSL.Prints is (Prop : Node; Parent_Prio : Priority := Prio_Lowest); procedure Print_Expr (N : Node; Parent_Prio : Priority := Prio_Lowest); + function Get_Priority (N : Node) return Priority; + -- Procedure to display HDL_Expr nodes. type HDL_Expr_Printer_Acc is access procedure (N : HDL_Node); HDL_Expr_Printer : HDL_Expr_Printer_Acc; |