suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a few missing lines in the constant folding

Browse Source
This commit is contained in:
Neil Brown 2009-03-27 21:40:14 +00:00
parent ecc42f704d
commit 676bbe34d4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/EvalConstants.hs
View File

@ -137,6 +137,8 @@ conv :: Real a => a -> Rational
conv = toRational
occToRational :: OccValue -> Rational
occToRational (OccBool False) = 0
occToRational (OccBool True) = 1
occToRational (OccByte x) = conv x
occToRational (OccUInt16 x) = conv x
occToRational (OccUInt32 x) = conv x