diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-10-08 21:42:05 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-10-08 21:42:05 +0200 |
| commit | 947ea218c54cd12f64320f6207fc8da83f7a8c43 (patch) | |
| tree | 8e0c11b69673345e66b092bd792ee3a0b4f101aa /src/Compile.hs | |
| parent | 63f6e894fea21813104337b1c6a2507f59337090 (diff) | |
Complete occCountX
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |