From e25594c48e207157dddad49d8dd246fe59537e57 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 11 Jul 2022 22:07:06 +0200
Subject: [PATCH]   * correctly truncate rtti symbol names of enumeration
 types, resolves #39829

---
 compiler/ncgrtti.pas    |  8 ++++++--
 tests/webtbs/tw39829.pp | 18 ++++++++++++++++++
 2 files changed, 24 insertions(+), 2 deletions(-)
 create mode 100644 tests/webtbs/tw39829.pp

diff --git a/compiler/ncgrtti.pas b/compiler/ncgrtti.pas
index 58c8a6b09c..10d3bdd785 100644
--- a/compiler/ncgrtti.pas
+++ b/compiler/ncgrtti.pas
@@ -2121,6 +2121,7 @@ implementation
           i:longint;
           rttitypesym: ttypesym;
           rttidef: trecorddef;
+          s:TIDString;
         begin
           { collect enumsyms belonging to this enum type (could be a subsection
             in case of a subrange type) }
@@ -2137,7 +2138,8 @@ implementation
             end;
           { sort the syms by enum name }
           syms.sort(@enumsym_compare_name);
-          rttitypesym:=try_search_current_module_type(internaltypeprefixName[itp_rttidef]+def.rtti_mangledname(fullrtti));
+          s:=internaltypeprefixName[itp_rttidef]+def.rtti_mangledname(fullrtti);
+          rttitypesym:=try_search_current_module_type(s);
           if not assigned(rttitypesym) or
              (ttypesym(rttitypesym).typedef.typ<>recorddef) then
             internalerror(2015071402);
@@ -2255,6 +2257,7 @@ implementation
         tcb: ttai_typedconstbuilder;
         rttilab: tasmsymbol;
         rttidef: tdef;
+        s: TIDString;
       begin
         { only write rtti of definitions from the current module }
         if not findunitsymtable(def.owner).iscurrentunit then
@@ -2270,8 +2273,9 @@ implementation
         write_child_rtti_data(def,rt);
         { write rtti data }
         tcb:=ctai_typedconstbuilder.create([tcalo_make_dead_strippable,tcalo_data_force_indirect]);
+        s:=internaltypeprefixName[itp_rttidef]+tstoreddef(def).rtti_mangledname(rt);
         tcb.begin_anonymous_record(
-          internaltypeprefixName[itp_rttidef]+tstoreddef(def).rtti_mangledname(rt),
+          s,
           defaultpacking,reqalign,
           targetinfos[target_info.system]^.alignment.recordalignmin
         );
diff --git a/tests/webtbs/tw39829.pp b/tests/webtbs/tw39829.pp
new file mode 100644
index 0000000000..dac3b28bd2
--- /dev/null
+++ b/tests/webtbs/tw39829.pp
@@ -0,0 +1,18 @@
+{ %norun }
+unit tw39829;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+  { TLazDebugExtensionStringTreeController }
+
+  TLazDebugExtensionStringTreeController = class
+  protected type
+    LazDebugExtension1234567890abcdefghijTLazDebugExtensionVaria = (vfLoading, vfChanged, vfOutdated);
+  end;
+
+implementation
+
+end.