KT-4173: Can't pass a non-trivial closure to a super-call for object expression

#KT-4173 Fixed

compiler/testData/codegen/box/super/kt4173.kt

@@ -0,0 +1,18 @@
+open class C(val f: () -> Unit) {
+    fun test() {
+        f()
+    }
+}
+
+class B(var x: Int) {
+    fun foo() {
+        object : C({x = 3}) {}.test()
+    }
+}
+
+
+fun box() : String {
+    val b = B(1)
+    b.foo()
+    return if (b.x != 3) "fail: b.x = ${b.x}" else "OK"
+}