Better support CoreFoundation types in RemoteMirror

This plugs a hole where we failed to recognize a CF type when it
appeared as the payload of an enum stored as a property.  Curiously,
RemoteMirror is able to reflect this when the enum appears by itself,
just not when it's stored as a property.

The simplest fix is to hook into the TypeInfo calculation which
computes a TypeInfo (basically, the tree of fields) from a TypeRef
(basically, the name of the type, including generic context).
Specifically, we sometimes end up here with a "type alias" that
none of the lookup support seems to be able to handle.  Fortunately,
these aliases demangle into a pretty predictable shape, so this
just pattern-matches the specific demangle tree shape to recognize
these as "type aliases in the `__C` module whose name starts with `CF`
and ends with `Ref`".

Resolves rdar://82465109

Author: tbkka

stdlib/public/RemoteInspection/TypeLowering.cpp

@@ -2196,6 +2196,34 @@ class LowerType
   TypeConverter &TC;
   remote::TypeInfoProvider *ExternalTypeInfo;
 
+  const TypeInfo *CFRefTypeInfo(const TypeRef *TR) {
+    if (auto N = dyn_cast<NominalTypeRef>(TR)) {
+      Demangler Dem;
+      auto Node = N->getDemangling(Dem);
+      if (Node->getKind() == Node::Kind::Type && Node->getNumChildren() == 1) {
+	auto Alias = Node->getChild(0);
+	if (Alias->getKind() == Node::Kind::TypeAlias && Alias->getNumChildren() == 2) {
+	  auto Module = Alias->getChild(0);
+	  auto Name = Alias->getChild(1);
+	  if (Module->getKind() == Node::Kind::Module
+	      && Module->hasText()
+	      && Module->getText() == "__C"
+	      && Name->getKind() == Node::Kind::Identifier
+	      && Name->hasText()) {
+	    auto CName = Name->getText();
+	    // Heuristic: Hopefully good enough.
+	    if (CName.starts_with("CF") && CName.ends_with("Ref")) {
+	      // A CF reference is essentially the same as a Strong ObjC reference
+	      return TC.getReferenceTypeInfo(ReferenceKind::Strong,
+					     ReferenceCounting::Unknown);
+	    }
+	  }
+	}
+      }
+    }
+    return nullptr;
+  }
+
 public:
   using TypeRefVisitor<LowerType, const TypeInfo *>::visit;
 
@@ -2265,6 +2293,11 @@ class LowerType
         if (auto External = QueryExternalTypeInfoProvider())
           return External;
 
+	// CoreFoundation types require some special handling
+	if (auto CFTypeInfo = CFRefTypeInfo(TR))
+	  return CFTypeInfo;
+
+
         // If the external provider also fails we're out of luck.
         DEBUG_LOG(fprintf(stderr, "No TypeInfo for nominal type: "); TR->dump());
         return nullptr;

validation-test/Reflection/reflect_Enum_CF.swift

@@ -0,0 +1,105 @@
+// RUN: %empty-directory(%t)
+// RUN: %target-build-swift -lswiftSwiftReflectionTest %s -o %t/reflect_Enum_CF
+// RUN: %target-codesign %t/reflect_Enum_CF
+
+// RUN: %target-run %target-swift-reflection-test %t/reflect_Enum_CF | tee /dev/stderr | %FileCheck %s --check-prefix=CHECK --check-prefix=CHECK%target-ptrsize --dump-input=fail %add_num_extra_inhabitants
+
+// REQUIRES: objc_interop
+// REQUIRES: executable_test
+// REQUIRES: reflection_test_support
+// UNSUPPORTED: use_os_stdlib
+// UNSUPPORTED: asan
+
+import SwiftReflectionTest
+import Foundation
+
+enum MyPair<T,U> {
+case a(T)
+case b(U)
+}
+
+reflect(enum: MyPair<Void,CFNumber>.b(kCFNumberPositiveInfinity))
+
+// CHECK: Reflecting an enum.
+// CHECK-NEXT: Instance pointer in child address space: 0x{{[0-9a-fA-F]+}}
+// CHECK-NEXT: Type reference:
+// CHECK-NEXT: (bound_generic_enum reflect_Enum_CF.MyPair
+// CHECK-NEXT:   (tuple)
+// CHECK-NEXT:   (foreign name=So11CFNumberRefa))
+
+// CHECK: Type info:
+// CHECK64-NEXT: (multi_payload_enum size=9 alignment=8 stride=16 num_extra_inhabitants=254 bitwise_takable=1
+// CHECK64-NEXT:   (case name=a index=0 offset=0
+// CHECK64-NEXT:     (tuple size=0 alignment=1 stride=1 num_extra_inhabitants=0 bitwise_takable=1))
+// CHECK64-NEXT:   (case name=b index=1 offset=0
+// CHECK64-NEXT:     (reference kind=strong refcounting=unknown)))
+
+// CHECK: Mangled name: $s15reflect_Enum_CF6MyPairOyytSo11CFNumberRefaG
+// CHECK-NEXT: Demangled name: reflect_Enum_CF.MyPair<(), __C.CFNumberRef>
+
+// CHECK: Enum value:
+// CHECK-NEXT: (enum_value name=b index=1
+// CHECK-NEXT:   (foreign name=So11CFNumberRefa)
+// CHECK-NEXT: )
+
+struct StructA {
+  let field1 = MyPair<Void,CFNumber>.b(kCFNumberPositiveInfinity)
+  let field2 = 7
+}
+
+enum T {
+case a
+case b(MyPair<Void,CFNumber>)
+}
+
+reflect(enum: StructA().field1)
+
+// CHECK: Reflecting an enum.
+// CHECK-NEXT: Instance pointer in child address space: 0x{{[0-9a-fA-F]+}}
+// CHECK-NEXT: Type reference:
+// CHECK-NEXT: (bound_generic_enum reflect_Enum_CF.MyPair
+// CHECK-NEXT:   (tuple)
+// CHECK-NEXT:   (foreign name=So11CFNumberRefa))
+
+// CHECK: Type info:
+// CHECK-NEXT: (multi_payload_enum size=9 alignment=8 stride=16 num_extra_inhabitants=254 bitwise_takable=1
+// CHECK-NEXT:   (case name=a index=0 offset=0
+// CHECK-NEXT:     (tuple size=0 alignment=1 stride=1 num_extra_inhabitants=0 bitwise_takable=1))
+// CHECK-NEXT:   (case name=b index=1 offset=0
+// CHECK-NEXT:     (reference kind=strong refcounting=unknown)))
+
+// CHECK: Mangled name: $s15reflect_Enum_CF6MyPairOyytSo11CFNumberRefaG
+// CHECK-NEXT: Demangled name: reflect_Enum_CF.MyPair<(), __C.CFNumberRef>
+
+// CHECK: Enum value:
+// CHECK-NEXT: (enum_value name=b index=1
+// CHECK-NEXT: (foreign name=So11CFNumberRefa)
+// CHECK-NEXT: )
+
+reflect(enum: T.a)
+
+// CHECK: Reflecting an enum.
+// CHECK-NEXT: Instance pointer in child address space: 0x{{[0-9a-fA-F]+}}
+// CHECK-NEXT: Type reference:
+// CHECK-NEXT: (enum reflect_Enum_CF.T)
+
+// CHECK: Type info:
+// CHECK-NEXT: (single_payload_enum size=9 alignment=8 stride=16 num_extra_inhabitants=253 bitwise_takable=1
+// CHECK-NEXT:   (case name=b index=0 offset=0
+// CHECK-NEXT:     (multi_payload_enum size=9 alignment=8 stride=16 num_extra_inhabitants=254 bitwise_takable=1
+// CHECK-NEXT:       (case name=a index=0 offset=0
+// CHECK-NEXT:         (tuple size=0 alignment=1 stride=1 num_extra_inhabitants=0 bitwise_takable=1))
+// CHECK-NEXT:       (case name=b index=1 offset=0
+// CHECK-NEXT:         (reference kind=strong refcounting=unknown))))
+// CHECK-NEXT:   (case name=a index=1))
+// CHECK-NEXT: Mangled name: $s15reflect_Enum_CF1TO
+// CHECK-NEXT: Demangled name: reflect_Enum_CF.T
+
+
+// CHECK: Enum value:
+// CHECK-NEXT: (enum_value name=a index=1)
+
+doneReflecting()
+
+// CHECKALL: Done.
+