Verified Commit 1bdd9499 authored by Camil Staps's avatar Camil Staps 🙂

Fix setRankSettings on 32-bit systems: only the first 6 fields were overwritten

parent 6b37880b
......@@ -44,10 +44,19 @@ caf_rank_settings =:
}
setRankSettings :: !RankSettings -> (!Bool, !RankSettings)
setRankSettings _ = code {
fillcaf vcaf_rank_settings 0 12
pushB TRUE
}
setRankSettings rs = IF_INT_64_OR_32 setRankSettings64 setRankSettings32 rs
where
setRankSettings64 :: !RankSettings -> (!Bool, !RankSettings)
setRankSettings64 _ = code {
fillcaf vcaf_rank_settings 0 12
pushB TRUE
}
setRankSettings32 :: !RankSettings -> (!Bool, !RankSettings)
setRankSettings32 _ = code {
fillcaf vcaf_rank_settings 0 24
pushB TRUE
}
distance :: !CloogleEntry ![!Annotation!] -> Maybe Real
distance _ annots | Any (\a -> a=:ExactResult) annots = Nothing
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment