Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 11 additions & 7 deletions compiler/src/dotty/tools/dotc/typer/RefChecks.scala
Original file line number Diff line number Diff line change
Expand Up @@ -891,11 +891,15 @@ object RefChecks {
* can assume invariant refinement for case classes in `constrainPatternType`.
*/
def checkCaseClassInheritanceInvariant() =
for (caseCls <- clazz.info.baseClasses.tail.find(_.is(Case)))
for (baseCls <- caseCls.info.baseClasses.tail)
if (baseCls.typeParams.exists(_.paramVarianceSign != 0))
for (problem <- variantInheritanceProblems(baseCls, caseCls, "non-variant", "case "))
report.errorOrMigrationWarning(problem, clazz.srcPos, MigrationVersion.Scala2to3)
for
caseCls <- clazz.info.baseClasses.tail.find(_.is(Case))
baseCls <- caseCls.info.baseClasses.tail
if baseCls.typeParams.exists(_.paramVarianceSign != 0)
problem <- variantInheritanceProblems(baseCls, caseCls, i"base $baseCls", "case ")
withExplain = problem.appendExplanation:
"""Refining a basetype of a case class is not allowed.
|This is a limitation that enables better GADT constraints in case class patterns""".stripMargin
do report.errorOrMigrationWarning(withExplain, clazz.srcPos, MigrationVersion.Scala2to3)
checkNoAbstractMembers()
if (abstractErrors.isEmpty)
checkNoAbstractDecls(clazz)
Expand Down Expand Up @@ -924,7 +928,7 @@ object RefChecks {
for {
cls <- clazz.info.baseClasses.tail
if cls.paramAccessors.nonEmpty && !mixins.contains(cls)
problem <- variantInheritanceProblems(cls, clazz.asClass.superClass, "parameterized", "super")
problem <- variantInheritanceProblems(cls, clazz.asClass.superClass, i"parameterized base $cls", "super")
}
report.error(problem, clazz.srcPos)
}
Expand All @@ -947,7 +951,7 @@ object RefChecks {
if (combinedBT =:= thisBT) None // ok
else
Some(
em"""illegal inheritance: $clazz inherits conflicting instances of $baseStr base $baseCls.
em"""illegal inheritance: $clazz inherits conflicting instances of $baseStr.
|
| Direct basetype: $thisBT
| Basetype via $middleStr$middle: $combinedBT""")
Expand Down
13 changes: 13 additions & 0 deletions tests/neg/i18552.check
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
-- Error: tests/neg/i18552.scala:9:6 -----------------------------------------------------------------------------------
9 |class MB(id:Int) extends MA(id) with M[B] // error
| ^
| illegal inheritance: class MB inherits conflicting instances of base trait M.
|
| Direct basetype: M[B]
| Basetype via case class MA: M[A]
|---------------------------------------------------------------------------------------------------------------------
| Explanation (enabled by `-explain`)
|- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
| Refining a basetype of a case class is not allowed.
| This is a limitation that enables better GADT constraints in case class patterns
---------------------------------------------------------------------------------------------------------------------
9 changes: 9 additions & 0 deletions tests/neg/i18552.scala
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
//> using options -explain

trait A
trait B extends A

trait M[+T]

case class MA(id:Int) extends M[A]
class MB(id:Int) extends MA(id) with M[B] // error