صفحهٔ اصلی گشت‌و‌گذار راهنما
ورود
pascal
/
fpc
mirrorاز https://gitlab.com/freepascal.org/fpc/source.git
2
0
انشعاب 0
پرونده‌ها مشکلات 0 ویکی
شاخه: svn/mips_embedded
شاخه‌ها تگ‌ها
fpc
/
compiler
/
mips
/
cpuinfo.pas

cpuinfo.pas 28 KB
لینک دائمی تاريخچه خام

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371 
  1. {
    2. 

  2.     Copyright (c) 1998-2002 by the Free Pascal development team
    3. 

  3. 

  4.     Basic Processor information for the MIPS
    5. 

  5. 

  6.     See the file COPYING.FPC, included in this distribution,
    7. 

  7.     for details about the copyright.
    8. 

  8. 

  9.     This program is distributed in the hope that it will be useful,
    10. 

  10.     but WITHOUT ANY WARRANTY; without even the implied warranty of
    11. 

  11.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    12. 

  12. 

  13.  **********************************************************************}
    14. 

  14. 

  15. Unit CPUInfo;
    16. 

  16. 

  17. Interface
    18. 

  18. 

  19.   uses
    20. 

  20.     globtype;
    21. 

  21. 

  22. Type
    23. 

  23.    bestreal = double;
    24. 

  24.    ts32real = single;
    25. 

  25.    ts64real = double;
    26. 

  26.    ts80real = type double;
    27. 

  27.    ts128real = type double;
    28. 

  28.    ts64comp = comp;
    29. 

  29. 

  30.    pbestreal=^bestreal;
    31. 

  31. 

  32.    { possible supported processors for this target }
    33. 

  33.    tcputype =
    34. 

  34.       (cpu_none,
    35. 

  35.        cpu_mips1,
    36. 

  36.        cpu_mips2,
    37. 

  37.        cpu_mips3,
    38. 

  38.        cpu_mips4,
    39. 

  39.        cpu_mips5,
    40. 

  40.        cpu_mips32,
    41. 

  41.        cpu_mips32r2,
    42. 

  42.        cpu_pic32mx
    43. 

  43.       );
    44. 

  44. 

  45.    tfputype =(fpu_none,fpu_soft,fpu_mips2,fpu_mips3);
    46. 

  46. 

  47.    tabitype = 
    48. 

  48.      (
    49. 

  49.      abi_none,
    50. 

  50.      abi_default,
    51. 

  51.      abi_o32,
    52. 

  52.      abi_n32,
    53. 

  53.      abi_o64,
    54. 

  54.      abi_n64,
    55. 

  55.      abi_eabi
    56. 

  56.      );
    57. 

  57. 

  58. Const
    59. 

  59.    {# Size of native extended floating point type }
    60. 

  60.    extended_size = 8;
    61. 

  61.    {# Size of a multimedia register               }
    62. 

  62.    mmreg_size = 0;
    63. 

  63.    { calling conventions supported by the code generator }
    64. 

  64.    supported_calling_conventions : tproccalloptions = [
    65. 

  65.      pocall_internproc,
    66. 

  66.      pocall_stdcall,
    67. 

  67.      pocall_safecall,
    68. 

  68.      { same as stdcall only different name mangling }
    69. 

  69.      pocall_cdecl,
    70. 

  70.      { same as stdcall only different name mangling }
    71. 

  71.      pocall_cppdecl
    72. 

  72.    ];
    73. 

  73. 

  74.    { cpu strings as accepted by 
    75. 

  75.      GNU assembler in -arch=XXX option 
    76. 

  76.      this ilist needs to be uppercased }
    77. 

  77.    cputypestr : array[tcputype] of string[8] = ('',
    78. 

  78.      { cpu_mips1        } 'MIPS1',
    79. 

  79.      { cpu_mips2        } 'MIPS2',
    80. 

  80.      { cpu_mips3        } 'MIPS3',
    81. 

  81.      { cpu_mips4        } 'MIPS4',
    82. 

  82.      { cpu_mips5        } 'MIPS5',
    83. 

  83.      { cpu_mips32       } 'MIPS32',
    84. 

  84.      { cpu_mips32r2     } 'MIPS32R2',
    85. 

  85.      { cpu_pic32mx      } 'PIC32MX'
    86. 

  86.    );
    87. 

  87. 

  88.    fputypestr : array[tfputype] of string[9] = ('',
    89. 

  89.      'SOFT',
    90. 

  90.      'FPU_MIPS2','FPU_MIPS3'
    91. 

  91.    );
    92. 

  92. 

  93.    { abi strings as accepted by 
    94. 

  94.      GNU assembler in -abi=XXX option }
    95. 

  95.    abitypestr : array[tabitype] of string[4] =
    96. 

  96.      ({ abi_none    } '',
    97. 

  97.       { abi_default } '32',
    98. 

  98.       { abi_o32     } '32',
    99. 

  99.       { abi_n32     } 'n32',
    100. 

  100.       { abi_o64     } 'o64',
    101. 

  101.       { abi_n64     } '64',
    102. 

  102.       { abi_eabi    } 'eabi'
    103. 

  103.      );
    104. 

  104. 

  105.    mips_abi : tabitype = abi_default;
    106. 

  106. 

  107. type
    108. 

  108.    tcpuflags=(
    109. 

  109.      CPUMIPS_HAS_CMOV,             { conditional move instructions (mips4+) }
    110. 

  110.      CPUMIPS_HAS_ISA32R2           { mips32r2 instructions (also on PIC32)  }
    111. 

  111.    );
    112. 

  112. 

  113. const
    114. 

  114.   cpu_capabilities : array[tcputype] of set of tcpuflags =
    115. 

  115.     ( { cpu_none }     [],
    116. 

  116.       { cpu_mips1 }    [],
    117. 

  117.       { cpu_mips2 }    [],
    118. 

  118.       { cpu_mips3 }    [],
    119. 

  119.       { cpu_mips4 }    [CPUMIPS_HAS_CMOV],
    120. 

  120.       { cpu_mips5 }    [CPUMIPS_HAS_CMOV],
    121. 

  121.       { cpu_mips32 }   [CPUMIPS_HAS_CMOV],
    122. 

  122.       { cpu_mips32r2 } [CPUMIPS_HAS_CMOV,CPUMIPS_HAS_ISA32R2],
    123. 

  123.       { cpu_pic32mx }  [CPUMIPS_HAS_CMOV,CPUMIPS_HAS_ISA32R2]
    124. 

  124.     );
    125. 

  125. 

  126. {$ifdef MIPSEL}
    127. 

  127. type
    128. 

  128.    tcontrollertype =
    129. 

  129.      (ct_none,
    130. 

  130.       { pic32mx }
    131. 

  131.       ct_pic32mx110f016b,
    132. 

  132.       ct_pic32mx110f016c,
    133. 

  133.       ct_pic32mx110f016d,
    134. 

  134.       ct_pic32mx120f032b,
    135. 

  135.       ct_pic32mx120f032c,
    136. 

  136.       ct_pic32mx120f032d,
    137. 

  137.       ct_pic32mx130f064b,
    138. 

  138.       ct_pic32mx130f064c,
    139. 

  139.       ct_pic32mx130f064d,
    140. 

  140.       ct_pic32mx150f128b,
    141. 

  141.       ct_pic32mx150f128c,
    142. 

  142.       ct_pic32mx150f128d,
    143. 

  143.       ct_pic32mx170f256b,
    144. 

  144.       ct_pic32mx170f256c,
    145. 

  145.       ct_pic32mx170f256d,
    146. 

  146.       ct_pic32mx210f016b,
    147. 

  147.       ct_pic32mx210f016c,
    148. 

  148.       ct_pic32mx210f016d,
    149. 

  149.       ct_pic32mx220f032b,
    150. 

  150.       ct_pic32mx220f032c,
    151. 

  151.       ct_pic32mx220f032d,
    152. 

  152.       ct_pic32mx230f064b,
    153. 

  153.       ct_pic32mx230f064c,
    154. 

  154.       ct_pic32mx230f064d,
    155. 

  155.       ct_pic32mx250f128b,
    156. 

  156.       ct_pic32mx250f128c,
    157. 

  157.       ct_pic32mx250f128d,
    158. 

  158.       ct_pic32mx270f256b,
    159. 

  159.       ct_pic32mx270f256c,
    160. 

  160.       ct_pic32mx270f256d,
    161. 

  161.       ct_pic32mx320f032h,
    162. 

  162.       ct_pic32mx320f064h,
    163. 

  163.       ct_pic32mx320f128h,
    164. 

  164.       ct_pic32mx320f128l,
    165. 

  165.       ct_pic32mx330f064h,
    166. 

  166.       ct_pic32mx330f064l,
    167. 

  167.       ct_pic32mx340f128h,
    168. 

  168.       ct_pic32mx340f128l,
    169. 

  169.       ct_pic32mx340f256h,
    170. 

  170.       ct_pic32mx340f512h,
    171. 

  171.       ct_pic32mx350f128h,
    172. 

  172.       ct_pic32mx350f128l,
    173. 

  173.       ct_pic32mx350f256h,
    174. 

  174.       ct_pic32mx350f256l,
    175. 

  175.       ct_pic32mx360f256l,
    176. 

  176.       ct_pic32mx360f512l,
    177. 

  177.       ct_pic32mx370f512h,
    178. 

  178.       ct_pic32mx370f512l,
    179. 

  179.       ct_pic32mx420f032h,
    180. 

  180.       ct_pic32mx430f064h,
    181. 

  181.       ct_pic32mx430f064l,
    182. 

  182.       ct_pic32mx440f128h,
    183. 

  183.       ct_pic32mx440f128l,
    184. 

  184.       ct_pic32mx440f256h,
    185. 

  185.       ct_pic32mx440f512h,
    186. 

  186.       ct_pic32mx450f128h,
    187. 

  187.       ct_pic32mx450f128l,
    188. 

  188.       ct_pic32mx450f256h,
    189. 

  189.       ct_pic32mx450f256l,
    190. 

  190.       ct_pic32mx460f256l,
    191. 

  191.       ct_pic32mx460f512l,
    192. 

  192.       ct_pic32mx470f512h,
    193. 

  193.       ct_pic32mx470f512l,
    194. 

  194.       ct_pic32mx534f064h,
    195. 

  195.       ct_pic32mx534f064l,
    196. 

  196.       ct_pic32mx564f064h,
    197. 

  197.       ct_pic32mx564f064l,
    198. 

  198.       ct_pic32mx564f128h,
    199. 

  199.       ct_pic32mx564f128l,
    200. 

  200.       ct_pic32mx575f256h,
    201. 

  201.       ct_pic32mx575f256l,
    202. 

  202.       ct_pic32mx575f512h,
    203. 

  203.       ct_pic32mx575f512l,
    204. 

  204.       ct_pic32mx664f064h,
    205. 

  205.       ct_pic32mx664f064l,
    206. 

  206.       ct_pic32mx664f128h,
    207. 

  207.       ct_pic32mx664f128l,
    208. 

  208.       ct_pic32mx675f256h,
    209. 

  209.       ct_pic32mx675f256l,
    210. 

  210.       ct_pic32mx675f512h,
    211. 

  211.       ct_pic32mx675f512l,
    212. 

  212.       ct_pic32mx695f512h,
    213. 

  213.       ct_pic32mx695f512l,
    214. 

  214.       ct_pic32mx764f128h,
    215. 

  215.       ct_pic32mx764f128l,
    216. 

  216.       ct_pic32mx775f256h,
    217. 

  217.       ct_pic32mx775f256l,
    218. 

  218.       ct_pic32mx775f512h,
    219. 

  219.       ct_pic32mx775f512l,
    220. 

  220.       ct_pic32mx795f512h,
    221. 

  221.       ct_pic32mx795f512l
    222. 

  222.      );
    223. 

  223. 

  224.     { We know that there are fields after sramsize
    225. 

  225.       but we don't care about this warning }
    226. 

  226.    {$WARN 3177 OFF}
    227. 

  227. const
    228. 

  228.    embedded_controllers : array [tcontrollertype] of tcontrollerdatatype =
    229. 

  229.    (
    230. 

  230.       (controllertypestr:'';		controllerunitstr:'';	flashbase:0;	flashsize:0;	srambase:0;	sramsize:0),
    231. 

  231. 

  232.       { PIC32MX1xx Series}
    233. 

  233.       (controllertypestr:'PIC32MX110F016B';	controllerunitstr:'PIC32MX110F016B';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    234. 

  234.       (controllertypestr:'PIC32MX110F016C';	controllerunitstr:'PIC32MX110F016C';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    235. 

  235.       (controllertypestr:'PIC32MX110F016D';	controllerunitstr:'PIC32MX110F016D';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    236. 

  236.       (controllertypestr:'PIC32MX120F032B';	controllerunitstr:'PIC32MX120F032B';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    237. 

  237.       (controllertypestr:'PIC32MX120F032C';	controllerunitstr:'PIC32MX120F032C';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    238. 

  238.       (controllertypestr:'PIC32MX120F032D';	controllerunitstr:'PIC32MX120F032D';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    239. 

  239.       (controllertypestr:'PIC32MX130F064B';	controllerunitstr:'PIC32MX130F064B';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    240. 

  240.       (controllertypestr:'PIC32MX130F064C';	controllerunitstr:'PIC32MX130F064C';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    241. 

  241.       (controllertypestr:'PIC32MX130F064D';	controllerunitstr:'PIC32MX130F064D';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    242. 

  242.       (controllertypestr:'PIC32MX150F128B';	controllerunitstr:'PIC32MX150F128B';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    243. 

  243.       (controllertypestr:'PIC32MX150F128C';	controllerunitstr:'PIC32MX150F128C';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    244. 

  244.       (controllertypestr:'PIC32MX150F128D';	controllerunitstr:'PIC32MX150F128D';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    245. 

  245.       (controllertypestr:'PIC32MX170F256B';	controllerunitstr:'PIC32MX170F256B';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    246. 

  246.       (controllertypestr:'PIC32MX170F256C';	controllerunitstr:'PIC32MX170F256C';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    247. 

  247.       (controllertypestr:'PIC32MX170F256D';	controllerunitstr:'PIC32MX170F256D';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    248. 

  248. 

  249.       { PIC32MX2xx Series}
    250. 

  250.       (controllertypestr:'PIC32MX210F016B';	controllerunitstr:'PIC32MX210F016B';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    251. 

  251.       (controllertypestr:'PIC32MX210F016C';	controllerunitstr:'PIC32MX210F016C';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    252. 

  252.       (controllertypestr:'PIC32MX210F016D';	controllerunitstr:'PIC32MX210F016D';	flashbase:$9d000000;	flashsize:$00004000;	srambase:$A0000000;	sramsize:$00001000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    253. 

  253.       (controllertypestr:'PIC32MX220F032B';	controllerunitstr:'PIC32MX220F032B';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    254. 

  254.       (controllertypestr:'PIC32MX220F032C';	controllerunitstr:'PIC32MX220F032C';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    255. 

  255.       (controllertypestr:'PIC32MX220F032D';	controllerunitstr:'PIC32MX220F032D';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    256. 

  256.       (controllertypestr:'PIC32MX230F064B';	controllerunitstr:'PIC32MX230F064B';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    257. 

  257.       (controllertypestr:'PIC32MX230F064C';	controllerunitstr:'PIC32MX230F064C';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    258. 

  258.       (controllertypestr:'PIC32MX230F064D';	controllerunitstr:'PIC32MX230F064D';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    259. 

  259.       (controllertypestr:'PIC32MX250F128B';	controllerunitstr:'PIC32MX250F128B';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    260. 

  260.       (controllertypestr:'PIC32MX250F128C';	controllerunitstr:'PIC32MX250F128C';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    261. 

  261.       (controllertypestr:'PIC32MX250F128D';	controllerunitstr:'PIC32MX250F128D';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    262. 

  262.       (controllertypestr:'PIC32MX270F256B';	controllerunitstr:'PIC32MX270F256B';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    263. 

  263.       (controllertypestr:'PIC32MX270F256C';	controllerunitstr:'PIC32MX270F256C';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    264. 

  264.       (controllertypestr:'PIC32MX270F256D';	controllerunitstr:'PIC32MX270F256D';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00000BEF),
    265. 

  265. 

  266.       { PIC32MX3xx Series}
    267. 

  267.       (controllertypestr:'PIC32MX320F032H';	controllerunitstr:'PIC32MX320F032H';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    268. 

  268.       (controllertypestr:'PIC32MX320F064H';	controllerunitstr:'PIC32MX320F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    269. 

  269.       (controllertypestr:'PIC32MX320F128H';	controllerunitstr:'PIC32MX320F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    270. 

  270.       (controllertypestr:'PIC32MX320F128L';	controllerunitstr:'PIC32MX320F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    271. 

  271.       (controllertypestr:'PIC32MX330F064H';	controllerunitstr:'PIC32MX330F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    272. 

  272.       (controllertypestr:'PIC32MX330F064L';	controllerunitstr:'PIC32MX330F064L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    273. 

  273.       (controllertypestr:'PIC32MX340F128H';	controllerunitstr:'PIC32MX340F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    274. 

  274.       (controllertypestr:'PIC32MX340F128L';	controllerunitstr:'PIC32MX340F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    275. 

  275.       (controllertypestr:'PIC32MX340F256H';	controllerunitstr:'PIC32MX340F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    276. 

  276.       (controllertypestr:'PIC32MX340F512H';	controllerunitstr:'PIC32MX340F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    277. 

  277.       (controllertypestr:'PIC32MX350F128H';	controllerunitstr:'PIC32MX350F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    278. 

  278.       (controllertypestr:'PIC32MX350F128L';	controllerunitstr:'PIC32MX350F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    279. 

  279.       (controllertypestr:'PIC32MX350F256H';	controllerunitstr:'PIC32MX350F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    280. 

  280.       (controllertypestr:'PIC32MX350F256L';	controllerunitstr:'PIC32MX350F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    281. 

  281.       (controllertypestr:'PIC32MX360F256L';	controllerunitstr:'PIC32MX360F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    282. 

  282.       (controllertypestr:'PIC32MX360F512L';	controllerunitstr:'PIC32MX360F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    283. 

  283.       (controllertypestr:'PIC32MX370F512H';	controllerunitstr:'PIC32MX370F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    284. 

  284.       (controllertypestr:'PIC32MX370F512L';	controllerunitstr:'PIC32MX370F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    285. 

  285. 

  286.       { PIC32MX4xx Series}
    287. 

  287.       (controllertypestr:'PIC32MX420F032H';	controllerunitstr:'PIC32MX420F032H';	flashbase:$9d000000;	flashsize:$00008000;	srambase:$A0000000;	sramsize:$00002000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    288. 

  288.       (controllertypestr:'PIC32MX430F064H';	controllerunitstr:'PIC32MX430F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    289. 

  289.       (controllertypestr:'PIC32MX430F064L';	controllerunitstr:'PIC32MX430F064L';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    290. 

  290.       (controllertypestr:'PIC32MX440F128H';	controllerunitstr:'PIC32MX440F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    291. 

  291.       (controllertypestr:'PIC32MX440F128L';	controllerunitstr:'PIC32MX440F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    292. 

  292.       (controllertypestr:'PIC32MX440F256H';	controllerunitstr:'PIC32MX440F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    293. 

  293.       (controllertypestr:'PIC32MX440F512H';	controllerunitstr:'PIC32MX440F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    294. 

  294.       (controllertypestr:'PIC32MX450F128H';	controllerunitstr:'PIC32MX450F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    295. 

  295.       (controllertypestr:'PIC32MX450F128L';	controllerunitstr:'PIC32MX450F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    296. 

  296.       (controllertypestr:'PIC32MX450F256H';	controllerunitstr:'PIC32MX450F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    297. 

  297.       (controllertypestr:'PIC32MX450F256L';	controllerunitstr:'PIC32MX450F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    298. 

  298.       (controllertypestr:'PIC32MX460F256L';	controllerunitstr:'PIC32MX460F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    299. 

  299.       (controllertypestr:'PIC32MX460F512L';	controllerunitstr:'PIC32MX460F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    300. 

  300.       (controllertypestr:'PIC32MX460F512H';	controllerunitstr:'PIC32MX460F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    301. 

  301.       (controllertypestr:'PIC32MX460F512L';	controllerunitstr:'PIC32MX460F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    302. 

  302. 

  303.       { PIC32MX5xx Series}
    304. 

  304.       (controllertypestr:'PIC32MX534F064H';	controllerunitstr:'PIC32MX534F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    305. 

  305.       (controllertypestr:'PIC32MX534F064L';	controllerunitstr:'PIC32MX534F064L';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    306. 

  306.       (controllertypestr:'PIC32MX564F064H';	controllerunitstr:'PIC32MX564F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    307. 

  307.       (controllertypestr:'PIC32MX564F064L';	controllerunitstr:'PIC32MX564F064L';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00004000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    308. 

  308.       (controllertypestr:'PIC32MX564F128H';	controllerunitstr:'PIC32MX564F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    309. 

  309.       (controllertypestr:'PIC32MX564F128L';	controllerunitstr:'PIC32MX564F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    310. 

  310.       (controllertypestr:'PIC32MX575F256H';	controllerunitstr:'PIC32MX575F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    311. 

  311.       (controllertypestr:'PIC32MX575F256L';	controllerunitstr:'PIC32MX575F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    312. 

  312.       (controllertypestr:'PIC32MX575F512H';	controllerunitstr:'PIC32MX575F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    313. 

  313.       (controllertypestr:'PIC32MX575F512L';	controllerunitstr:'PIC32MX575F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    314. 

  314. 

  315.       { PIC32MX6xx Series}
    316. 

  316.       (controllertypestr:'PIC32MX664F064H';	controllerunitstr:'PIC32MX664F064H';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    317. 

  317.       (controllertypestr:'PIC32MX664F064L';	controllerunitstr:'PIC32MX664F064L';	flashbase:$9d000000;	flashsize:$00010000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    318. 

  318.       (controllertypestr:'PIC32MX664F128H';	controllerunitstr:'PIC32MX664F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    319. 

  319.       (controllertypestr:'PIC32MX664F128L';	controllerunitstr:'PIC32MX664F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    320. 

  320.       (controllertypestr:'PIC32MX675F256H';	controllerunitstr:'PIC32MX675F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    321. 

  321.       (controllertypestr:'PIC32MX675F256L';	controllerunitstr:'PIC32MX675F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    322. 

  322.       (controllertypestr:'PIC32MX675F512H';	controllerunitstr:'PIC32MX675F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    323. 

  323.       (controllertypestr:'PIC32MX675F512L';	controllerunitstr:'PIC32MX675F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    324. 

  324.       (controllertypestr:'PIC32MX695F512H';	controllerunitstr:'PIC32MX695F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    325. 

  325.       (controllertypestr:'PIC32MX695F512L';	controllerunitstr:'PIC32MX695F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    326. 

  326. 

  327.       { PIC32MX7xx Series}
    328. 

  328.       (controllertypestr:'PIC32MX764F128H';	controllerunitstr:'PIC32MX764F128H';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    329. 

  329.       (controllertypestr:'PIC32MX764F128L';	controllerunitstr:'PIC32MX764F128L';	flashbase:$9d000000;	flashsize:$00020000;	srambase:$A0000000;	sramsize:$00008000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    330. 

  330.       (controllertypestr:'PIC32MX775F256H';	controllerunitstr:'PIC32MX775F256H';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    331. 

  331.       (controllertypestr:'PIC32MX775F256L';	controllerunitstr:'PIC32MX775F256L';	flashbase:$9d000000;	flashsize:$00040000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    332. 

  332.       (controllertypestr:'PIC32MX775F512H';	controllerunitstr:'PIC32MX775F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    333. 

  333.       (controllertypestr:'PIC32MX775F512L';	controllerunitstr:'PIC32MX775F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00010000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    334. 

  334.       (controllertypestr:'PIC32MX795F512H';	controllerunitstr:'PIC32MX795F512H';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF),
    335. 

  335.       (controllertypestr:'PIC32MX795F512L';	controllerunitstr:'PIC32MX795F512L';	flashbase:$9d000000;	flashsize:$00080000;	srambase:$A0000000;	sramsize:$00020000;  eeprombase:0;   eepromsize:0;    bootbase:$BFC00000;     bootsize:$00002FEF)
    336. 

  336.   );
    337. 

  337. 

  338. {$endif MIPSEL}
    339. 

  339. 

  340.    { Supported optimizations, only used for information }
    341. 

  341.    supported_optimizerswitches = [cs_opt_regvar,cs_opt_loopunroll,cs_opt_nodecse,
    342. 

  342.                                   cs_opt_reorder_fields,cs_opt_fastmath];
    343. 

  343. 

  344.    level1optimizerswitches = genericlevel1optimizerswitches;
    345. 

  345.    level2optimizerswitches = level1optimizerswitches + [cs_opt_regvar,cs_opt_stackframe,cs_opt_nodecse];
    346. 

  346.    level3optimizerswitches = level2optimizerswitches + [cs_opt_loopunroll];
    347. 

  347.    level4optimizerswitches = genericlevel4optimizerswitches + level3optimizerswitches + [];
    348. 

  348. 

  349. function SetMipsABIType(const s : string) : boolean;
    350. 

  350. 

  351. Implementation
    352. 

  352. 

  353. uses
    354. 

  354.   cutils;
    355. 

  355. 

  356. function SetMipsABIType(const s : string) : boolean;
    357. 

  357. 

  358.   var
    359. 

  359.     abi : tabitype;
    360. 

  360.   begin
    361. 

  361.     SetMipsABIType:=false;
    362. 

  362.     for abi := low(tabitype) to high(tabitype) do
    363. 

  363.       if (lower(s)=abitypestr[abi]) then
    364. 

  364.         begin
    365. 

  365.           mips_abi:=abi;
    366. 

  366.           SetMipsABIType:=true;
    367. 

  367.           break;
    368. 

  368.         end;
    369. 

  369.   end;
    370. 

  370.            
    371. 

  371. end.
    372.