commit 82ca09f1f372200046dad13db6e81829ff067caf
author Nico Huber <nico.h@gmx.de> Sat Sep 28 02:37:50 2019 +0200
committer Nico Huber <nico.h@gmx.de> Thu Oct 03 20:07:40 2019 +0000
tree 3c79c77693b5502fe3ad2ebaeef1e99a09ca0077
parent efa3ca82eb7fc4e5717015022013d441b156c7a5

gma registers: Implement `Success` parameter for Wait*()

Change-Id: Ia0e30e3467400e9d53a32c9bfc97d2d5f00df4aa
Signed-off-by: Nico Huber <nico.h@gmx.de>
Reviewed-on: https://review.coreboot.org/c/libgfxinit/+/35709
Reviewed-by: Arthur Heymans <arthur@aheymans.xyz>
Reviewed-by: Patrick Georgi <pgeorgi@google.com>

common/hw-gfx-gma-registers.ads

diff --git a/common/hw-gfx-gma-registers.ads b/common/hw-gfx-gma-registers.ads
index 5cffe76..e9c8ab4 100644
--- a/common/hw-gfx-gma-registers.ads
+++ b/common/hw-gfx-gma-registers.ads
@@ -1687,6 +1687,13 @@
    pragma Warnings (GNATprove, Off, "unused initial value of ""Verbose""",
                     Reason => "Only used on debugging path");
    procedure Wait
+     (Register : in     Registers_Index;
+      Mask     : in     Word32;
+      Value    : in     Word32;
+      TOut_MS  : in     Natural := Default_Timeout_MS;
+      Verbose  : in     Boolean := False;
+      Success  :    out Boolean);
+   procedure Wait
      (Register : Registers_Index;
       Mask     : Word32;
       Value    : Word32;
@@ -1694,16 +1701,28 @@
       Verbose  : Boolean := False);
 
    procedure Wait_Set_Mask
-      (Register : Registers_Index;
-       Mask     : Word32;
-       TOut_MS  : Natural := Default_Timeout_MS;
-       Verbose  : Boolean := False);
+     (Register : in     Registers_Index;
+      Mask     : in     Word32;
+      TOut_MS  : in     Natural := Default_Timeout_MS;
+      Verbose  : in     Boolean := False;
+      Success  :    out Boolean);
+   procedure Wait_Set_Mask
+     (Register : Registers_Index;
+      Mask     : Word32;
+      TOut_MS  : Natural := Default_Timeout_MS;
+      Verbose  : Boolean := False);
 
    procedure Wait_Unset_Mask
-      (Register : Registers_Index;
-       Mask     : Word32;
-       TOut_MS  : Natural := Default_Timeout_MS;
-       Verbose  : Boolean := False);
+     (Register : in     Registers_Index;
+      Mask     : in     Word32;
+      TOut_MS  : in     Natural := Default_Timeout_MS;
+      Verbose  : in     Boolean := False;
+      Success  :    out Boolean);
+   procedure Wait_Unset_Mask
+     (Register : Registers_Index;
+      Mask     : Word32;
+      TOut_MS  : Natural := Default_Timeout_MS;
+      Verbose  : Boolean := False);
    pragma Warnings (GNATprove, On, "unused initial value of ""Verbose""");
 
    procedure Set_Mask