Преглед изворни кода

* set the proper TextRec size for i8086

git-svn-id: branches/i8086@23854 -
nickysn пре 12 година
родитељ
комит
a0e683bed6
1 измењених фајлова са 5 додато и 1 уклоњено
  1. 5 1
      compiler/symdef.pas

+ 5 - 1
compiler/symdef.pas

@@ -2499,7 +2499,11 @@ implementation
 {$ifdef cpu16bitaddr}
 {$ifdef cpu16bitaddr}
         case filetyp of
         case filetyp of
           ft_text :
           ft_text :
-            savesize:=96;
+            {$ifdef avr}
+              savesize:=96;
+            {$else avr}
+              savesize:=576;
+            {$endif avr}
           ft_typed,
           ft_typed,
           ft_untyped :
           ft_untyped :
             savesize:=76;
             savesize:=76;