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

Fixed typeOfSpec to use the recorded type rather than trying to dig it out of the inner expression/variable

Browse Source
This commit is contained in:
Neil Brown 2008-02-29 16:33:33 +00:00
parent 9ab6cbc0b4
commit f5022228ba
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/Types.hs
View File

@ -72,9 +72,9 @@ typeOfSpec :: (CSMR m, Die m) => A.SpecType -> m (Maybe A.Type)
typeOfSpec st typeOfSpec st
= case st of = case st of
A.Declaration _ t _ -> return $ Just t A.Declaration _ t _ -> return $ Just t
A.Is _ _ _ v -> (liftM Just) (typeOfVariable v) A.Is _ _ t _ -> return $ Just t
A.IsExpr _ _ _ e -> (liftM Just) (typeOfExpression e) A.IsExpr _ _ t _ -> return $ Just t
A.IsChannelArray _ _ (c:_) -> liftM (Just . (A.Array [A.UnknownDimension])) $ typeOfVariable c A.IsChannelArray _ t _ -> return $ Just t
A.Retypes _ _ t _ -> return $ Just t A.Retypes _ _ t _ -> return $ Just t
A.RetypesExpr _ _ t _ -> return $ Just t A.RetypesExpr _ _ t _ -> return $ Just t
_ -> return Nothing _ -> return Nothing