From ad5322977632dd2dcec7cb75082d5c128b4a8bd5 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Fri, 18 Feb 2022 10:45:35 +0000 Subject: Remove declare case of Procedure. --- src/Helium/Instructions/Base.agda | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Helium/Instructions/Base.agda') diff --git a/src/Helium/Instructions/Base.agda b/src/Helium/Instructions/Base.agda index c19e8ad..a76b2b1 100644 --- a/src/Helium/Instructions/Base.agda +++ b/src/Helium/Instructions/Base.agda @@ -172,8 +172,8 @@ VPTAdvance = declare (fin div2 (tup (var 0 ∷ []))) ( if get 0 (asInt (var 2)) ≟ lit ((true ∷ []) ′x) then elem 4 VPR-mask (var 1) ≔ var 0 - else skip - ∙end)) + else skip)) + ∙end VPTActive : Function (beat ∷ []) bool VPTActive = skip ∙return inv (elem 4 VPR-mask (fin div2 (tup (var 0 ∷ []))) ≟ lit (Vec.replicate false ′x)) @@ -232,8 +232,8 @@ module _ (d : Instr.VecOp₂) where -- 0:e 1:op₁ 2:result 3:elmtMask 4:curBeat declare op₂ op ) ∙ -- 0:op₁ 1:result 2:elmtMask 3:curBeat - invoke copyMasked (lit (dest ′f) ∷ to32 size (var 1) ∷ var 3 ∷ var 2 ∷ []))) - ∙end)) + invoke copyMasked (lit (dest ′f) ∷ to32 size (var 1) ∷ var 3 ∷ var 2 ∷ []))))) + ∙end where -- 0:e 1:op₁ 2:result 3:elmtMask 4:curBeat op₂ = -- cgit v1.2.3