git.oblomov.eu Git - wine/blob - dlls/msvcp90/cxx.h

   1 /*
   2  * Copyright 2012 Piotr Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 /* Copied from dlls/msvcrt/cpp.c */
  20 #ifdef __i386__  /* thiscall functions are i386-specific */
  21
  22 #define THISCALL(func) __thiscall_ ## func
  23 #define THISCALL_NAME(func) __ASM_NAME("__thiscall_" #func)
  24 #define __thiscall __stdcall
  25 #define DEFINE_THISCALL_WRAPPER(func,args) \
  26     extern void THISCALL(func)(void); \
  27     __ASM_GLOBAL_FUNC(__thiscall_ ## func, \
  28                       "popl %eax\n\t" \
  29                       "pushl %ecx\n\t" \
  30                       "pushl %eax\n\t" \
  31                       "jmp " __ASM_NAME(#func) __ASM_STDCALL(args) )
  32 #else /* __i386__ */
  33
  34 #define THISCALL(func) func
  35 #define THISCALL_NAME(func) __ASM_NAME(#func)
  36 #define __thiscall __cdecl
  37 #define DEFINE_THISCALL_WRAPPER(func,args) /* nothing */
  38
  39 #endif /* __i386__ */
  40
  41 #ifdef _WIN64
  42
  43 #define VTABLE_ADD_FUNC(name) "\t.quad " THISCALL_NAME(name) "\n"
  44
  45 #define __ASM_VTABLE(name,funcs) \
  46     __asm__(".data\n" \
  47             "\t.align 8\n" \
  48             "\t.quad " __ASM_NAME(#name "_rtti") "\n" \
  49             "\t.globl " __ASM_NAME("MSVCP_" #name "_vtable") "\n" \
  50             __ASM_NAME("MSVCP_" #name "_vtable") ":\n" \
  51             funcs "\n\t.text")
  52
  53 #else
  54
  55 #define VTABLE_ADD_FUNC(name) "\t.long " THISCALL_NAME(name) "\n"
  56
  57 #define __ASM_VTABLE(name,funcs) \
  58     __asm__(".data\n" \
  59             "\t.align 4\n" \
  60             "\t.long " __ASM_NAME(#name "_rtti") "\n" \
  61             "\t.globl " __ASM_NAME("MSVCP_" #name "_vtable") "\n" \
  62             __ASM_NAME("MSVCP_" #name "_vtable") ":\n" \
  63             funcs "\n\t.text")
  64
  65 #endif /* _WIN64 */
  66
  67 #define DEFINE_RTTI_DATA(name, off, base_classes, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name) \
  68     static const type_info name ## _type_info = { \
  69         &MSVCP_type_info_vtable, \
  70         NULL, \
  71         mangled_name \
  72     }; \
  73 \
  74 static const rtti_base_descriptor name ## _rtti_base_descriptor = { \
  75     &name ##_type_info, \
  76     base_classes, \
  77     { 0, -1, 0}, \
  78     64 \
  79 }; \
  80 \
  81 static const rtti_base_array name ## _rtti_base_array = { \
  82     { \
  83         &name ## _rtti_base_descriptor, \
  84         cl1, \
  85         cl2, \
  86         cl3, \
  87         cl4, \
  88         cl5, \
  89         cl6, \
  90         cl7, \
  91         cl8, \
  92         cl9, \
  93     } \
  94 }; \
  95 \
  96 static const rtti_object_hierarchy name ## _hierarchy = { \
  97     0, \
  98     0, \
  99     base_classes+1, \
 100     &name ## _rtti_base_array \
 101 }; \
 102 \
 103 const rtti_object_locator name ## _rtti = { \
 104     0, \
 105     off, \
 106     0, \
 107     &name ## _type_info, \
 108     &name ## _hierarchy \
 109 }
 110
 111 #define DEFINE_RTTI_DATA0(name, off, mangled_name) \
 112     DEFINE_RTTI_DATA(name, off, 0, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
 113 #define DEFINE_RTTI_DATA1(name, off, cl1, mangled_name) \
 114     DEFINE_RTTI_DATA(name, off, 1, cl1, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
 115 #define DEFINE_RTTI_DATA2(name, off, cl1, cl2, mangled_name) \
 116     DEFINE_RTTI_DATA(name, off, 2, cl1, cl2, NULL, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
 117 #define DEFINE_RTTI_DATA3(name, off, cl1, cl2, cl3, mangled_name) \
 118     DEFINE_RTTI_DATA(name, off, 3, cl1, cl2, cl3, NULL, NULL, NULL, NULL, NULL, NULL, mangled_name)
 119 #define DEFINE_RTTI_DATA4(name, off, cl1, cl2, cl3, cl4, mangled_name) \
 120     DEFINE_RTTI_DATA(name, off, 4, cl1, cl2, cl3, cl4, NULL, NULL, NULL, NULL, NULL, mangled_name)
 121 #define DEFINE_RTTI_DATA8(name, off, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, mangled_name) \
 122     DEFINE_RTTI_DATA(name, off, 8, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, NULL, mangled_name)
 123 #define DEFINE_RTTI_DATA9(name, off, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name) \
 124     DEFINE_RTTI_DATA(name, off, 9, cl1, cl2, cl3, cl4, cl5, cl6, cl7, cl8, cl9, mangled_name)
 125
 126 #ifdef __i386__
 127
 128 #define CALL_VTBL_FUNC(this, off, ret, type, args) ((ret (WINAPI*)type)&vtbl_wrapper_##off)args
 129
 130 extern void *vtbl_wrapper_0;
 131 extern void *vtbl_wrapper_4;
 132 extern void *vtbl_wrapper_8;
 133 extern void *vtbl_wrapper_12;
 134 extern void *vtbl_wrapper_16;
 135 extern void *vtbl_wrapper_20;
 136 extern void *vtbl_wrapper_24;
 137 extern void *vtbl_wrapper_28;
 138 extern void *vtbl_wrapper_32;
 139 extern void *vtbl_wrapper_36;
 140 extern void *vtbl_wrapper_40;
 141 extern void *vtbl_wrapper_44;
 142 extern void *vtbl_wrapper_48;
 143 extern void *vtbl_wrapper_52;
 144 extern void *vtbl_wrapper_56;
 145 extern void *vtbl_wrapper_60;
 146
 147 #else
 148
 149 #define CALL_VTBL_FUNC(this, off, ret, type, args) ((ret (__cdecl***)type)this)[0][off/4]args
 150
 151 #endif
 152
 153 /* exception object */
 154 typedef void (*vtable_ptr)(void);
 155 typedef struct __exception
 156 {
 157     const vtable_ptr *vtable;
 158     char             *name;    /* Name of this exception, always a new copy for each object */
 159     int               do_free; /* Whether to free 'name' in our dtor */
 160 } exception;
 161
 162 /* Internal: throws selected exception */
 163 typedef enum __exception_type {
 164     EXCEPTION_RERAISE,
 165     EXCEPTION,
 166     EXCEPTION_BAD_ALLOC,
 167     EXCEPTION_LOGIC_ERROR,
 168     EXCEPTION_LENGTH_ERROR,
 169     EXCEPTION_OUT_OF_RANGE,
 170     EXCEPTION_INVALID_ARGUMENT,
 171     EXCEPTION_RUNTIME_ERROR,
 172     EXCEPTION_FAILURE,
 173 } exception_type;
 174 void throw_exception(exception_type, const char *);
 175
 176 /* rtti */
 177 typedef struct __type_info
 178 {
 179     const vtable_ptr *vtable;
 180     char              *name;         /* Unmangled name, allocated lazily */
 181     char               mangled[128]; /* Variable length, but we declare it large enough for static RTTI */
 182 } type_info;
 183
 184 extern const vtable_ptr MSVCP_type_info_vtable;
 185
 186 /* offsets for computing the this pointer */
 187 typedef struct
 188 {
 189     int         this_offset;   /* offset of base class this pointer from start of object */
 190     int         vbase_descr;   /* offset of virtual base class descriptor */
 191     int         vbase_offset;  /* offset of this pointer offset in virtual base class descriptor */
 192 } this_ptr_offsets;
 193
 194 typedef struct _rtti_base_descriptor
 195 {
 196     const type_info *type_descriptor;
 197     int num_base_classes;
 198     this_ptr_offsets offsets;    /* offsets for computing the this pointer */
 199     unsigned int attributes;
 200 } rtti_base_descriptor;
 201
 202 typedef struct _rtti_base_array
 203 {
 204     const rtti_base_descriptor *bases[10]; /* First element is the class itself */
 205 } rtti_base_array;
 206
 207 typedef struct _rtti_object_hierarchy
 208 {
 209     unsigned int signature;
 210     unsigned int attributes;
 211     int array_len; /* Size of the array pointed to by 'base_classes' */
 212     const rtti_base_array *base_classes;
 213 } rtti_object_hierarchy;
 214
 215 typedef struct _rtti_object_locator
 216 {
 217     unsigned int signature;
 218     int base_class_offset;
 219     unsigned int flags;
 220     const type_info *type_descriptor;
 221     const rtti_object_hierarchy *type_hierarchy;
 222 } rtti_object_locator;