BUGFIX: Handle refs and pointers in 'concretizeType'.

This commit is contained in:
Erik Svedäng 2018-09-25 16:49:02 +02:00
parent 83314ec9d9
commit 531ad4de05

View File

@ -352,6 +352,10 @@ concretizeType typeEnv genericStructTy@(StructTy name _) =
error ("Non-deftype found in type env: " ++ show x)
Nothing ->
error ("Can't find type " ++ show genericStructTy ++ " with name '" ++ name ++ "' in type env.")
concretizeType env (RefTy rt) =
concretizeType env rt
concretizeType env (PointerTy pt) =
concretizeType env pt
concretizeType _ t =
Right [] -- ignore all other types