gma pch-transcoder: Work around GNAT issue
The combination of the Shift_Left intrinsic and the case expression
somehow makes GNAT crash.
Change-Id: Ibdb3ce4c1699d547999efd89ee6f4ae0f570703c
Signed-off-by: Nico Huber <nico.huber@secunet.com>
Reviewed-on: https://review.coreboot.org/c/libgfxinit/+/73163
Reviewed-by: Elyes Haouas <ehaouas@noos.fr>
Reviewed-by: Felix Singer <felixsinger@posteo.net>
Tested-by: Nico Huber <nico.h@gmx.de>
diff --git a/common/hw-gfx-gma-pch-transcoder.adb b/common/hw-gfx-gma-pch-transcoder.adb
index eb1715f..04d15bb 100644
--- a/common/hw-gfx-gma-pch-transcoder.adb
+++ b/common/hw-gfx-gma-pch-transcoder.adb
@@ -37,11 +37,11 @@
return Word32
is
begin
- return Shift_Left (PLL,
- (case Port is
- when FDI_A => 0,
- when FDI_B => 4,
- when FDI_C => 8));
+ case Port is
+ when FDI_A => return Shift_Left (PLL, 0);
+ when FDI_B => return Shift_Left (PLL, 4);
+ when FDI_C => return Shift_Left (PLL, 8);
+ end case;
end DPLL_SEL_TRANSCODER_x_DPLL_SEL;
TRANS_CONF_TRANSCODER_ENABLE : constant := 1 * 2 ** 31;