Commit b1c1ff91 authored by yoogx's avatar yoogx

* Correct debug printing logic

        For openaadl/ocarina#134
parent a4a1c77c
......@@ -56,9 +56,9 @@ package PolyORB_HI.Output is
Current_Mode : constant Verbosity := Normal_L;
-- Curent debug level
Verbose : constant Boolean := Current_Mode >= Verbose_L;
Normal : constant Boolean := Current_Mode >= Normal_L;
Error : constant Boolean := Current_Mode >= Error_L;
Verbose : constant Boolean := Current_Mode = Verbose_L;
Normal : constant Boolean := Current_Mode <= Normal_L;
Error : constant Boolean := Current_Mode <= Error_L;
procedure Put_Line (Text : in String;
C1 : in String := "";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment