From 947ea218c54cd12f64320f6207fc8da83f7a8c43 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 8 Oct 2025 21:42:05 +0200 Subject: Complete occCountX --- src/Compile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Compile.hs') diff --git a/src/Compile.hs b/src/Compile.hs index a5c4fb7..2b7cd9e 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -1481,7 +1481,7 @@ copyForWriting topty var = case topty of -- nesting we'd have to check the refcounts of all the nested arrays _too_; -- let's not do that. Furthermore, no sub-arrays means that the whole thing -- is flat, and we can just memcpy if necessary. - SMTArr n t | not (hasArrays (fromSMTy t)) -> do + SMTArr n t | not (typeHasArrays (fromSMTy t)) -> do name <- genName shszname <- genName' "shsz" emit $ SVarDeclUninit toptyname name -- cgit v1.2.3-70-g09d2