+ add header to automatically created files which informs that the file is created automatically

git-svn-id: branches/laksen/intrinsics@31140 -

compiler/arm/armfirst.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 in_arm_nop
 ,in_arm_yield
 ,in_arm_wfi

compiler/arm/arminnr.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 const
   in_arm_first = in_arm_base;
   in_arm_nop = in_arm_base+0;

compiler/arm/armsecond.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 in_arm_nop
 ,in_arm_yield
 ,in_arm_wfi

compiler/arm/armtype.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 in_arm_nop
 ,in_arm_yield
 ,in_arm_wfi

compiler/utils/mkarminl.pp

@@ -262,14 +262,21 @@ procedure ParseList(const APrefix, AFilename: string);
           end;
     end;
 
+
+  const
+    headercomment = '{'+LineEnding+
+                    '     Do not edit file manually!'+LineEnding+
+                    '     File is created automatically from %s by mkarminl.'+LineEnding+
+                    '}'+LineEnding;
+
   begin
     intrnum:=0;
 
     assignfile(f, AFilename);
     reset(f);
 
-    assignfile(fprocs, APrefix+'procs.inc'); rewrite(fprocs);
-    assignfile(finnr, APrefix+'innr.inc'); rewrite(finnr);
+    assignfile(fprocs, APrefix+'procs.inc'); rewrite(fprocs); writeln(fprocs,format(headercomment,[AFilename]));
+    assignfile(finnr, APrefix+'innr.inc'); rewrite(finnr); writeln(finnr,format(headercomment,[AFilename]));
 
     writeln(finnr,'const');
 
@@ -523,8 +530,13 @@ procedure ParseList(const APrefix, AFilename: string);
 
     writeln(finnr, '  in_', APrefix,'_last = in_',APrefix,'_base+',intrnum-1,';');
 
+    ftypechk.Insert(0,format(headercomment,[AFilename]));
     ftypechk.SaveToFile(APrefix+'type.inc');
+
+    ffirst.Insert(0,format(headercomment,[AFilename]));
     ffirst.SaveToFile(APrefix+'first.inc');
+
+    fsecond.Insert(0,format(headercomment,[AFilename]));
     fsecond.SaveToFile(APrefix+'second.inc');
 
     ftypechk.Free;

rtl/arm/arminnr.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 const
   in_arm_first = in_arm_base;
   in_arm_nop = in_arm_base+0;

rtl/arm/armprocs.inc

@@ -1,3 +1,8 @@
+{
+     Do not edit file manually!
+     File is created automatically from armintr.dat by mkarminl.
+}
+
 procedure arm_nop(); [INTERNPROC: in_arm_nop];
 procedure arm_yield(); [INTERNPROC: in_arm_yield];
 procedure arm_wfi(); [INTERNPROC: in_arm_wfi];