paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler, rtl: extend TextRec record with CodePage field

Browse Source 
git-svn-id: trunk@19540 -
This commit is contained in:
paul 2011-10-25 02:09:57 +00:00
parent 270fb09e87
commit e46e2c3ebd
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.pas
View File

@ -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;

3
rtl/inc/textrec.inc
View File

@ -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;