diff options
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 8 |
1 files changed, 7 insertions, 1 deletions
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) |