diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 5dd63925b0..c29db530d0 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -2190,9 +2190,9 @@ implementation case filetyp of ft_text : if target_info.system in [system_x86_64_win64,system_ia64_win64] then - savesize:=632{+8} + savesize:=634{+8} else - savesize:=628{+8}; + savesize:=630{+8}; ft_typed, ft_untyped : if target_info.system in [system_x86_64_win64,system_ia64_win64] then @@ -2204,7 +2204,7 @@ implementation {$ifdef cpu32bitaddr} case filetyp of ft_text : - savesize:=592{+4}; + savesize:=594{+4}; ft_typed, ft_untyped : savesize:=332; diff --git a/rtl/inc/textrec.inc b/rtl/inc/textrec.inc index 80f3b2e269..427b9adde3 100644 --- a/rtl/inc/textrec.inc +++ b/rtl/inc/textrec.inc @@ -42,5 +42,8 @@ type name : array[0..textrecnamelength-1] of char; LineEnd : TLineEndStr; buffer : textbuf; +{$ifndef ver2_4} + CodePage : TSystemCodePage; +{$endif ver2_4} End;