* avr uses a reduced buffer and file name length in textrecs and filerecs

* fixed file and text sizes for avr

git-svn-id: trunk@22147 -

compiler/symdef.pas

@@ -2466,15 +2466,15 @@ implementation
             savesize:=332;
         end;
 {$endif cpu32bitaddr}
-{$ifdef cpu8bitaddr}
+{$ifdef cpu16bitaddr}
         case filetyp of
           ft_text :
-            savesize:=127;
+            savesize:=96;
           ft_typed,
           ft_untyped :
-            savesize:=127;
+            savesize:=76;
         end;
-{$endif cpu8bitaddr}
+{$endif cpu16bitaddr}
       end;
 
 

rtl/inc/filerec.inc

@@ -21,7 +21,11 @@
 }
 
 const
+{$ifdef CPUAVR}
+  filerecnamelength = 15;
+{$else CPUAVR}
   filerecnamelength = 255;
+{$endif CPUAVR}
 type
  { using packed makes the compiler to generate ugly code on some CPUs, further
     using packed causes the compiler to handle arrays of text wrongly, see  see tw0754 e.g. on arm  }

rtl/inc/textrec.inc

@@ -20,8 +20,13 @@
 }
 
 const
+{$ifdef CPUAVR}
+  TextRecNameLength = 16;
+  TextRecBufSize    = 16;
+{$else CPUAVR}
   TextRecNameLength = 256;
   TextRecBufSize    = 256;
+{$endif CPUAVR}
 type
   TLineEndStr = string [3];
   TextBuf = array[0..TextRecBufSize-1] of char;