X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=c%CE%BBash%2FCLasH%2FNormalize.hs;h=1f0509da5a2ee674aae1117c9150615794152638;hb=4aed809f270a2a01cfaca05381c0689cd881556b;hp=cce31864c5f2f0878719c6f42cc4b1d0174d7656;hpb=e3306b891a635b849664657a63eb2ba962ff8d99;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git "a/c\316\273ash/CLasH/Normalize.hs" "b/c\316\273ash/CLasH/Normalize.hs" index cce3186..1f0509d 100644 --- "a/c\316\273ash/CLasH/Normalize.hs" +++ "b/c\316\273ash/CLasH/Normalize.hs" @@ -332,8 +332,10 @@ inlinetoplevel expr@(Var f) | not $ isUserDefined f = do -- Get the normalized version norm <- Trans.lift $ getNormalized f if needsInline norm - then - change norm + then do + -- Regenerate all uniques in the to-be-inlined expression + norm_uniqued <- Trans.lift $ genUniques norm + change norm_uniqued else return expr else