From 09b173623c3e82eb0d5e612e0c4ab188ae9df03c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 3 Mar 2025 17:46:50 +0100 Subject: WIP replicate1i --- src/Compile.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/Compile.hs b/src/Compile.hs index d31c531..3b02c60 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -663,7 +663,13 @@ compile' env = \case emit $ SAsg (name ++ ".buf->a[0]") e' return (CELit name) - -- EReplicate1Inner _ a b -> error "TODO" -- EReplicate1Inner ext (compile' a) (compile' b) + EReplicate1Inner _ elen earg -> do + lenname <- genName' "replen" + emit . SVarDecl True (repSTy tIx) lenname =<< compile' env elen + argname <- genName' "reparg" + emit . SVarDecl True (repSTy (typeOf earg)) argname =<< compile' env earg + + _ -- EMaximum1Inner _ e -> error "TODO" -- EMaximum1Inner ext (compile' e) -- cgit v1.2.3-70-g09d2