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

Added an error message to transformConstr for when the type is not supported

Browse Source
This commit is contained in:
Neil Brown 2008-03-21 19:32:07 +00:00
parent fe24c5cfb4
commit 14e375247c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
transformations/SimplifyExprs.hs
View File

@ -30,6 +30,7 @@ import EvalLiterals
import Metadata import Metadata
import Pass import Pass
import qualified Properties as Prop import qualified Properties as Prop
import ShowCode
import Types import Types
import Utils import Utils
@ -235,6 +236,7 @@ transformConstr = doGeneric `ext1M` doStructured
return $ declDest $ A.ProcThen m'' return $ declDest $ A.ProcThen m''
(A.Seq m'' $ A.Rep m'' rep $ appendItem) (A.Seq m'' $ A.Rep m'' rep $ appendItem)
scope' scope'
_ -> diePC m $ formatCode "Unsupported type for array constructor: %" t
where where
declDest :: Data a => A.Structured a -> A.Structured a declDest :: Data a => A.Structured a -> A.Structured a
declDest = A.Spec m (A.Specification m' n (A.Declaration m' t)) declDest = A.Spec m (A.Specification m' n (A.Declaration m' t))