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

Ignore ROUND/TRUNC when used on a precise conversion (e.g. REAL64 ROUND real64)

Browse Source
This commit is contained in:
Adam Sampson 2007-05-01 14:31:36 +00:00
parent 26a4190d78
commit 287fb8b922
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fco2/Parse.hs
View File

@ -987,13 +987,14 @@ conversion
t <- dataType
(c, o) <- conversionMode
ot <- typeOfExpression o
case (isPreciseConversion ot t, c) of
(False, A.DefaultConversion) ->
fail "imprecise conversion must specify ROUND or TRUNC"
(False, _) -> return ()
(True, A.DefaultConversion) -> return ()
(True, _) ->
fail "precise conversion cannot specify ROUND or TRUNC"
c <- case (isPreciseConversion ot t, c) of
(False, A.DefaultConversion) ->
fail "imprecise conversion must specify ROUND or TRUNC"
(False, _) -> return c
(True, A.DefaultConversion) -> return c
(True, _) ->
do addWarning m "precise conversion specifies ROUND or TRUNC; ignored"
return A.DefaultConversion
return $ A.Conversion m c t o
<?> "conversion"