paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:33:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* updated tfiledef.setsize to support the size of textrec in the medium memory model

Browse Source 
git-svn-id: trunk@24850 -
This commit is contained in:
nickysn 2013-06-09 18:22:47 +00:00
parent 01f8989ebc
commit 2809ed6fb9
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/symdef.pas
View File

@ -2654,18 +2654,27 @@ implementation
{$ifdef cpu16bitaddr} {$ifdef cpu16bitaddr}
case filetyp of case filetyp of
ft_text : ft_text :
{$ifdef avr} {$if defined(avr)}
savesize:=96; savesize:=96;
{$else avr} {$elseif defined(i8086)}
savesize:=576; case current_settings.x86memorymodel of
{$endif avr} mm_tiny,mm_small: savesize:=576;
mm_medium: savesize:=584;
else
internalerror(2013060901);
end;
{$else}
{$fatal TODO: define the textrec size for your cpu}
{$endif}
ft_typed, ft_typed,
ft_untyped : ft_untyped :
{$ifdef avr} {$if defined(avr)}
savesize:=76; savesize:=76;
{$else avr} {$elseif defined(i8086)}
savesize:=316; savesize:=316;
{$endif avr} {$else}
{$fatal TODO: define the textrec size for your cpu}
{$endif}
end; end;
{$endif cpu16bitaddr} {$endif cpu16bitaddr}
end; end;