paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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}
case filetyp of
ft_text :
{$ifdef avr}
{$if defined(avr)}
savesize:=96;
{$else avr}
savesize:=576;
{$endif avr}
{$elseif defined(i8086)}
case current_settings.x86memorymodel of
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_untyped :
{$ifdef avr}
{$if defined(avr)}
savesize:=76;
{$else avr}
{$elseif defined(i8086)}
savesize:=316;
{$endif avr}
{$else}
{$fatal TODO: define the textrec size for your cpu}
{$endif}
end;
{$endif cpu16bitaddr}
end;