C++ Interop: Add Core.CppCompat.Long32 as a distinct type for Cpp.long when long is 32 bits (#6364)

For now, only support implicit conversions from and to `i32`.

See #6275 for rationale.

Part of #5263.

Author: bricknerb

core/prelude/types.carbon

@@ -6,6 +6,7 @@ package Core library "prelude/types";
 
 export import library "prelude/types/bool";
 export import library "prelude/types/char";
+export import library "prelude/types/cpp/int";
 export import library "prelude/types/float";
 export import library "prelude/types/float_literal";
 export import library "prelude/types/int";

core/prelude/types/cpp/int.carbon

@@ -0,0 +1,38 @@
+// Part of the Carbon Language project, under the Apache License v2.0 with LLVM
+// Exceptions. See /LICENSE for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+
+package Core library "prelude/types/cpp/int";
+
+import library "prelude/operators";
+import library "prelude/types/int";
+import library "prelude/types/int_literal";
+
+namespace CppCompat;
+
+// TODO: Add ULong32, LongLong64, ULongLong64.
+class CppCompat.Long32 {
+  adapt i32;
+}
+
+// TODO: Copy.
+
+// Conversions.
+
+// TODO: ImplicitAs from IntLiteral to Long32.
+// TODO: ImplicitAs from Long32 to IntLiteral.
+
+// TODO: ImplicitAs from Int(N) to Long32 if N < 32.
+impl i32 as ImplicitAs(CppCompat.Long32) {
+  fn Convert[self: Self]() -> CppCompat.Long32 = "int.convert_checked";
+}
+
+// TODO: ImplicitAs from Long32 to Int(N) if N > 32.
+final impl CppCompat.Long32 as ImplicitAs(i32) {
+  fn Convert[self: Self]() -> i32 = "int.convert";
+}
+
+// TODO: As from Long32 to Int(N) if N < 32.
+// TODO: As from Int(N) to Long32 if N > 32.
+
+// TODO: Operations on Long32.

toolchain/check/cpp/import.cpp

@@ -1112,6 +1112,11 @@ static auto MapBuiltinIntegerType(Context& context, SemIR::LocId loc_id,
     return ExprAsType(context, Parse::NodeId::None,
                       MakeCharTypeLiteral(context, Parse::NodeId::None));
   }
+  if (ast_context.hasSameType(qual_type, ast_context.LongTy) && width == 32) {
+    return ExprAsType(context, Parse::NodeId::None,
+                      LookupNameInCore(context, Parse::NodeId::None,
+                                       {"CppCompat", "Long32"}));
+  }
   return TypeExpr::None;
 }
 

toolchain/check/cpp/type_mapping.cpp

@@ -104,6 +104,8 @@ static auto LookupCppType(
 // type is not supported.
 static auto TryMapClassType(Context& context, SemIR::ClassType class_type)
     -> clang::QualType {
+  clang::ASTContext& ast_context = context.ast_context();
+
   // If the class was imported from C++, return the original C++ type.
   auto clang_decl_id =
       context.name_scopes()
@@ -112,7 +114,7 @@ static auto TryMapClassType(Context& context, SemIR::ClassType class_type)
   if (clang_decl_id.has_value()) {
     clang::Decl* clang_decl = context.clang_decls().Get(clang_decl_id).key.decl;
     auto* tag_type_decl = clang::cast<clang::TagDecl>(clang_decl);
-    return context.ast_context().getCanonicalTagType(tag_type_decl);
+    return ast_context.getCanonicalTagType(tag_type_decl);
   }
 
   // If the class represents a Carbon type literal, map it to the corresponding
@@ -135,22 +137,28 @@ static auto TryMapClassType(Context& context, SemIR::ClassType class_type)
           CARBON_FATAL("Unexpected invalid numeric type literal");
         }
         case SemIR::NumericTypeLiteralInfo::Float: {
-          return context.ast_context().getRealTypeForBitwidth(
+          return ast_context.getRealTypeForBitwidth(
               bit_width, clang::FloatModeKind::NoFloat);
         }
         case SemIR::NumericTypeLiteralInfo::Int: {
-          return context.ast_context().getIntTypeForBitwidth(bit_width, true);
+          return ast_context.getIntTypeForBitwidth(bit_width, true);
         }
         case SemIR::NumericTypeLiteralInfo::UInt: {
-          return context.ast_context().getIntTypeForBitwidth(bit_width, false);
+          return ast_context.getIntTypeForBitwidth(bit_width, false);
         }
       }
     }
     case SemIR::TypeLiteralInfo::Char: {
-      return context.ast_context().CharTy;
+      return ast_context.CharTy;
+    }
+    case SemIR::TypeLiteralInfo::CppLong32: {
+      if (ast_context.getIntWidth(ast_context.LongTy) == 32) {
+        return ast_context.LongTy;
+      }
+      break;
     }
     case SemIR::TypeLiteralInfo::CppNullptrT: {
-      return context.ast_context().NullPtrTy;
+      return ast_context.NullPtrTy;
     }
     case SemIR::TypeLiteralInfo::Str: {
       return LookupCppType(context, {"std", "string_view"});