diff options
-rw-r--r-- | src/psl/psl-prints.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/psl/psl-prints.adb b/src/psl/psl-prints.adb index 6c2cffa48..a810d751a 100644 --- a/src/psl/psl-prints.adb +++ b/src/psl/psl-prints.adb @@ -104,7 +104,8 @@ package body PSL.Prints is is begin case Get_Kind (N) is - when N_HDL_Expr => + when N_HDL_Expr + | N_HDL_Bool => if HDL_Expr_Printer = null then Put ("Expr"); else |