Fix #4192: Properly set InnerClasses end EnclosingMethod in class files

compiler/src/dotty/tools/backend/jvm/BCodeAsmCommon.scala

@@ -26,8 +26,8 @@ final class BCodeAsmCommon[I <: DottyBackendInterface](val interface: I) {
     // always top-level. However, SI-8900 shows an example where the weak name-based implementation
     // of isDelambdafyFunction failed (for a function declared in a package named "lambda").
     classSym.isAnonymousClass || {
-      val originalOwnerLexicallyEnclosingClass = classSym.originalOwner.originalLexicallyEnclosingClass
-      originalOwnerLexicallyEnclosingClass != NoSymbol && !originalOwnerLexicallyEnclosingClass.isClass
+      val originalOwner = classSym.originalOwner
+      originalOwner != NoSymbol && !originalOwner.isClass
     }
   }
 
@@ -59,9 +59,9 @@ final class BCodeAsmCommon[I <: DottyBackendInterface](val interface: I) {
     def enclosingMethod(sym: Symbol): Option[Symbol] = {
       if (sym.isClass || sym == NoSymbol) None
       else if (sym.is(Method)) Some(sym)
-      else enclosingMethod(sym.originalOwner.originalLexicallyEnclosingClass)
+      else enclosingMethod(sym.originalOwner)
     }
-    enclosingMethod(classSym.originalOwner.originalLexicallyEnclosingClass)
+    enclosingMethod(classSym.originalOwner)
   }
 
   /**

compiler/src/dotty/tools/backend/jvm/BCodeSkelBuilder.scala

@@ -221,6 +221,11 @@ trait BCodeSkelBuilder extends BCodeHelpers {
       addClassFields()
 
       innerClassBufferASM ++= classBTypeFromSymbol(claszSymbol).info.memberClasses
+
+      val companion = claszSymbol.companionClass
+      if companion.isTopLevelModuleClass then
+        innerClassBufferASM ++= classBTypeFromSymbol(companion).info.memberClasses
+
       gen(cd.rhs)
       addInnerClassesASM(cnode, innerClassBufferASM.toList)
 

tests/run/i4192/Checks.scala

@@ -0,0 +1,84 @@
+package checks
+
+import reflect.ClassTag
+
+
+trait Checks:
+  val expectedTopLevelChecksCount: Int
+  val expectedMemberChecksCount: Int
+  val expectedLocalChecksCount: Int
+
+  var topLevelChecksCount = 0
+  var memberChecksCount = 0
+  var localChecksCount = 0
+
+  def verifyChecksCounts() =
+    assert(topLevelChecksCount == expectedTopLevelChecksCount,
+      s"top level checks: expected $expectedTopLevelChecksCount but was $topLevelChecksCount")
+    assert(memberChecksCount == expectedMemberChecksCount,
+      s"member checks: expected $expectedMemberChecksCount but was $memberChecksCount")
+    assert(localChecksCount == expectedLocalChecksCount,
+      s"local checks: expected $expectedLocalChecksCount but was $localChecksCount")
+
+  // The methods below rely on the naming convention described in TestCases.scala
+
+  /** Check JVM class properties of a top level class */
+  def checkTopLevel(self: AnyRef) =
+    val cls = self.getClass
+    assert(cls.getEnclosingClass == null, s"Top level class $cls should have no enclosing class")
+    assert(cls.getDeclaringClass == null, s"Top level class $cls should have no declaring class")
+    assert(cls.getEnclosingMethod == null, s"Top level class $cls should have no enclosing method")
+    topLevelChecksCount += 1
+
+  /** Check JVM class properties of a member class (defined directly inside another class) */
+  def checkMember(self: AnyRef, outer: AnyRef) =
+    val cls = self.getClass
+    def className = cls.simpleName
+    def enclosingClassName = cls.getEnclosingClass.simpleName
+    def declaringClassName = cls.getDeclaringClass.simpleName
+    // Classes defined directly in top level objects should be moved to their companion/mirror classes
+    val expectedEnclosingClassName = outer.getClass.simpleName match
+      case "B$" => "B"
+      case "C$" => "C"
+      case name => name
+    assert(cls.getEnclosingClass != null,
+      s"Member class $className should have an enclosing class")
+    assert(enclosingClassName == expectedEnclosingClassName,
+      s"The enclosing class of class $className should be $expectedEnclosingClassName but was $enclosingClassName")
+    assert(cls.getDeclaringClass == cls.getEnclosingClass,
+      s"The declaring class of class $className should be the same as its enclosing class but was $declaringClassName")
+    assert(cls.getEnclosingMethod == null,
+      s"Member class $className should have no enclosing method")
+    memberChecksCount += 1
+
+  /** Check JVM class properties of a local class (defined directly inside a method) */
+  def checkLocal(self: AnyRef, outer: AnyRef) =
+    val cls = self.getClass
+    def className = cls.simpleName
+    def enclosingClassName = cls.getEnclosingClass.simpleName
+    def method = cls.getEnclosingMethod
+    val expectedEnclosingClassName = outer.getClass.simpleName
+    // extracting method name basing on the described naming convention
+    // $1 gets added during lambdaLift in case of a method defined inside another method
+    val expectedEnclosingMethodName =
+      val prefix = className.init
+      val suffix = if prefix.filter(_.isLetter).endsWith("DD") then "$1" else ""
+      prefix ++ suffix
+    assert(cls.getEnclosingClass != null,
+      s"Local class $className should have an enclosing class")
+    assert(enclosingClassName == expectedEnclosingClassName,
+      s"The enclosing class of class $className should be $expectedEnclosingClassName but was $enclosingClassName")
+    assert(cls.getDeclaringClass == null,
+      s"Local class $className should have no declaring class")
+    assert(method != null,
+      s"Local class $className should have an enclosing method")
+    assert(method.getName == expectedEnclosingMethodName,
+      s"The enclosing method of class $className should be $expectedEnclosingMethodName but was ${method.getName}")
+    localChecksCount += 1
+
+  extension (cls: Class[?])
+    // java 8 implementation of cls.getSimpleName() is buggy - https://bugs.java.com/bugdatabase/view_bug.do?bug_id=8057919
+    def simpleName = cls.getName
+      .stripSuffix("$1").stripSuffix("$2")
+      .split("\\.").last
+      .split("\\$").last

tests/run/i4192/Test.scala

@@ -0,0 +1,5 @@
+object Test {
+  def main(args: Array[String]): Unit = {
+    foo.bar.Checks.run()
+  }
+}