From c6c996f506797b54228c248a3784265582a4975d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 15 Jun 2020 19:50:49 +0000
Subject: [PATCH]   * write length/code page when writing the string type

git-svn-id: trunk@45654 -
---
 compiler/symdef.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 01b6d5c36b..8f456ad585 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2688,6 +2688,14 @@ implementation
            'ShortString','LongString','AnsiString','WideString','UnicodeString');
       begin
          GetTypeName:=names[stringtype];
+         case stringtype of
+           st_ansistring,st_unicodestring:
+             GetTypeName:=GetTypeName+'('+tostr(encoding)+')';
+           st_shortstring:
+             GetTypeName:=GetTypeName+'['+tostr(len)+']';
+           else
+             ;
+         end;
       end;