1
0
forked from GitHub/gf-core

lincat typecheck and abstract-interface extension fixed

This commit is contained in:
aarne
2006-05-30 12:19:19 +00:00
parent 10f9753d9e
commit 516abb5d58
3 changed files with 16 additions and 8 deletions

View File

@@ -214,6 +214,7 @@ checkCncInfo gr m (a,abs) (c,info) = do
-- cat for cf, typ for pe
CncCat (Yes typ) mdef mpr -> chIn "linearization type of" $ do
checkErr $ lookupCatContextSrc gr a c
typ' <- checkIfLinType gr typ
mdef' <- case mdef of
Yes def -> do

View File

@@ -93,6 +93,9 @@ moduleDeps ms = mapM deps ms where
-- check for superficial compatibility, not submodule relation etc: what can be extended
compatMType mt0 mt = case (mt0,mt) of
(MTResource, MTConcrete _) -> True
(MTInstance _, MTConcrete _) -> True
(MTInterface, MTAbstract) -> True
(MTConcrete _, MTConcrete _) -> True
(MTInstance _, MTInstance _) -> True
(MTReuse _, MTReuse _) -> True