fpcdefs.inc 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205
  1. {$ifdef FPC}
  2. {$ifdef DELPHI}
  3. {$mode delphi}
  4. {$asmmode intel}
  5. {$else}
  6. {$mode objfpc}
  7. {$H-}
  8. {$goto on}
  9. {$inline on}
  10. { 1Mb stack }
  11. {$M 1000000}
  12. { This reduces the memory requirements a lot }
  13. {$PACKENUM 1}
  14. {$ifndef VER1_0}
  15. { We don't use exceptions, so turn off the implicit
  16. exceptions in the constructors }
  17. {$IMPLICITEXCEPTIONS OFF}
  18. { Inline small functions }
  19. {$define USEINLINE}
  20. {$else}
  21. { Optimizer is broken when compiling with optimizations using 1.0.x }
  22. {$ifndef USEOPT}
  23. {$define NOOPT}
  24. {$endif}
  25. {$endif VER1_0}
  26. {$define FPCPROCVAR}
  27. {$ifdef I386}
  28. {$define USEEXCEPT}
  29. {$endif}
  30. {$endif}
  31. {$endif}
  32. {$ifdef DELPHI}
  33. {$H-}
  34. {$J+}
  35. {$Z1}
  36. {$undef FPCPROCVAR}
  37. {$endif}
  38. { assume a processor with flags }
  39. {$define cpuflags}
  40. {$ifdef i386}
  41. {$ifdef delphi}
  42. {$define oldset}
  43. {$endif}
  44. {$define x86}
  45. {$define cpuextended}
  46. {$endif i386}
  47. {$ifdef x86_64}
  48. {$define x86}
  49. {$define cpu64bit}
  50. {$define cpuextended}
  51. {$define cpufloat128}
  52. {$endif x86_64}
  53. {$ifdef alpha}
  54. {$define cpu64bit}
  55. {$undef cpuflags}
  56. {$define noopt}
  57. {$define oldset}
  58. {$endif alpha}
  59. {$ifdef sparc}
  60. {$define noopt}
  61. {$define oldset}
  62. {$endif sparc}
  63. {$ifdef powerpc}
  64. {$define noopt}
  65. {$define oldset}
  66. {$endif powerpc}
  67. {$ifdef arm}
  68. {$define cpuneedsdiv32helper}
  69. {$define noopt}
  70. {$define oldset}
  71. {$endif arm}
  72. {$ifdef m68k}
  73. {$define cpufpemu}
  74. {$define noopt}
  75. {$define oldset}
  76. {$endif m68k}
  77. {
  78. $Log$
  79. Revision 1.31 2004-01-28 16:47:45 peter
  80. Stacksize force to 1mb
  81. Revision 1.30 2003/12/14 22:41:46 peter
  82. * USEOPT to override NOOPT for 1.0.x
  83. Revision 1.29 2003/12/14 20:20:14 peter
  84. * disable optimizer again for 1.0.x
  85. Revision 1.28 2003/12/14 14:18:59 peter
  86. * optimizer works again with 1.0.x
  87. * fixed wrong loop in FindRegWithConst
  88. Revision 1.27 2003/11/22 13:11:10 jonas
  89. - disable the optimizer if compiling with 1.0, because it has a code
  90. generator (not optimizer) bug that causes crashes in the 1.1
  91. optimizer
  92. Revision 1.26 2003/10/31 15:51:11 peter
  93. * USEINLINE directive added (not enabled yet)
  94. Revision 1.25 2003/09/06 16:47:24 florian
  95. + support of NaN and Inf in the compiler as values of real constants
  96. Revision 1.24 2003/09/03 15:55:00 peter
  97. * NEWRA branch merged
  98. Revision 1.23 2003/09/03 11:18:36 florian
  99. * fixed arm concatcopy
  100. + arm support in the common compiler sources added
  101. * moved some generic cg code around
  102. + tfputype added
  103. * ...
  104. Revision 1.22.2.2 2003/08/31 21:07:44 daniel
  105. * callparatemp ripped
  106. Revision 1.22.2.1 2003/08/27 20:11:29 peter
  107. * newra default
  108. Revision 1.22 2003/08/11 21:18:20 peter
  109. * start of sparc support for newra
  110. Revision 1.21 2003/07/21 11:52:57 florian
  111. * very basic stuff for the arm
  112. Revision 1.20 2003/05/24 21:12:57 florian
  113. * if something doesn't work with callparatemp, the define callparatemp
  114. should be used because other processors with reigster calling conventions
  115. depend on this as well
  116. Revision 1.19 2003/05/09 17:47:02 peter
  117. * self moved to hidden parameter
  118. * removed hdisposen,hnewn,selfn
  119. Revision 1.18 2003/04/30 09:42:42 florian
  120. + first changes to make self a hidden parameter
  121. Revision 1.17 2003/04/24 22:29:57 florian
  122. * fixed a lot of PowerPC related stuff
  123. Revision 1.16 2003/04/23 13:47:41 peter
  124. * optimizer is x86
  125. Revision 1.15 2003/04/23 12:35:34 florian
  126. * fixed several issues with powerpc
  127. + applied a patch from Jonas for nested function calls (PowerPC only)
  128. * ...
  129. Revision 1.14 2002/12/06 16:56:57 peter
  130. * only compile cs_fp_emulation support when cpufpuemu is defined
  131. * define cpufpuemu for m68k only
  132. Revision 1.13 2002/10/16 19:01:43 peter
  133. + $IMPLICITEXCEPTIONS switch to turn on/off generation of the
  134. implicit exception frames for procedures with initialized variables
  135. and for constructors. The default is on for compatibility
  136. Revision 1.12 2002/10/05 12:43:24 carl
  137. * fixes for Delphi 6 compilation
  138. (warning : Some features do not work under Delphi)
  139. Revision 1.11 2002/09/30 07:00:45 florian
  140. * fixes to common code to get the alpha compiler compiled applied
  141. Revision 1.10 2002/09/29 23:19:05 florian
  142. + added define 64bit
  143. Revision 1.9 2002/09/07 15:25:02 peter
  144. * old logs removed and tabs fixed
  145. Revision 1.8 2002/08/30 13:42:29 mazen
  146. - undefining win32 when SPARC defined removed, no more needed.
  147. Revision 1.6 2002/08/19 18:17:48 carl
  148. + optimize64_op_const_reg implemented (optimizes 64-bit constant opcodes)
  149. * more fixes to m68k for 64-bit operations
  150. Revision 1.5 2002/08/15 15:11:53 carl
  151. * oldset define is now correct for all cpu's except i386
  152. * correct compilation problems because of the above
  153. Revision 1.4 2002/07/23 12:34:29 daniel
  154. * Readded old set code. To use it define 'oldset'. Activated by default
  155. for ppc.
  156. Revision 1.3 2002/07/04 18:56:50 florian
  157. + log added
  158. }