mono/utils/mono-compiler.h

   1 #ifndef __UTILS_MONO_COMPILER_H__
   2 #define __UTILS_MONO_COMPILER_H__
   3
   4 /*
   5  * This file includes macros used in the runtime to encapsulate different
   6  * compiler behaviours.
   7  */
   8 #include <config.h>
   9
  10 #ifdef HAVE_KW_THREAD
  11 #if HAVE_TLS_MODEL_ATTR
  12
  13 #if defined(__PIC__) && !defined(PIC)
  14 /*
  15  * Must be compiling -fPIE, for executables.  Build PIC
  16  * but with initial-exec.
  17  * http://bugs.gentoo.org/show_bug.cgi?id=165547
  18  */
  19 #define PIC
  20 #define PIC_INITIAL_EXEC
  21 #endif
  22
  23 /*
  24  * Define this if you want a faster libmono, which cannot be loaded dynamically as a
  25  * module.
  26  */
  27 //#define PIC_INITIAL_EXEC
  28
  29 #if defined(PIC)
  30
  31 #ifdef PIC_INITIAL_EXEC
  32 #define MONO_TLS_FAST __attribute__((tls_model("initial-exec")))
  33 #else
  34 #if defined (__powerpc__)
  35 /* local dynamic requires a call to __tls_get_addr to look up the
  36    TLS block address via the Dynamic Thread Vector. In this case Thread
  37    Pointer relative offsets can't be used as this modules TLS was
  38    allocated separately (none contiguoiusly) from the initial TLS
  39    block.
  40
  41    For now we will disable this. */
  42 #define MONO_TLS_FAST
  43 #else
  44 #define MONO_TLS_FAST __attribute__((tls_model("local-dynamic")))
  45 #endif
  46 #endif
  47
  48 #else
  49
  50 #define MONO_TLS_FAST __attribute__((tls_model("local-exec")))
  51
  52 #endif
  53
  54 #else
  55 #define MONO_TLS_FAST
  56 #endif
  57
  58 #if defined(__GNUC__) && defined(__i386__)
  59 #if defined(PIC)
  60 #define MONO_THREAD_VAR_OFFSET(var,offset) do { int tmp; __asm ("call 1f; 1: popl %0; addl $_GLOBAL_OFFSET_TABLE_+[.-1b], %0; movl " #var "@gotntpoff(%0), %1" : "=r" (tmp), "=r" (offset)); } while (0)
  61 #else
  62 #define MONO_THREAD_VAR_OFFSET(var,offset) __asm ("movl $" #var "@ntpoff, %0" : "=r" (offset))
  63 #endif
  64 #elif defined(__x86_64__)
  65 #if defined(PIC)
  66 // This only works if libmono is linked into the application
  67 #define MONO_THREAD_VAR_OFFSET(var,offset) do { guint64 foo;  __asm ("movq " #var "@GOTTPOFF(%%rip), %0" : "=r" (foo)); offset = foo; } while (0)
  68 #else
  69 #define MONO_THREAD_VAR_OFFSET(var,offset) do { guint64 foo;  __asm ("movq $" #var "@TPOFF, %0" : "=r" (foo)); offset = foo; } while (0)
  70 #endif
  71 #elif defined(__ia64__) && !defined(__INTEL_COMPILER)
  72 #if defined(PIC)
  73 #define MONO_THREAD_VAR_OFFSET(var,offset) __asm ("addl %0 = @ltoff(@tprel(" #var "#)), gp ;; ld8 %0 = [%0]\n" : "=r" (offset))
  74 #else
  75 #define MONO_THREAD_VAR_OFFSET(var,offset) __asm ("addl %0 = @tprel(" #var "#), r0 ;;\n" : "=r" (offset))
  76 #endif
  77 #elif defined(__arm__) && defined(__ARM_EABI__) && !defined(PIC)
  78 #define MONO_THREAD_VAR_OFFSET(var,offset) __asm ("     ldr     %0, 1f; b 2f; 1: .word " #var "(tpoff); 2:" : "=r" (offset))
  79 #elif defined(__mono_ppc__) && defined(__GNUC__)
  80 #if defined(PIC)
  81 #ifdef PIC_INITIAL_EXEC
  82
  83 #if defined(__mono_ppc64__)
  84 #define MONO_THREAD_VAR_OFFSET(var,offset) \
  85         do { long off; \
  86         __asm ( "ld     %0," #var "@got@tprel(2)\n" \
  87         : "=r" (off)); \
  88         (offset) = off; } while (0)
  89 #else
  90 /* must be powerpc32 */
  91 #define MONO_THREAD_VAR_OFFSET(var,offset) \
  92         __asm ( "lwz    %0," #var "@got@tprel(30)\n" \
  93         : "=r" (offset))
  94 #endif
  95
  96 #else
  97
  98 /* local dynamic requires a call to __tls_get_addr to look up the
  99    TLS block address via the Dynamic Thread Vector. In this case Thread
 100    Pointer relative offsets can't be used as this modules TLS was
 101    allocated separately (none contiguoiusly) from the initial TLS
 102    block.
 103
 104    For now we will disable this. */
 105 #define MONO_THREAD_VAR_OFFSET(var,offset) (offset) = -1
 106
 107 #endif
 108 #else
 109 /* Must be local-exec TLS */
 110 #define MONO_THREAD_VAR_OFFSET(var,offset) \
 111         __asm ( "lis    %0," #var "@tprel@ha\n" \
 112                 "addi   %0,%0, " #var "@tprel@l\n" \
 113         : "=r" (offset))
 114 #endif
 115 #else
 116 #define MONO_THREAD_VAR_OFFSET(var,offset) (offset) = -1
 117 #endif
 118
 119 #if defined(PIC) && !defined(PIC_INITIAL_EXEC)
 120 /*
 121  * The above definitions do not seem to work if libmono is loaded dynamically as a module.
 122  * See bug #78767.
 123  */
 124 #undef MONO_THREAD_VAR_OFFSET
 125 #define MONO_THREAD_VAR_OFFSET(var,offset) (offset) = -1
 126 #endif
 127
 128 #else /* no HAVE_KW_THREAD */
 129
 130 #define MONO_THREAD_VAR_OFFSET(var,offset) (offset) = -1
 131
 132 #endif
 133
 134 /* Deal with Microsoft C compiler differences */
 135 #ifdef _MSC_VER
 136
 137 #include <float.h>
 138 #define isnan(x)        _isnan(x)
 139 #define trunc(x)        (((x) < 0) ? ceil((x)) : floor((x)))
 140 #define isinf(x)        (_isnan(x) ? 0 : (_fpclass(x) == _FPCLASS_NINF) ? -1 : (_fpclass(x) == _FPCLASS_PINF) ? 1 : 0)
 141 #define isnormal(x)     _finite(x)
 142
 143 #define popen           _popen
 144 #define pclose          _pclose
 145
 146 #include <direct.h>
 147 #define mkdir(x)        _mkdir(x)
 148
 149 /* GCC specific functions aren't available */
 150 #define __builtin_return_address(x)     NULL
 151
 152 #define __func__ __FUNCTION__
 153
 154 #endif /* _MSC_VER */
 155
 156 #if !defined(_MSC_VER) && !defined(PLATFORM_SOLARIS) && HAVE_VISIBILITY_HIDDEN
 157 #define MONO_INTERNAL __attribute__ ((visibility ("hidden")))
 158 #if MONO_LLVM_LOADED
 159 #define MONO_LLVM_INTERNAL
 160 #else
 161 #define MONO_LLVM_INTERNAL MONO_INTERNAL
 162 #endif
 163 #else
 164 #define MONO_INTERNAL
 165 #define MONO_LLVM_INTERNAL
 166 #endif
 167
 168 #if HAVE_DEPRECATED
 169 #define MONO_DEPRECATED __attribute__ ((deprecated))
 170 #else
 171 #define MONO_DEPRECATED
 172 #endif
 173
 174 #endif /* __UTILS_MONO_COMPILER_H__*/
 175