@@ -642,37 +642,49 @@ object SpaceEngine {
642
642
// we get
643
643
// <== refineUsingParent(NatT, class Succ, []) = Succ[NatT]
644
644
// <== isSub(Succ[NatT] <:< Succ[Succ[<?>]]) = false
645
- def getAppliedClass (tp : Type ): Type = tp match
646
- case tp @ AppliedType (_ : HKTypeLambda , _) => tp
647
- case tp @ AppliedType (tycon : TypeRef , _) if tycon.symbol.isClass => tp
645
+ def getAppliedClass (tp : Type ): ( Type , List [ Type ]) = tp match
646
+ case tp @ AppliedType (_ : HKTypeLambda , _) => (tp, Nil )
647
+ case tp @ AppliedType (tycon : TypeRef , _) if tycon.symbol.isClass => (tp, tp.args)
648
648
case tp @ AppliedType (tycon : TypeProxy , _) => getAppliedClass(tycon.superType.applyIfParameterized(tp.args))
649
- case tp => tp
650
- val tp = getAppliedClass(tpOriginal)
651
- def getChildren (sym : Symbol ): List [Symbol ] =
649
+ case tp => (tp, Nil )
650
+ val (tp, typeArgs) = getAppliedClass(tpOriginal)
651
+ // This function is needed to get the arguments of the types that will be applied to the class.
652
+ // This is necessary because if the arguments of the types contain Nothing,
653
+ // then this can affect whether the class will be taken into account during the exhaustiveness check
654
+ def getTypeArgs (parent : Symbol , child : Symbol , typeArgs : List [Type ]): List [Type ] =
655
+ val superType = child.typeRef.superType
656
+ if typeArgs.exists(_.isBottomType) && superType.isInstanceOf [ClassInfo ] then
657
+ val parentClass = superType.asInstanceOf [ClassInfo ].declaredParents.find(_.classSymbol == parent).get
658
+ val paramTypeMap = Map .from(parentClass.argInfos.map(_.typeSymbol).zip(typeArgs))
659
+ val substArgs = child.typeRef.typeParamSymbols.map(param => paramTypeMap.getOrElse(param, WildcardType ))
660
+ substArgs
661
+ else Nil
662
+ def getChildren (sym : Symbol , typeArgs : List [Type ]): List [Symbol ] =
652
663
sym.children.flatMap { child =>
653
664
if child eq sym then List (sym) // i3145: sealed trait Baz, val x = new Baz {}, Baz.children returns Baz...
654
665
else if tp.classSymbol == defn.TupleClass || tp.classSymbol == defn.NonEmptyTupleClass then
655
666
List (child) // TupleN and TupleXXL classes are used for Tuple, but they aren't Tuple's children
656
- else if (child.is(Private ) || child.is(Sealed )) && child.isOneOf(AbstractOrTrait ) then getChildren(child)
657
- else List (child)
667
+ else if (child.is(Private ) || child.is(Sealed )) && child.isOneOf(AbstractOrTrait ) then
668
+ getChildren(child, getTypeArgs(sym, child, typeArgs))
669
+ else
670
+ val childSubstTypes = child.typeRef.applyIfParameterized(getTypeArgs(sym, child, typeArgs))
671
+ // if a class contains a field of type Nothing,
672
+ // then it can be ignored in pattern matching, because it is impossible to obtain an instance of it
673
+ val existFieldWithBottomType = childSubstTypes.fields.exists(_.info.isBottomType)
674
+ if existFieldWithBottomType then Nil else List (child)
658
675
}
659
- val children = trace(i " getChildren( $tp) " )(getChildren(tp.classSymbol))
676
+ val children = trace(i " getChildren( $tp) " )(getChildren(tp.classSymbol, typeArgs ))
660
677
661
678
val parts = children.map { sym =>
662
679
val sym1 = if (sym.is(ModuleClass )) sym.sourceModule else sym
663
680
val refined = trace(i " refineUsingParent( $tp, $sym1, $mixins) " )(TypeOps .refineUsingParent(tp, sym1, mixins))
664
681
665
- def containsUninhabitedField (tp : Type ): Boolean =
666
- tp.fields.exists { field =>
667
- ! field.symbol.flags.is(Lazy ) && field.info.dealias.isBottomType
668
- }
669
-
670
682
def inhabited (tp : Type ): Boolean = tp.dealias match
671
683
case AndType (tp1, tp2) => ! TypeComparer .provablyDisjoint(tp1, tp2)
672
684
case OrType (tp1, tp2) => inhabited(tp1) || inhabited(tp2)
673
685
case tp : RefinedType => inhabited(tp.parent)
674
- case tp : TypeRef => ! containsUninhabitedField(tp) && inhabited(tp.prefix)
675
- case _ => ! containsUninhabitedField(tp)
686
+ case tp : TypeRef => inhabited(tp.prefix)
687
+ case _ => true
676
688
677
689
if inhabited(refined) then refined
678
690
else NoType
0 commit comments