From 8641ff2c2dc2c073cc8323a85c2459797e1e3691 Mon Sep 17 00:00:00 2001 From: Leon Schoorl Date: Wed, 9 Oct 2024 13:08:47 +0200 Subject: [PATCH] Fix unused argument warnings on writeToBiSignal# (#2822) (cherry picked from commit a532ef0fc438e1ac3f8f772cf1f172ca9019486a) --- .../2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings | 1 + clash-prelude/src/Clash/Signal/BiSignal.hs | 5 ++--- 2 files changed, 3 insertions(+), 3 deletions(-) create mode 100644 changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings diff --git a/changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings b/changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings new file mode 100644 index 0000000000..62f843be93 --- /dev/null +++ b/changelog/2024-10-07T15_01_17+02_00_fix_writeToBiSignal_warnings @@ -0,0 +1 @@ +FIXED: Unused argument warnings on writeToBiSignal# diff --git a/clash-prelude/src/Clash/Signal/BiSignal.hs b/clash-prelude/src/Clash/Signal/BiSignal.hs index e720fc882f..ad89b9fa2e 100644 --- a/clash-prelude/src/Clash/Signal/BiSignal.hs +++ b/clash-prelude/src/Clash/Signal/BiSignal.hs @@ -1,7 +1,7 @@ {-| Copyright : (C) 2017, Google Inc. 2019, Myrtle Software Ltd - 2022-2023, QBayLogic B.V. + 2022-2024, QBayLogic B.V. License : BSD2 (see the file LICENSE) Maintainer : QBayLogic B.V. @@ -277,8 +277,7 @@ writeToBiSignal# -> Signal d Bool -> Signal d (BitVector n) -> BiSignalOut ds d n --- writeToBiSignal# = writeToBiSignal# -writeToBiSignal# _ maybeSignal _ _ = BiSignalOut [maybeSignal] +writeToBiSignal# bIn maybeSignal wEn val = BiSignalOut [bIn `seq` wEn `seq` val `seq` maybeSignal] -- See: https://github.com/clash-lang/clash-compiler/pull/2511 {-# CLASH_OPAQUE writeToBiSignal# #-} {-# ANN writeToBiSignal# hasBlackBox #-}