Sfoglia il codice sorgente

Systematically include fpcdefs.inc at sart of all units used by compiler

git-svn-id: trunk@42322 -
pierre 6 anni fa
parent
commit
828a248287

+ 2 - 0
compiler/aarch64/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/arm/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 1 - 1
compiler/armgen/armpara.pas

@@ -20,7 +20,7 @@
 }
 }
 unit armpara;
 unit armpara;
 
 
-{$mode objfpc}
+{$i fpcdefs.inc}
 
 
 interface
 interface
 
 

+ 2 - 0
compiler/avr/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/ccharset.pas

@@ -16,6 +16,8 @@
 {$mode objfpc}
 {$mode objfpc}
 unit ccharset;
 unit ccharset;
 
 
+{$i fpcdefs.inc}
+
   interface
   interface
 
 
     type
     type

+ 2 - 0
compiler/generic/cpuinfo.pas

@@ -15,6 +15,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/jvm/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit cpuinfo;
 Unit cpuinfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/m68k/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 3 - 1
compiler/macho.pas

@@ -24,7 +24,9 @@ unit macho;
 
 
 { converted by Dmitry Boyarintsev 2009 }
 { converted by Dmitry Boyarintsev 2009 }
 
 
-{$mode objfpc}{$H+}
+{$i fpcdefs.inc}
+
+{$H+}
 
 
 interface
 interface
 
 

+ 4 - 2
compiler/machoutils.pas

@@ -23,9 +23,11 @@
 
 
 unit machoutils;
 unit machoutils;
 
 
-interface
+{$i fpcdefs.inc}
+
+{$h+}
 
 
-{$mode objfpc}{$h+}
+interface
 
 
 uses
 uses
   macho;
   macho;

+ 2 - 0
compiler/mips/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 3 - 1
compiler/pcp.pas

@@ -21,7 +21,9 @@
 }
 }
 unit pcp;
 unit pcp;
 
 
-{$mode objfpc}{$H+}
+{$i fpcdefs.inc}
+
+{$H+}
 
 
 interface
 interface
 
 

+ 2 - 0
compiler/powerpc/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/powerpc64/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 unit CPUInfo;
 unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 interface
 interface
 
 
 uses
 uses

+ 2 - 0
compiler/riscv32/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 Unit CPUInfo;
 Unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 Interface
 Interface
 
 
   uses
   uses

+ 2 - 0
compiler/riscv64/cpuinfo.pas

@@ -14,6 +14,8 @@
 
 
 unit CPUInfo;
 unit CPUInfo;
 
 
+{$i fpcdefs.inc}
+
 interface
 interface
 
 
 uses
 uses

+ 2 - 0
compiler/systems/i_wii.pas

@@ -21,6 +21,8 @@
 { This unit implements support information structures for the Nintendo Wii. }
 { This unit implements support information structures for the Nintendo Wii. }
 unit i_wii;
 unit i_wii;
 
 
+{$i fpcdefs.inc}
+
   interface
   interface
 
 
     uses
     uses