From 409d1e9daa94d8a69f8c99bbb2b0acc791a382a6 Mon Sep 17 00:00:00 2001
From: "T. Meissner" <programming@goodcleanfun.de>
Date: Thu, 4 Aug 2022 11:19:03 +0200
Subject: PSL: Add handling of N_HDL_Bool to Dump_Expr procedure (#2158)

---
 src/psl/psl-prints.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/psl')

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
-- 
cgit v1.2.3