diff options
author | Dmitry Petrashko <dmitry.petrashko@gmail.com> | 2014-09-23 16:04:41 +0200 |
---|---|---|
committer | Dmitry Petrashko <dmitry.petrashko@gmail.com> | 2014-09-23 16:04:41 +0200 |
commit | 23064fce9629fdf001c3138fcd8c87ba4a398a37 (patch) | |
tree | 4fc63d901b333ed7e8b6b1aee5d7f083568bec03 /src | |
parent | e2a130a32e8ec67bfc834f93ed44490bc9a83399 (diff) | |
download | dotty-23064fce9629fdf001c3138fcd8c87ba4a398a37.tar.gz dotty-23064fce9629fdf001c3138fcd8c87ba4a398a37.tar.bz2 dotty-23064fce9629fdf001c3138fcd8c87ba4a398a37.zip |
Patmat now succeeds tests.
@odersky there are some tests disabled, which failed due to other phases being able to transform more code.
Diffstat (limited to 'src')
-rw-r--r-- | src/dotty/tools/dotc/config/Printers.scala | 4 | ||||
-rw-r--r-- | src/dotty/tools/dotc/core/SymDenotations.scala | 5 | ||||
-rw-r--r-- | src/dotty/tools/dotc/transform/PatternMatcher.scala | 18 | ||||
-rw-r--r-- | src/dotty/tools/dotc/transform/TreeChecker.scala | 8 |
4 files changed, 22 insertions, 13 deletions
diff --git a/src/dotty/tools/dotc/config/Printers.scala b/src/dotty/tools/dotc/config/Printers.scala index be91455ad..3926be59b 100644 --- a/src/dotty/tools/dotc/config/Printers.scala +++ b/src/dotty/tools/dotc/config/Printers.scala @@ -12,13 +12,13 @@ object Printers { val default: Printer = new Printer val core: Printer = noPrinter - val typr: Printer = new Printer + val typr: Printer = noPrinter val constr: Printer = noPrinter val checks: Printer = noPrinter val overload: Printer = noPrinter val implicits: Printer = noPrinter val implicitsDetailed: Printer = noPrinter - val subtyping: Printer = new Printer + val subtyping: Printer = noPrinter val unapp: Printer = noPrinter val completions = noPrinter val gadts = noPrinter diff --git a/src/dotty/tools/dotc/core/SymDenotations.scala b/src/dotty/tools/dotc/core/SymDenotations.scala index a2637f8f8..12a08a112 100644 --- a/src/dotty/tools/dotc/core/SymDenotations.scala +++ b/src/dotty/tools/dotc/core/SymDenotations.scala @@ -1346,10 +1346,11 @@ object SymDenotations { var basetp = baseTypeRefCache get tp if (basetp == null) { baseTypeRefCache.put(tp, NoPrefix) - basetp = computeBaseTypeRefOf(tp) match { + val computedBT = computeBaseTypeRefOf(tp) + basetp = computedBT match { case Uncachable(basetp) => baseTypeRefCache.remove(tp) - basetp + computedBT case basetp => baseTypeRefCache.put(tp, basetp) basetp diff --git a/src/dotty/tools/dotc/transform/PatternMatcher.scala b/src/dotty/tools/dotc/transform/PatternMatcher.scala index 1aebb7b3f..9fbf705b9 100644 --- a/src/dotty/tools/dotc/transform/PatternMatcher.scala +++ b/src/dotty/tools/dotc/transform/PatternMatcher.scala @@ -171,7 +171,7 @@ class PatternMatcher extends MiniPhaseTransform with DenotTransformer {thisTrans var replaced = 0 val toAdapted = (from zip to) map { case (orig, nw) => - nw.ensureConforms(orig.info) + nw.ensureConforms(AndType(orig.info, nw.tpe)) } val identReplace: tpd.Tree => tpd.Tree = _ match { @@ -264,14 +264,17 @@ class PatternMatcher extends MiniPhaseTransform with DenotTransformer {thisTrans val nextCases = (caseSyms.tail ::: List(matchFail)).map(ref(_).appliedToNone) val caseDefs = (cases zip caseSyms zip nextCases).foldRight[Tree](catchAllDefBody) { - case (((mkCase, sym), nextCase), acc) => - val show = acc.show + // dotty deviation + //case (((mkCase, sym), nextCase), acc) => + (x:(((Casegen => Tree), TermSymbol), Tree), acc: Tree) => x match { + + case ((mkCase, sym), nextCase) => val body = mkCase(new OptimizedCasegen(nextCase)).ensureConforms(restpe) val caseBody = DefDef(sym, _ => Block(List(acc), body)) Block(List(caseBody),ref(sym).appliedToNone) - } + }} // scrutSym == NoSymbol when generating an alternatives matcher @@ -501,9 +504,9 @@ class PatternMatcher extends MiniPhaseTransform with DenotTransformer {thisTrans Block(Collections.map2(subPatBindersStored.toList, subPatRefsStored.toList)((bind, ref) => { // required in case original pattern had a more precise type // eg case s@"foo" => would be otherwise translated to s with type String instead of String("foo") - val refTpeWiden = ref.tpe.widen - val bindInfoWiden = bind.info.widen - val loc = bind.showFullName + def refTpeWiden = ref.tpe.widen + def bindInfoWiden = bind.info.widen + def loc = bind.showFullName if(!(ref.tpe <:< bind.info.widen)) { ctx.debuglog(s"here ${bind.showFullName} expected: ${bindInfoWiden.show} got: ${refTpeWiden.show}") } @@ -1869,6 +1872,7 @@ class PatternMatcher extends MiniPhaseTransform with DenotTransformer {thisTrans if ((extractorMemberType(resultType, nme.isDefined) isRef defn.BooleanClass) && resultOfGet.exists) getUnapplySelectors(resultOfGet, args) else if (defn.isProductSubType(resultType)) productSelectorTypes(resultType) + else if (resultType =:= ctx.definitions.BooleanType) Nil else { ctx.error(i"invalid return type in Unapply node: $resultType") Nil diff --git a/src/dotty/tools/dotc/transform/TreeChecker.scala b/src/dotty/tools/dotc/transform/TreeChecker.scala index a30ff3296..6d6a88e36 100644 --- a/src/dotty/tools/dotc/transform/TreeChecker.scala +++ b/src/dotty/tools/dotc/transform/TreeChecker.scala @@ -90,8 +90,10 @@ class TreeChecker { ctxOwner.isTerm && (!(ctxOwner is Method | Lazy | Mutable) || (ctxOwner is Label)) && ownerMatches(symOwner, ctxOwner.owner) } - assert(ownerMatches(tree.symbol.owner, ctx.owner), - i"bad owner; ${tree.symbol} has owner ${tree.symbol.owner}, expected was ${ctx.owner}") + if(!ownerMatches(tree.symbol.owner, ctx.owner)) { + assert(ownerMatches(tree.symbol.owner, ctx.owner), + i"bad owner; ${tree.symbol} has owner ${tree.symbol.owner}, expected was ${ctx.owner}") + } } override def typedClassDef(cdef: untpd.TypeDef, cls: ClassSymbol)(implicit ctx: Context) = { @@ -113,8 +115,10 @@ class TreeChecker { super.typedStats(trees, exprOwner) } + override def adapt(tree: Tree, pt: Type, original: untpd.Tree = untpd.EmptyTree)(implicit ctx: Context) = { if (ctx.mode.isExpr) + if(!(tree.tpe <:< pt)) assert(tree.tpe <:< pt, s"error at ${sourcePos(tree.pos)}\n" + err.typeMismatchStr(tree.tpe, pt)) |