fpcdefs.inc 4.3 KB

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