paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01: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 case filetyp of
ft_text : ft_text :
if target_info.system in [system_x86_64_win64,system_ia64_win64] then if target_info.system in [system_x86_64_win64,system_ia64_win64] then
savesize:=632{+8} savesize:=634{+8}
else else
savesize:=628{+8}; savesize:=630{+8};
ft_typed, ft_typed,
ft_untyped : ft_untyped :
if target_info.system in [system_x86_64_win64,system_ia64_win64] then if target_info.system in [system_x86_64_win64,system_ia64_win64] then
@ -2204,7 +2204,7 @@ implementation
{$ifdef cpu32bitaddr} {$ifdef cpu32bitaddr}
case filetyp of case filetyp of
ft_text : ft_text :
savesize:=592{+4}; savesize:=594{+4};
ft_typed, ft_typed,
ft_untyped : ft_untyped :
savesize:=332; savesize:=332;

3
rtl/inc/textrec.inc
View File

@ -42,5 +42,8 @@ type
name : array[0..textrecnamelength-1] of char; name : array[0..textrecnamelength-1] of char;
LineEnd : TLineEndStr; LineEnd : TLineEndStr;
buffer : textbuf; buffer : textbuf;
{$ifndef ver2_4}
CodePage : TSystemCodePage;
{$endif ver2_4}
End; End;