dlls/msvcrt/cpp.c

   1 /*
   2  * msvcrt.dll C++ objects
   3  *
   4  * Copyright 2000 Jon Griffiths
   5  * Copyright 2003, 2004 Alexandre Julliard
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include <stdarg.h>
  23 #include <stdbool.h>
  24
  25 #include "windef.h"
  26 #include "winternl.h"
  27 #include "wine/exception.h"
  28 #include "wine/debug.h"
  29 #include "msvcrt.h"
  30 #include "mtdll.h"
  31 #include "cxx.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
  34
  35 CREATE_TYPE_INFO_VTABLE
  36 CREATE_EXCEPTION_OBJECT(exception)
  37
  38 struct __type_info_node
  39 {
  40     void *memPtr;
  41     struct __type_info_node* next;
  42 };
  43
  44 typedef exception bad_cast;
  45 typedef exception bad_typeid;
  46 typedef exception __non_rtti_object;
  47
  48 extern const vtable_ptr bad_typeid_vtable;
  49 extern const vtable_ptr bad_cast_vtable;
  50 extern const vtable_ptr __non_rtti_object_vtable;
  51 extern const vtable_ptr type_info_vtable;
  52
  53 /* get the vtable pointer for a C++ object */
  54 static inline const vtable_ptr *get_vtable( void *obj )
  55 {
  56     return *(const vtable_ptr **)obj;
  57 }
  58
  59 static inline const rtti_object_locator *get_obj_locator( void *cppobj )
  60 {
  61     const vtable_ptr *vtable = get_vtable( cppobj );
  62     return (const rtti_object_locator *)vtable[-1];
  63 }
  64
  65 #ifndef __x86_64__
  66 static void dump_obj_locator( const rtti_object_locator *ptr )
  67 {
  68     int i;
  69     const rtti_object_hierarchy *h = ptr->type_hierarchy;
  70
  71     TRACE( "%p: sig=%08x base_offset=%08x flags=%08x type=%p %s hierarchy=%p\n",
  72            ptr, ptr->signature, ptr->base_class_offset, ptr->flags,
  73            ptr->type_descriptor, dbgstr_type_info(ptr->type_descriptor), ptr->type_hierarchy );
  74     TRACE( "  hierarchy: sig=%08x attr=%08x len=%d base classes=%p\n",
  75            h->signature, h->attributes, h->array_len, h->base_classes );
  76     for (i = 0; i < h->array_len; i++)
  77     {
  78         TRACE( "    base class %p: num %d off %d,%d,%d attr %08x type %p %s\n",
  79                h->base_classes->bases[i],
  80                h->base_classes->bases[i]->num_base_classes,
  81                h->base_classes->bases[i]->offsets.this_offset,
  82                h->base_classes->bases[i]->offsets.vbase_descr,
  83                h->base_classes->bases[i]->offsets.vbase_offset,
  84                h->base_classes->bases[i]->attributes,
  85                h->base_classes->bases[i]->type_descriptor,
  86                dbgstr_type_info(h->base_classes->bases[i]->type_descriptor) );
  87     }
  88 }
  89
  90 #else
  91
  92 static void dump_obj_locator( const rtti_object_locator *ptr )
  93 {
  94     int i;
  95     char *base = ptr->signature == 0 ? RtlPcToFileHeader((void*)ptr, (void**)&base) : (char*)ptr - ptr->object_locator;
  96     const rtti_object_hierarchy *h = (const rtti_object_hierarchy*)(base + ptr->type_hierarchy);
  97     const type_info *type_descriptor = (const type_info*)(base + ptr->type_descriptor);
  98
  99     TRACE( "%p: sig=%08x base_offset=%08x flags=%08x type=%p %s hierarchy=%p\n",
 100             ptr, ptr->signature, ptr->base_class_offset, ptr->flags,
 101             type_descriptor, dbgstr_type_info(type_descriptor), h );
 102     TRACE( "  hierarchy: sig=%08x attr=%08x len=%d base classes=%p\n",
 103             h->signature, h->attributes, h->array_len, base + h->base_classes );
 104     for (i = 0; i < h->array_len; i++)
 105     {
 106         const rtti_base_descriptor *bases = (rtti_base_descriptor*)(base +
 107                 ((const rtti_base_array*)(base + h->base_classes))->bases[i]);
 108
 109         TRACE( "    base class %p: num %d off %d,%d,%d attr %08x type %p %s\n",
 110                 bases,
 111                 bases->num_base_classes,
 112                 bases->offsets.this_offset,
 113                 bases->offsets.vbase_descr,
 114                 bases->offsets.vbase_offset,
 115                 bases->attributes,
 116                 base + bases->type_descriptor,
 117                 dbgstr_type_info((const type_info*)(base + bases->type_descriptor)) );
 118     }
 119 }
 120 #endif
 121
 122 /******************************************************************
 123  *              ??0exception@@QAE@ABQBD@Z (MSVCRT.@)
 124  */
 125 DEFINE_THISCALL_WRAPPER(exception_ctor,8)
 126 exception * __thiscall exception_ctor(exception * _this, const char ** name)
 127 {
 128   TRACE("(%p,%s)\n", _this, *name);
 129   return __exception_ctor(_this, *name, &exception_vtable);
 130 }
 131
 132 /******************************************************************
 133  *              ??0exception@@QAE@ABQBDH@Z (MSVCRT.@)
 134  */
 135 DEFINE_THISCALL_WRAPPER(exception_ctor_noalloc,12)
 136 exception * __thiscall exception_ctor_noalloc(exception * _this, char ** name, int noalloc)
 137 {
 138   TRACE("(%p,%s)\n", _this, *name);
 139   _this->vtable = &exception_vtable;
 140   _this->name = *name;
 141   _this->do_free = FALSE;
 142   return _this;
 143 }
 144
 145 /******************************************************************
 146  *              ??0exception@@QAE@XZ (MSVCRT.@)
 147  */
 148 DEFINE_THISCALL_WRAPPER(exception_default_ctor,4)
 149 exception * __thiscall exception_default_ctor(exception * _this)
 150 {
 151   TRACE("(%p)\n", _this);
 152   return __exception_ctor(_this, NULL, &exception_vtable);
 153 }
 154
 155 /******************************************************************
 156  *              ??4exception@@QAEAAV0@ABV0@@Z (MSVCRT.@)
 157  */
 158 DEFINE_THISCALL_WRAPPER(exception_opequals,8)
 159 exception * __thiscall exception_opequals(exception * _this, const exception * rhs)
 160 {
 161   TRACE("(%p %p)\n", _this, rhs);
 162   if (_this != rhs)
 163   {
 164       exception_dtor(_this);
 165       exception_copy_ctor(_this, rhs);
 166   }
 167   TRACE("name = %s\n", _this->name);
 168   return _this;
 169 }
 170
 171 /******************************************************************
 172  *              ??_Gexception@@UAEPAXI@Z (MSVCRT.@)
 173  */
 174 DEFINE_THISCALL_WRAPPER(exception_scalar_dtor,8)
 175 void * __thiscall exception_scalar_dtor(exception * _this, unsigned int flags)
 176 {
 177     TRACE("(%p %x)\n", _this, flags);
 178     exception_dtor(_this);
 179     if (flags & 1) operator_delete(_this);
 180     return _this;
 181 }
 182
 183 /******************************************************************
 184  *              ??0bad_typeid@@QAE@ABV0@@Z (MSVCRT.@)
 185  */
 186 DEFINE_THISCALL_WRAPPER(bad_typeid_copy_ctor,8)
 187 bad_typeid * __thiscall bad_typeid_copy_ctor(bad_typeid * _this, const bad_typeid * rhs)
 188 {
 189   TRACE("(%p %p)\n", _this, rhs);
 190   return __exception_copy_ctor(_this, rhs, &bad_typeid_vtable);
 191 }
 192
 193 /******************************************************************
 194  *              ??0bad_typeid@@QAE@PBD@Z (MSVCRT.@)
 195  */
 196 DEFINE_THISCALL_WRAPPER(bad_typeid_ctor,8)
 197 bad_typeid * __thiscall bad_typeid_ctor(bad_typeid * _this, const char * name)
 198 {
 199   TRACE("(%p %s)\n", _this, name);
 200   return __exception_ctor(_this, name, &bad_typeid_vtable);
 201 }
 202
 203 /******************************************************************
 204  *              ??_Fbad_typeid@@QAEXXZ (MSVCRT.@)
 205  */
 206 DEFINE_THISCALL_WRAPPER(bad_typeid_default_ctor,4)
 207 bad_typeid * __thiscall bad_typeid_default_ctor(bad_typeid * _this)
 208 {
 209   return bad_typeid_ctor( _this, "bad typeid" );
 210 }
 211
 212 /******************************************************************
 213  *              ??1bad_typeid@@UAE@XZ (MSVCRT.@)
 214  */
 215 DEFINE_THISCALL_WRAPPER(bad_typeid_dtor,4)
 216 void __thiscall bad_typeid_dtor(bad_typeid * _this)
 217 {
 218   TRACE("(%p)\n", _this);
 219   exception_dtor(_this);
 220 }
 221
 222 /******************************************************************
 223  *              ??4bad_typeid@@QAEAAV0@ABV0@@Z (MSVCRT.@)
 224  */
 225 DEFINE_THISCALL_WRAPPER(bad_typeid_opequals,8)
 226 bad_typeid * __thiscall bad_typeid_opequals(bad_typeid * _this, const bad_typeid * rhs)
 227 {
 228   TRACE("(%p %p)\n", _this, rhs);
 229   exception_opequals(_this, rhs);
 230   return _this;
 231 }
 232
 233 /******************************************************************
 234  *              ??_Ebad_typeid@@UAEPAXI@Z (MSVCRT.@)
 235  */
 236 DEFINE_THISCALL_WRAPPER(bad_typeid_vector_dtor,8)
 237 void * __thiscall bad_typeid_vector_dtor(bad_typeid * _this, unsigned int flags)
 238 {
 239     TRACE("(%p %x)\n", _this, flags);
 240     if (flags & 2)
 241     {
 242         /* we have an array, with the number of elements stored before the first object */
 243         INT_PTR i, *ptr = (INT_PTR *)_this - 1;
 244
 245         for (i = *ptr - 1; i >= 0; i--) bad_typeid_dtor(_this + i);
 246         operator_delete(ptr);
 247     }
 248     else
 249     {
 250         bad_typeid_dtor(_this);
 251         if (flags & 1) operator_delete(_this);
 252     }
 253     return _this;
 254 }
 255
 256 /******************************************************************
 257  *              ??_Gbad_typeid@@UAEPAXI@Z (MSVCRT.@)
 258  */
 259 DEFINE_THISCALL_WRAPPER(bad_typeid_scalar_dtor,8)
 260 void * __thiscall bad_typeid_scalar_dtor(bad_typeid * _this, unsigned int flags)
 261 {
 262     TRACE("(%p %x)\n", _this, flags);
 263     bad_typeid_dtor(_this);
 264     if (flags & 1) operator_delete(_this);
 265     return _this;
 266 }
 267
 268 /******************************************************************
 269  *              ??0__non_rtti_object@@QAE@ABV0@@Z (MSVCRT.@)
 270  */
 271 DEFINE_THISCALL_WRAPPER(__non_rtti_object_copy_ctor,8)
 272 __non_rtti_object * __thiscall __non_rtti_object_copy_ctor(__non_rtti_object * _this,
 273                                                                  const __non_rtti_object * rhs)
 274 {
 275     TRACE("(%p %p)\n", _this, rhs);
 276     return __exception_copy_ctor(_this, rhs, &__non_rtti_object_vtable);
 277 }
 278
 279 /******************************************************************
 280  *              ??0__non_rtti_object@@QAE@PBD@Z (MSVCRT.@)
 281  */
 282 DEFINE_THISCALL_WRAPPER(__non_rtti_object_ctor,8)
 283 __non_rtti_object * __thiscall __non_rtti_object_ctor(__non_rtti_object * _this,
 284                                                             const char * name)
 285 {
 286   TRACE("(%p %s)\n", _this, name);
 287   return __exception_ctor(_this, name, &__non_rtti_object_vtable);
 288 }
 289
 290 /******************************************************************
 291  *              ??1__non_rtti_object@@UAE@XZ (MSVCRT.@)
 292  */
 293 DEFINE_THISCALL_WRAPPER(__non_rtti_object_dtor,4)
 294 void __thiscall __non_rtti_object_dtor(__non_rtti_object * _this)
 295 {
 296   TRACE("(%p)\n", _this);
 297   bad_typeid_dtor(_this);
 298 }
 299
 300 /******************************************************************
 301  *              ??4__non_rtti_object@@QAEAAV0@ABV0@@Z (MSVCRT.@)
 302  */
 303 DEFINE_THISCALL_WRAPPER(__non_rtti_object_opequals,8)
 304 __non_rtti_object * __thiscall __non_rtti_object_opequals(__non_rtti_object * _this,
 305                                                                 const __non_rtti_object *rhs)
 306 {
 307   TRACE("(%p %p)\n", _this, rhs);
 308   bad_typeid_opequals(_this, rhs);
 309   return _this;
 310 }
 311
 312 /******************************************************************
 313  *              ??_E__non_rtti_object@@UAEPAXI@Z (MSVCRT.@)
 314  */
 315 DEFINE_THISCALL_WRAPPER(__non_rtti_object_vector_dtor,8)
 316 void * __thiscall __non_rtti_object_vector_dtor(__non_rtti_object * _this, unsigned int flags)
 317 {
 318     TRACE("(%p %x)\n", _this, flags);
 319     if (flags & 2)
 320     {
 321         /* we have an array, with the number of elements stored before the first object */
 322         INT_PTR i, *ptr = (INT_PTR *)_this - 1;
 323
 324         for (i = *ptr - 1; i >= 0; i--) __non_rtti_object_dtor(_this + i);
 325         operator_delete(ptr);
 326     }
 327     else
 328     {
 329         __non_rtti_object_dtor(_this);
 330         if (flags & 1) operator_delete(_this);
 331     }
 332     return _this;
 333 }
 334
 335 /******************************************************************
 336  *              ??_G__non_rtti_object@@UAEPAXI@Z (MSVCRT.@)
 337  */
 338 DEFINE_THISCALL_WRAPPER(__non_rtti_object_scalar_dtor,8)
 339 void * __thiscall __non_rtti_object_scalar_dtor(__non_rtti_object * _this, unsigned int flags)
 340 {
 341   TRACE("(%p %x)\n", _this, flags);
 342   __non_rtti_object_dtor(_this);
 343   if (flags & 1) operator_delete(_this);
 344   return _this;
 345 }
 346
 347 /******************************************************************
 348  *              ??0bad_cast@@AAE@PBQBD@Z (MSVCRT.@)
 349  *              ??0bad_cast@@QAE@ABQBD@Z (MSVCRT.@)
 350  */
 351 DEFINE_THISCALL_WRAPPER(bad_cast_ctor,8)
 352 bad_cast * __thiscall bad_cast_ctor(bad_cast * _this, const char ** name)
 353 {
 354   TRACE("(%p %s)\n", _this, *name);
 355   return __exception_ctor(_this, *name, &bad_cast_vtable);
 356 }
 357
 358 /******************************************************************
 359  *              ??0bad_cast@@QAE@ABV0@@Z (MSVCRT.@)
 360  */
 361 DEFINE_THISCALL_WRAPPER(bad_cast_copy_ctor,8)
 362 bad_cast * __thiscall bad_cast_copy_ctor(bad_cast * _this, const bad_cast * rhs)
 363 {
 364   TRACE("(%p %p)\n", _this, rhs);
 365   return __exception_copy_ctor(_this, rhs, &bad_cast_vtable);
 366 }
 367
 368 /******************************************************************
 369  *              ??0bad_cast@@QAE@PBD@Z (MSVCRT.@)
 370  */
 371 DEFINE_THISCALL_WRAPPER(bad_cast_ctor_charptr,8)
 372 bad_cast * __thiscall bad_cast_ctor_charptr(bad_cast * _this, const char * name)
 373 {
 374   TRACE("(%p %s)\n", _this, name);
 375   return __exception_ctor(_this, name, &bad_cast_vtable);
 376 }
 377
 378 /******************************************************************
 379  *              ??_Fbad_cast@@QAEXXZ (MSVCRT.@)
 380  */
 381 DEFINE_THISCALL_WRAPPER(bad_cast_default_ctor,4)
 382 bad_cast * __thiscall bad_cast_default_ctor(bad_cast * _this)
 383 {
 384   return bad_cast_ctor_charptr( _this, "bad cast" );
 385 }
 386
 387 /******************************************************************
 388  *              ??1bad_cast@@UAE@XZ (MSVCRT.@)
 389  */
 390 DEFINE_THISCALL_WRAPPER(bad_cast_dtor,4)
 391 void __thiscall bad_cast_dtor(bad_cast * _this)
 392 {
 393   TRACE("(%p)\n", _this);
 394   exception_dtor(_this);
 395 }
 396
 397 /******************************************************************
 398  *              ??4bad_cast@@QAEAAV0@ABV0@@Z (MSVCRT.@)
 399  */
 400 DEFINE_THISCALL_WRAPPER(bad_cast_opequals,8)
 401 bad_cast * __thiscall bad_cast_opequals(bad_cast * _this, const bad_cast * rhs)
 402 {
 403   TRACE("(%p %p)\n", _this, rhs);
 404   exception_opequals(_this, rhs);
 405   return _this;
 406 }
 407
 408 /******************************************************************
 409  *              ??_Ebad_cast@@UAEPAXI@Z (MSVCRT.@)
 410  */
 411 DEFINE_THISCALL_WRAPPER(bad_cast_vector_dtor,8)
 412 void * __thiscall bad_cast_vector_dtor(bad_cast * _this, unsigned int flags)
 413 {
 414     TRACE("(%p %x)\n", _this, flags);
 415     if (flags & 2)
 416     {
 417         /* we have an array, with the number of elements stored before the first object */
 418         INT_PTR i, *ptr = (INT_PTR *)_this - 1;
 419
 420         for (i = *ptr - 1; i >= 0; i--) bad_cast_dtor(_this + i);
 421         operator_delete(ptr);
 422     }
 423     else
 424     {
 425         bad_cast_dtor(_this);
 426         if (flags & 1) operator_delete(_this);
 427     }
 428     return _this;
 429 }
 430
 431 /******************************************************************
 432  *              ??_Gbad_cast@@UAEPAXI@Z (MSVCRT.@)
 433  */
 434 DEFINE_THISCALL_WRAPPER(bad_cast_scalar_dtor,8)
 435 void * __thiscall bad_cast_scalar_dtor(bad_cast * _this, unsigned int flags)
 436 {
 437   TRACE("(%p %x)\n", _this, flags);
 438   bad_cast_dtor(_this);
 439   if (flags & 1) operator_delete(_this);
 440   return _this;
 441 }
 442
 443 /******************************************************************
 444  *              ??8type_info@@QBEHABV0@@Z (MSVCRT.@)
 445  */
 446 DEFINE_THISCALL_WRAPPER(type_info_opequals_equals,8)
 447 int __thiscall type_info_opequals_equals(type_info * _this, const type_info * rhs)
 448 {
 449     int ret = !strcmp(_this->mangled + 1, rhs->mangled + 1);
 450     TRACE("(%p %p) returning %d\n", _this, rhs, ret);
 451     return ret;
 452 }
 453
 454 /******************************************************************
 455  *              ??9type_info@@QBEHABV0@@Z (MSVCRT.@)
 456  */
 457 DEFINE_THISCALL_WRAPPER(type_info_opnot_equals,8)
 458 int __thiscall type_info_opnot_equals(type_info * _this, const type_info * rhs)
 459 {
 460     int ret = !!strcmp(_this->mangled + 1, rhs->mangled + 1);
 461     TRACE("(%p %p) returning %d\n", _this, rhs, ret);
 462     return ret;
 463 }
 464
 465 /******************************************************************
 466  *              ?before@type_info@@QBEHABV1@@Z (MSVCRT.@)
 467  */
 468 DEFINE_THISCALL_WRAPPER(type_info_before,8)
 469 int __thiscall type_info_before(type_info * _this, const type_info * rhs)
 470 {
 471     int ret = strcmp(_this->mangled + 1, rhs->mangled + 1) < 0;
 472     TRACE("(%p %p) returning %d\n", _this, rhs, ret);
 473     return ret;
 474 }
 475
 476 /******************************************************************
 477  *              ??1type_info@@UAE@XZ (MSVCRT.@)
 478  */
 479 DEFINE_THISCALL_WRAPPER(type_info_dtor,4)
 480 void __thiscall type_info_dtor(type_info * _this)
 481 {
 482   TRACE("(%p)\n", _this);
 483   free(_this->name);
 484 }
 485
 486 /******************************************************************
 487  *              ?name@type_info@@QBEPBDXZ (MSVCRT.@)
 488  */
 489 DEFINE_THISCALL_WRAPPER(type_info_name,4)
 490 const char * __thiscall type_info_name(type_info * _this)
 491 {
 492   if (!_this->name)
 493   {
 494     /* Create and set the demangled name */
 495     /* Note: mangled name in type_info struct always starts with a '.', while
 496      * it isn't valid for mangled name.
 497      * Is this '.' really part of the mangled name, or has it some other meaning ?
 498      */
 499     char* name = __unDName(0, _this->mangled + 1, 0,
 500                            malloc, free, UNDNAME_NO_ARGUMENTS | UNDNAME_32_BIT_DECODE);
 501     if (name)
 502     {
 503       unsigned int len = strlen(name);
 504
 505       /* It seems _unDName may leave blanks at the end of the demangled name */
 506       while (len && name[--len] == ' ')
 507         name[len] = '\0';
 508
 509       if (InterlockedCompareExchangePointer((void**)&_this->name, name, NULL))
 510       {
 511         /* Another thread set this member since we checked above - use it */
 512         free(name);
 513       }
 514     }
 515   }
 516   TRACE("(%p) returning %s\n", _this, _this->name);
 517   return _this->name;
 518 }
 519
 520 /******************************************************************
 521  *              ?raw_name@type_info@@QBEPBDXZ (MSVCRT.@)
 522  */
 523 DEFINE_THISCALL_WRAPPER(type_info_raw_name,4)
 524 const char * __thiscall type_info_raw_name(type_info * _this)
 525 {
 526   TRACE("(%p) returning %s\n", _this, _this->mangled);
 527   return _this->mangled;
 528 }
 529
 530 #if _MSVCR_VER >= 80
 531
 532 typedef exception bad_alloc;
 533 extern const vtable_ptr bad_alloc_vtable;
 534
 535 /* bad_alloc class implementation */
 536 DEFINE_THISCALL_WRAPPER(bad_alloc_copy_ctor,8)
 537 bad_alloc * __thiscall bad_alloc_copy_ctor(bad_alloc * _this, const bad_alloc * rhs)
 538 {
 539     TRACE("(%p %p)\n", _this, rhs);
 540     return __exception_copy_ctor(_this, rhs, &bad_alloc_vtable);
 541 }
 542
 543 DEFINE_THISCALL_WRAPPER(bad_alloc_dtor,4)
 544 void __thiscall bad_alloc_dtor(bad_alloc * _this)
 545 {
 546     TRACE("(%p)\n", _this);
 547     exception_dtor(_this);
 548 }
 549
 550 #endif /* _MSVCR_VER >= 80 */
 551
 552 __ASM_BLOCK_BEGIN(vtables)
 553
 554 #if _MSVCR_VER >= 80
 555 __ASM_VTABLE(exception_old,
 556         VTABLE_ADD_FUNC(exception_vector_dtor)
 557         VTABLE_ADD_FUNC(exception_what));
 558 __ASM_VTABLE(bad_alloc,
 559         VTABLE_ADD_FUNC(exception_vector_dtor)
 560         VTABLE_ADD_FUNC(exception_what));
 561 #endif
 562 __ASM_VTABLE(bad_typeid,
 563         VTABLE_ADD_FUNC(bad_typeid_vector_dtor)
 564         VTABLE_ADD_FUNC(exception_what));
 565 __ASM_VTABLE(bad_cast,
 566         VTABLE_ADD_FUNC(bad_cast_vector_dtor)
 567         VTABLE_ADD_FUNC(exception_what));
 568 __ASM_VTABLE(__non_rtti_object,
 569         VTABLE_ADD_FUNC(__non_rtti_object_vector_dtor)
 570         VTABLE_ADD_FUNC(exception_what));
 571
 572 __ASM_BLOCK_END
 573
 574 #if _MSVCR_VER >= 80
 575 DEFINE_RTTI_DATA0( exception_old, 0, ".?AVexception@@" )
 576 DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@std@@" )
 577 DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@std@@" )
 578 DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@std@@" )
 579 DEFINE_RTTI_DATA1( bad_alloc, 0, &exception_rtti_base_descriptor, ".?AVbad_alloc@std@@" )
 580 #else
 581 DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@@" )
 582 DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@@" )
 583 DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@@" )
 584 #endif
 585
 586 DEFINE_CXX_EXCEPTION0( exception, exception_dtor )
 587 DEFINE_CXX_DATA1( bad_typeid, &exception_cxx_type_info, bad_typeid_dtor )
 588 DEFINE_CXX_DATA1( bad_cast, &exception_cxx_type_info, bad_cast_dtor )
 589 DEFINE_CXX_DATA2( __non_rtti_object, &bad_typeid_cxx_type_info,
 590         &exception_cxx_type_info, __non_rtti_object_dtor )
 591 #if _MSVCR_VER >= 80
 592 DEFINE_CXX_DATA1( bad_alloc, &exception_cxx_type_info, bad_alloc_dtor )
 593 #endif
 594
 595 void msvcrt_init_exception(void *base)
 596 {
 597 #ifdef __x86_64__
 598     init_type_info_rtti(base);
 599     init_exception_rtti(base);
 600 #if _MSVCR_VER >= 80
 601     init_exception_old_rtti(base);
 602     init_bad_alloc_rtti(base);
 603 #endif
 604     init_bad_typeid_rtti(base);
 605     init_bad_cast_rtti(base);
 606     init___non_rtti_object_rtti(base);
 607
 608     init_exception_cxx(base);
 609     init_bad_typeid_cxx(base);
 610     init_bad_cast_cxx(base);
 611     init___non_rtti_object_cxx(base);
 612 #if _MSVCR_VER >= 80
 613     init_bad_alloc_cxx(base);
 614 #endif
 615 #endif
 616 }
 617
 618 #if _MSVCR_VER >= 80
 619 void throw_bad_alloc(void)
 620 {
 621     bad_alloc e;
 622     __exception_ctor(&e, "bad allocation", &bad_alloc_vtable);
 623     _CxxThrowException(&e, &bad_alloc_exception_type);
 624 }
 625 #endif
 626
 627 /******************************************************************
 628  *              ?set_terminate@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
 629  *
 630  * Install a handler to be called when terminate() is called.
 631  *
 632  * PARAMS
 633  *  func [I] Handler function to install
 634  *
 635  * RETURNS
 636  *  The previously installed handler function, if any.
 637  */
 638 terminate_function CDECL set_terminate(terminate_function func)
 639 {
 640     thread_data_t *data = msvcrt_get_thread_data();
 641     terminate_function previous = data->terminate_handler;
 642     TRACE("(%p) returning %p\n",func,previous);
 643     data->terminate_handler = func;
 644     return previous;
 645 }
 646
 647 /******************************************************************
 648  *              _get_terminate (MSVCRT.@)
 649  */
 650 terminate_function CDECL _get_terminate(void)
 651 {
 652     thread_data_t *data = msvcrt_get_thread_data();
 653     TRACE("returning %p\n", data->terminate_handler);
 654     return data->terminate_handler;
 655 }
 656
 657 /******************************************************************
 658  *              ?set_unexpected@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
 659  *
 660  * Install a handler to be called when unexpected() is called.
 661  *
 662  * PARAMS
 663  *  func [I] Handler function to install
 664  *
 665  * RETURNS
 666  *  The previously installed handler function, if any.
 667  */
 668 unexpected_function CDECL set_unexpected(unexpected_function func)
 669 {
 670     thread_data_t *data = msvcrt_get_thread_data();
 671     unexpected_function previous = data->unexpected_handler;
 672     TRACE("(%p) returning %p\n",func,previous);
 673     data->unexpected_handler = func;
 674     return previous;
 675 }
 676
 677 /******************************************************************
 678  *              _get_unexpected (MSVCRT.@)
 679  */
 680 unexpected_function CDECL _get_unexpected(void)
 681 {
 682     thread_data_t *data = msvcrt_get_thread_data();
 683     TRACE("returning %p\n", data->unexpected_handler);
 684     return data->unexpected_handler;
 685 }
 686
 687 /******************************************************************
 688  *              ?_set_se_translator@@YAP6AXIPAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z  (MSVCRT.@)
 689  */
 690 _se_translator_function CDECL _set_se_translator(_se_translator_function func)
 691 {
 692     thread_data_t *data = msvcrt_get_thread_data();
 693     _se_translator_function previous = data->se_translator;
 694     TRACE("(%p) returning %p\n",func,previous);
 695     data->se_translator = func;
 696     return previous;
 697 }
 698
 699 /******************************************************************
 700  *              ?terminate@@YAXXZ (MSVCRT.@)
 701  *
 702  * Default handler for an unhandled exception.
 703  *
 704  * PARAMS
 705  *  None.
 706  *
 707  * RETURNS
 708  *  This function does not return. Either control resumes from any
 709  *  handler installed by calling set_terminate(), or (by default) abort()
 710  *  is called.
 711  */
 712 void CDECL terminate(void)
 713 {
 714     thread_data_t *data = msvcrt_get_thread_data();
 715     if (data->terminate_handler) data->terminate_handler();
 716     abort();
 717 }
 718
 719 /******************************************************************
 720  *              ?unexpected@@YAXXZ (MSVCRT.@)
 721  */
 722 void CDECL unexpected(void)
 723 {
 724     thread_data_t *data = msvcrt_get_thread_data();
 725     if (data->unexpected_handler) data->unexpected_handler();
 726     terminate();
 727 }
 728
 729
 730 /******************************************************************
 731  *              __RTtypeid (MSVCRT.@)
 732  *
 733  * Retrieve the Run Time Type Information (RTTI) for a C++ object.
 734  *
 735  * PARAMS
 736  *  cppobj [I] C++ object to get type information for.
 737  *
 738  * RETURNS
 739  *  Success: A type_info object describing cppobj.
 740  *  Failure: If the object to be cast has no RTTI, a __non_rtti_object
 741  *           exception is thrown. If cppobj is NULL, a bad_typeid exception
 742  *           is thrown. In either case, this function does not return.
 743  *
 744  * NOTES
 745  *  This function is usually called by compiler generated code as a result
 746  *  of using one of the C++ dynamic cast statements.
 747  */
 748 #ifndef __x86_64__
 749 const type_info* CDECL __RTtypeid(void *cppobj)
 750 {
 751     const type_info *ret;
 752
 753     if (!cppobj)
 754     {
 755         bad_typeid e;
 756         bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
 757         _CxxThrowException( &e, &bad_typeid_exception_type );
 758     }
 759
 760     __TRY
 761     {
 762         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 763         ret = obj_locator->type_descriptor;
 764     }
 765     __EXCEPT_PAGE_FAULT
 766     {
 767         __non_rtti_object e;
 768         __non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
 769         _CxxThrowException( &e, &__non_rtti_object_exception_type );
 770     }
 771     __ENDTRY
 772     return ret;
 773 }
 774
 775 #else
 776
 777 const type_info* CDECL __RTtypeid(void *cppobj)
 778 {
 779     const type_info *ret;
 780
 781     if (!cppobj)
 782     {
 783         bad_typeid e;
 784         bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
 785         _CxxThrowException( &e, &bad_typeid_exception_type );
 786     }
 787
 788     __TRY
 789     {
 790         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 791         char *base;
 792
 793         if(obj_locator->signature == 0)
 794             base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
 795         else
 796             base = (char*)obj_locator - obj_locator->object_locator;
 797
 798         ret = (type_info*)(base + obj_locator->type_descriptor);
 799     }
 800     __EXCEPT_PAGE_FAULT
 801     {
 802         __non_rtti_object e;
 803         __non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
 804         _CxxThrowException( &e, &__non_rtti_object_exception_type );
 805     }
 806     __ENDTRY
 807     return ret;
 808 }
 809 #endif
 810
 811 /******************************************************************
 812  *              __RTDynamicCast (MSVCRT.@)
 813  *
 814  * Dynamically cast a C++ object to one of its base classes.
 815  *
 816  * PARAMS
 817  *  cppobj   [I] Any C++ object to cast
 818  *  unknown  [I] Reserved, set to 0
 819  *  src      [I] type_info object describing cppobj
 820  *  dst      [I] type_info object describing the base class to cast to
 821  *  do_throw [I] TRUE = throw an exception if the cast fails, FALSE = don't
 822  *
 823  * RETURNS
 824  *  Success: The address of cppobj, cast to the object described by dst.
 825  *  Failure: NULL, If the object to be cast has no RTTI, or dst is not a
 826  *           valid cast for cppobj. If do_throw is TRUE, a bad_cast exception
 827  *           is thrown and this function does not return.
 828  *
 829  * NOTES
 830  *  This function is usually called by compiler generated code as a result
 831  *  of using one of the C++ dynamic cast statements.
 832  */
 833 #ifndef __x86_64__
 834 void* CDECL __RTDynamicCast(void *cppobj, int unknown,
 835                                    type_info *src, type_info *dst,
 836                                    int do_throw)
 837 {
 838     void *ret;
 839
 840     if (!cppobj) return NULL;
 841
 842     TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
 843           cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
 844
 845     /* To cast an object at runtime:
 846      * 1.Find out the true type of the object from the typeinfo at vtable[-1]
 847      * 2.Search for the destination type in the class hierarchy
 848      * 3.If destination type is found, return base object address + dest offset
 849      *   Otherwise, fail the cast
 850      *
 851      * FIXME: the unknown parameter doesn't seem to be used for anything
 852      */
 853     __TRY
 854     {
 855         int i;
 856         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 857         const rtti_object_hierarchy *obj_bases = obj_locator->type_hierarchy;
 858         const rtti_base_descriptor * const* base_desc = obj_bases->base_classes->bases;
 859
 860         if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
 861
 862         ret = NULL;
 863         for (i = 0; i < obj_bases->array_len; i++)
 864         {
 865             const type_info *typ = base_desc[i]->type_descriptor;
 866
 867             if (!strcmp(typ->mangled, dst->mangled))
 868             {
 869                 /* compute the correct this pointer for that base class */
 870                 void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
 871                 ret = get_this_pointer( &base_desc[i]->offsets, this_ptr );
 872                 break;
 873             }
 874         }
 875         /* VC++ sets do_throw to 1 when the result of a dynamic_cast is assigned
 876          * to a reference, since references cannot be NULL.
 877          */
 878         if (!ret && do_throw)
 879         {
 880             const char *msg = "Bad dynamic_cast!";
 881             bad_cast e;
 882             bad_cast_ctor( &e, &msg );
 883             _CxxThrowException( &e, &bad_cast_exception_type );
 884         }
 885     }
 886     __EXCEPT_PAGE_FAULT
 887     {
 888         __non_rtti_object e;
 889         __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
 890         _CxxThrowException( &e, &__non_rtti_object_exception_type );
 891     }
 892     __ENDTRY
 893     return ret;
 894 }
 895
 896 #else
 897
 898 void* CDECL __RTDynamicCast(void *cppobj, int unknown,
 899         type_info *src, type_info *dst,
 900         int do_throw)
 901 {
 902     void *ret;
 903
 904     if (!cppobj) return NULL;
 905
 906     TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
 907             cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
 908
 909     __TRY
 910     {
 911         int i;
 912         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 913         const rtti_object_hierarchy *obj_bases;
 914         const rtti_base_array *base_array;
 915         char *base;
 916
 917         if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
 918
 919         if(obj_locator->signature == 0)
 920             base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
 921         else
 922             base = (char*)obj_locator - obj_locator->object_locator;
 923
 924         obj_bases = (const rtti_object_hierarchy*)(base + obj_locator->type_hierarchy);
 925         base_array = (const rtti_base_array*)(base + obj_bases->base_classes);
 926
 927         ret = NULL;
 928         for (i = 0; i < obj_bases->array_len; i++)
 929         {
 930             const rtti_base_descriptor *base_desc = (const rtti_base_descriptor*)(base + base_array->bases[i]);
 931             const type_info *typ = (const type_info*)(base + base_desc->type_descriptor);
 932
 933             if (!strcmp(typ->mangled, dst->mangled))
 934             {
 935                 void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
 936                 ret = get_this_pointer( &base_desc->offsets, this_ptr );
 937                 break;
 938             }
 939         }
 940         if (!ret && do_throw)
 941         {
 942             const char *msg = "Bad dynamic_cast!";
 943             bad_cast e;
 944             bad_cast_ctor( &e, &msg );
 945             _CxxThrowException( &e, &bad_cast_exception_type );
 946         }
 947     }
 948     __EXCEPT_PAGE_FAULT
 949     {
 950         __non_rtti_object e;
 951         __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
 952         _CxxThrowException( &e, &__non_rtti_object_exception_type );
 953     }
 954     __ENDTRY
 955     return ret;
 956 }
 957 #endif
 958
 959
 960 /******************************************************************
 961  *              __RTCastToVoid (MSVCRT.@)
 962  *
 963  * Dynamically cast a C++ object to a void*.
 964  *
 965  * PARAMS
 966  *  cppobj [I] The C++ object to cast
 967  *
 968  * RETURNS
 969  *  Success: The base address of the object as a void*.
 970  *  Failure: NULL, if cppobj is NULL or has no RTTI.
 971  *
 972  * NOTES
 973  *  This function is usually called by compiler generated code as a result
 974  *  of using one of the C++ dynamic cast statements.
 975  */
 976 void* CDECL __RTCastToVoid(void *cppobj)
 977 {
 978     void *ret;
 979
 980     if (!cppobj) return NULL;
 981
 982     __TRY
 983     {
 984         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 985         ret = (char *)cppobj - obj_locator->base_class_offset;
 986     }
 987     __EXCEPT_PAGE_FAULT
 988     {
 989         __non_rtti_object e;
 990         __non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
 991         _CxxThrowException( &e, &__non_rtti_object_exception_type );
 992     }
 993     __ENDTRY
 994     return ret;
 995 }
 996
 997
 998 /*********************************************************************
 999  *              _CxxThrowException (MSVCRT.@)
1000  */
1001 #ifndef __x86_64__
1002 void WINAPI _CxxThrowException( void *object, const cxx_exception_type *type )
1003 {
1004     ULONG_PTR args[3];
1005
1006     args[0] = CXX_FRAME_MAGIC_VC6;
1007     args[1] = (ULONG_PTR)object;
1008     args[2] = (ULONG_PTR)type;
1009     RaiseException( CXX_EXCEPTION, EH_NONCONTINUABLE, 3, args );
1010 }
1011 #else
1012 void WINAPI _CxxThrowException( void *object, const cxx_exception_type *type )
1013 {
1014     ULONG_PTR args[4];
1015
1016     args[0] = CXX_FRAME_MAGIC_VC6;
1017     args[1] = (ULONG_PTR)object;
1018     args[2] = (ULONG_PTR)type;
1019     RtlPcToFileHeader( (void*)type, (void**)&args[3]);
1020     RaiseException( CXX_EXCEPTION, EH_NONCONTINUABLE, 4, args );
1021 }
1022 #endif
1023
1024 #if _MSVCR_VER >= 80
1025
1026 /*********************************************************************
1027  * ?_is_exception_typeof@@YAHABVtype_info@@PAU_EXCEPTION_POINTERS@@@Z
1028  * ?_is_exception_typeof@@YAHAEBVtype_info@@PEAU_EXCEPTION_POINTERS@@@Z
1029  */
1030 #ifndef __x86_64__
1031 int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
1032 {
1033     int ret = -1;
1034
1035     TRACE("(%p %p)\n", ti, ep);
1036
1037     __TRY
1038     {
1039         EXCEPTION_RECORD *rec = ep->ExceptionRecord;
1040
1041         if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==3 &&
1042                 (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
1043                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
1044                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
1045         {
1046             const cxx_type_info_table *tit = ((cxx_exception_type*)rec->ExceptionInformation[2])->type_info_table;
1047             int i;
1048
1049             for (i=0; i<tit->count; i++) {
1050                 if (ti==tit->info[i]->type_info || !strcmp(ti->mangled, tit->info[i]->type_info->mangled))
1051                 {
1052                     ret = 1;
1053                     break;
1054                 }
1055             }
1056
1057             if (i == tit->count)
1058                 ret = 0;
1059         }
1060     }
1061     __EXCEPT_PAGE_FAULT
1062     __ENDTRY
1063
1064     if(ret == -1)
1065         terminate();
1066     return ret;
1067 }
1068 #else
1069 int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
1070 {
1071     int ret = -1;
1072
1073     TRACE("(%p %p)\n", ti, ep);
1074
1075     __TRY
1076     {
1077         EXCEPTION_RECORD *rec = ep->ExceptionRecord;
1078
1079         if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==4 &&
1080                 (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
1081                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
1082                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
1083         {
1084             const cxx_exception_type *et = (cxx_exception_type*)rec->ExceptionInformation[2];
1085             const cxx_type_info_table *tit = (const cxx_type_info_table*)(rec->ExceptionInformation[3]+et->type_info_table);
1086             int i;
1087
1088             for (i=0; i<tit->count; i++) {
1089                 const cxx_type_info *cti = (const cxx_type_info*)(rec->ExceptionInformation[3]+tit->info[i]);
1090                 const type_info *except_ti = (const type_info*)(rec->ExceptionInformation[3]+cti->type_info);
1091                 if (ti==except_ti || !strcmp(ti->mangled, except_ti->mangled))
1092                 {
1093                     ret = 1;
1094                     break;
1095                 }
1096             }
1097
1098             if (i == tit->count)
1099                 ret = 0;
1100         }
1101     }
1102     __EXCEPT_PAGE_FAULT
1103     __ENDTRY
1104
1105     if(ret == -1)
1106         terminate();
1107     return ret;
1108 }
1109 #endif
1110
1111 /*********************************************************************
1112  * __clean_type_info_names_internal (MSVCR80.@)
1113  */
1114 void CDECL __clean_type_info_names_internal(void *p)
1115 {
1116     FIXME("(%p) stub\n", p);
1117 }
1118
1119 /*********************************************************************
1120  * ?_name_internal_method@type_info@@QBEPBDPAU__type_info_node@@@Z (MSVCR100.@)
1121  */
1122 DEFINE_THISCALL_WRAPPER(type_info_name_internal_method,8)
1123 const char * __thiscall type_info_name_internal_method(type_info * _this, struct __type_info_node *node)
1124 {
1125     static int once;
1126     if (node && !once++) FIXME("type_info_node parameter ignored\n");
1127
1128     return type_info_name(_this);
1129 }
1130
1131 #endif /* _MSVCR_VER >= 80 */
1132
1133 /* std::exception_ptr class helpers */
1134 typedef struct
1135 {
1136     EXCEPTION_RECORD *rec;
1137     LONG *ref; /* not binary compatible with native msvcr100 */
1138 } exception_ptr;
1139
1140 #if _MSVCR_VER >= 100
1141
1142 /*********************************************************************
1143  * ?__ExceptionPtrCreate@@YAXPAX@Z
1144  * ?__ExceptionPtrCreate@@YAXPEAX@Z
1145  */
1146 void __cdecl __ExceptionPtrCreate(exception_ptr *ep)
1147 {
1148     TRACE("(%p)\n", ep);
1149
1150     ep->rec = NULL;
1151     ep->ref = NULL;
1152 }
1153
1154 #ifdef __ASM_USE_THISCALL_WRAPPER
1155 extern void call_dtor(const cxx_exception_type *type, void *func, void *object);
1156
1157 __ASM_GLOBAL_FUNC( call_dtor,
1158                    "movl 12(%esp),%ecx\n\t"
1159                    "call *8(%esp)\n\t"
1160                    "ret" );
1161 #elif __x86_64__
1162 static inline void call_dtor(const cxx_exception_type *type, unsigned int dtor, void *object)
1163 {
1164     char *base = RtlPcToFileHeader((void*)type, (void**)&base);
1165     void (__cdecl *func)(void*) = (void*)(base + dtor);
1166     func(object);
1167 }
1168 #else
1169 #define call_dtor(type, func, object) ((void (__thiscall*)(void*))(func))(object)
1170 #endif
1171
1172 /*********************************************************************
1173  * ?__ExceptionPtrDestroy@@YAXPAX@Z
1174  * ?__ExceptionPtrDestroy@@YAXPEAX@Z
1175  */
1176 void __cdecl __ExceptionPtrDestroy(exception_ptr *ep)
1177 {
1178     TRACE("(%p)\n", ep);
1179
1180     if (!ep->rec)
1181         return;
1182
1183     if (!InterlockedDecrement(ep->ref))
1184     {
1185         if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1186         {
1187             const cxx_exception_type *type = (void*)ep->rec->ExceptionInformation[2];
1188             void *obj = (void*)ep->rec->ExceptionInformation[1];
1189
1190             if (type && type->destructor) call_dtor(type, type->destructor, obj);
1191             HeapFree(GetProcessHeap(), 0, obj);
1192         }
1193
1194         HeapFree(GetProcessHeap(), 0, ep->rec);
1195         HeapFree(GetProcessHeap(), 0, ep->ref);
1196     }
1197 }
1198
1199 /*********************************************************************
1200  * ?__ExceptionPtrCopy@@YAXPAXPBX@Z
1201  * ?__ExceptionPtrCopy@@YAXPEAXPEBX@Z
1202  */
1203 void __cdecl __ExceptionPtrCopy(exception_ptr *ep, const exception_ptr *copy)
1204 {
1205     TRACE("(%p %p)\n", ep, copy);
1206
1207     /* don't destroy object stored in ep */
1208     *ep = *copy;
1209     if (ep->ref)
1210         InterlockedIncrement(copy->ref);
1211 }
1212
1213 /*********************************************************************
1214  * ?__ExceptionPtrAssign@@YAXPAXPBX@Z
1215  * ?__ExceptionPtrAssign@@YAXPEAXPEBX@Z
1216  */
1217 void __cdecl __ExceptionPtrAssign(exception_ptr *ep, const exception_ptr *assign)
1218 {
1219     TRACE("(%p %p)\n", ep, assign);
1220
1221     /* don't destroy object stored in ep */
1222     if (ep->ref)
1223         InterlockedDecrement(ep->ref);
1224
1225     *ep = *assign;
1226     if (ep->ref)
1227         InterlockedIncrement(ep->ref);
1228 }
1229
1230 #endif /* _MSVCR_VER >= 100 */
1231
1232 /*********************************************************************
1233  * ?__ExceptionPtrRethrow@@YAXPBX@Z
1234  * ?__ExceptionPtrRethrow@@YAXPEBX@Z
1235  */
1236 void __cdecl __ExceptionPtrRethrow(const exception_ptr *ep)
1237 {
1238     TRACE("(%p)\n", ep);
1239
1240     if (!ep->rec)
1241     {
1242         static const char *exception_msg = "bad exception";
1243         exception e;
1244
1245         exception_ctor(&e, &exception_msg);
1246         _CxxThrowException(&e, &exception_exception_type);
1247         return;
1248     }
1249
1250     RaiseException(ep->rec->ExceptionCode, ep->rec->ExceptionFlags & (~EH_UNWINDING),
1251             ep->rec->NumberParameters, ep->rec->ExceptionInformation);
1252 }
1253
1254 #if _MSVCR_VER >= 100
1255
1256 #ifdef __i386__
1257 extern void call_copy_ctor( void *func, void *this, void *src, int has_vbase );
1258 #else
1259 static inline void call_copy_ctor( void *func, void *this, void *src, int has_vbase )
1260 {
1261     TRACE( "calling copy ctor %p object %p src %p\n", func, this, src );
1262     if (has_vbase)
1263         ((void (__cdecl*)(void*, void*, BOOL))func)(this, src, 1);
1264     else
1265         ((void (__cdecl*)(void*, void*))func)(this, src);
1266 }
1267 #endif
1268
1269 /*********************************************************************
1270  * ?__ExceptionPtrCurrentException@@YAXPAX@Z
1271  * ?__ExceptionPtrCurrentException@@YAXPEAX@Z
1272  */
1273 #ifndef __x86_64__
1274 void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
1275 {
1276     EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
1277
1278     TRACE("(%p)\n", ep);
1279
1280     if (!rec)
1281     {
1282         ep->rec = NULL;
1283         ep->ref = NULL;
1284         return;
1285     }
1286
1287     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1288     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1289
1290     *ep->rec = *rec;
1291     *ep->ref = 1;
1292
1293     if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1294     {
1295         const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
1296         const cxx_type_info *ti;
1297         void **data, *obj;
1298
1299         ti = et->type_info_table->info[0];
1300         data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1301
1302         obj = (void*)ep->rec->ExceptionInformation[1];
1303         if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1304         {
1305             memcpy(data, obj, ti->size);
1306             if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1307         }
1308         else if (ti->copy_ctor)
1309         {
1310             call_copy_ctor(ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
1311                     ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1312         }
1313         else
1314             memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
1315         ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1316     }
1317     return;
1318 }
1319 #else
1320 void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
1321 {
1322     EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
1323
1324     TRACE("(%p)\n", ep);
1325
1326     if (!rec)
1327     {
1328         ep->rec = NULL;
1329         ep->ref = NULL;
1330         return;
1331     }
1332
1333     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1334     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1335
1336     *ep->rec = *rec;
1337     *ep->ref = 1;
1338
1339     if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1340     {
1341         const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
1342         const cxx_type_info *ti;
1343         void **data, *obj;
1344         char *base = RtlPcToFileHeader((void*)et, (void**)&base);
1345
1346         ti = (const cxx_type_info*)(base + ((const cxx_type_info_table*)(base + et->type_info_table))->info[0]);
1347         data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1348
1349         obj = (void*)ep->rec->ExceptionInformation[1];
1350         if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1351         {
1352             memcpy(data, obj, ti->size);
1353             if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1354         }
1355         else if (ti->copy_ctor)
1356         {
1357             call_copy_ctor(base + ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
1358                     ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1359         }
1360         else
1361             memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
1362         ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1363     }
1364     return;
1365 }
1366 #endif
1367
1368 #endif /* _MSVCR_VER >= 100 */
1369
1370 #if _MSVCR_VER >= 110
1371 /*********************************************************************
1372  * ?__ExceptionPtrToBool@@YA_NPBX@Z
1373  * ?__ExceptionPtrToBool@@YA_NPEBX@Z
1374  */
1375 bool __cdecl __ExceptionPtrToBool(exception_ptr *ep)
1376 {
1377     return !!ep->rec;
1378 }
1379 #endif
1380
1381 #if _MSVCR_VER >= 100
1382
1383 /*********************************************************************
1384  * ?__ExceptionPtrCopyException@@YAXPAXPBX1@Z
1385  * ?__ExceptionPtrCopyException@@YAXPEAXPEBX1@Z
1386  */
1387 #ifndef __x86_64__
1388 void __cdecl __ExceptionPtrCopyException(exception_ptr *ep,
1389         exception *object, const cxx_exception_type *type)
1390 {
1391     const cxx_type_info *ti;
1392     void **data;
1393
1394     __ExceptionPtrDestroy(ep);
1395
1396     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1397     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1398     *ep->ref = 1;
1399
1400     memset(ep->rec, 0, sizeof(EXCEPTION_RECORD));
1401     ep->rec->ExceptionCode = CXX_EXCEPTION;
1402     ep->rec->ExceptionFlags = EH_NONCONTINUABLE;
1403     ep->rec->NumberParameters = 3;
1404     ep->rec->ExceptionInformation[0] = CXX_FRAME_MAGIC_VC6;
1405     ep->rec->ExceptionInformation[2] = (ULONG_PTR)type;
1406
1407     ti = type->type_info_table->info[0];
1408     data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1409     if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1410     {
1411         memcpy(data, object, ti->size);
1412         if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1413     }
1414     else if (ti->copy_ctor)
1415     {
1416         call_copy_ctor(ti->copy_ctor, data, get_this_pointer(&ti->offsets, object),
1417                 ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1418     }
1419     else
1420         memcpy(data, get_this_pointer(&ti->offsets, object), ti->size);
1421     ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1422 }
1423 #else
1424 void __cdecl __ExceptionPtrCopyException(exception_ptr *ep,
1425         exception *object, const cxx_exception_type *type)
1426 {
1427     const cxx_type_info *ti;
1428     void **data;
1429     char *base;
1430
1431     RtlPcToFileHeader((void*)type, (void**)&base);
1432     __ExceptionPtrDestroy(ep);
1433
1434     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1435     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1436     *ep->ref = 1;
1437
1438     memset(ep->rec, 0, sizeof(EXCEPTION_RECORD));
1439     ep->rec->ExceptionCode = CXX_EXCEPTION;
1440     ep->rec->ExceptionFlags = EH_NONCONTINUABLE;
1441     ep->rec->NumberParameters = 4;
1442     ep->rec->ExceptionInformation[0] = CXX_FRAME_MAGIC_VC6;
1443     ep->rec->ExceptionInformation[2] = (ULONG_PTR)type;
1444     ep->rec->ExceptionInformation[3] = (ULONG_PTR)base;
1445
1446     ti = (const cxx_type_info*)(base + ((const cxx_type_info_table*)(base + type->type_info_table))->info[0]);
1447     data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1448     if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1449     {
1450         memcpy(data, object, ti->size);
1451         if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1452     }
1453     else if (ti->copy_ctor)
1454     {
1455         call_copy_ctor(base + ti->copy_ctor, data, get_this_pointer(&ti->offsets, object),
1456                 ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1457     }
1458     else
1459         memcpy(data, get_this_pointer(&ti->offsets, object), ti->size);
1460     ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1461 }
1462 #endif
1463
1464 bool __cdecl __ExceptionPtrCompare(const exception_ptr *ep1, const exception_ptr *ep2)
1465 {
1466     return ep1->rec == ep2->rec;
1467 }
1468
1469 #endif /* _MSVCR_VER >= 100 */
1470
1471 #if _MSVCR_VER >= 80
1472 void* __cdecl __AdjustPointer(void *obj, const this_ptr_offsets *off)
1473 {
1474     return get_this_pointer(off, obj);
1475 }
1476 #endif
1477
1478 #if _MSVCR_VER >= 140
1479
1480 typedef struct
1481 {
1482     char *name;
1483     char mangled[1];
1484 } type_info140;
1485
1486 typedef struct
1487 {
1488     SLIST_ENTRY entry;
1489     char name[1];
1490 } type_info_entry;
1491
1492 static void* CDECL type_info_entry_malloc(size_t size)
1493 {
1494     type_info_entry *ret = malloc(FIELD_OFFSET(type_info_entry, name) + size);
1495     return ret->name;
1496 }
1497
1498 static void CDECL type_info_entry_free(void *ptr)
1499 {
1500     ptr = (char*)ptr - FIELD_OFFSET(type_info_entry, name);
1501     free(ptr);
1502 }
1503
1504 /******************************************************************
1505  *              __std_type_info_compare (UCRTBASE.@)
1506  */
1507 int CDECL __std_type_info_compare(const type_info140 *l, const type_info140 *r)
1508 {
1509     int ret;
1510
1511     if (l == r) ret = 0;
1512     else ret = strcmp(l->mangled + 1, r->mangled + 1);
1513     TRACE("(%p %p) returning %d\n", l, r, ret);
1514     return ret;
1515 }
1516
1517 /******************************************************************
1518  *              __std_type_info_name (UCRTBASE.@)
1519  */
1520 const char* CDECL __std_type_info_name(type_info140 *ti, SLIST_HEADER *header)
1521 {
1522       if (!ti->name)
1523       {
1524           char* name = __unDName(0, ti->mangled + 1, 0,
1525                   type_info_entry_malloc, type_info_entry_free, UNDNAME_NO_ARGUMENTS | UNDNAME_32_BIT_DECODE);
1526           if (name)
1527           {
1528               unsigned int len = strlen(name);
1529
1530               while (len && name[--len] == ' ')
1531                   name[len] = '\0';
1532
1533               if (InterlockedCompareExchangePointer((void**)&ti->name, name, NULL))
1534               {
1535                   type_info_entry_free(name);
1536               }
1537               else
1538               {
1539                   type_info_entry *entry = (type_info_entry*)(name-FIELD_OFFSET(type_info_entry, name));
1540                   InterlockedPushEntrySList(header, &entry->entry);
1541               }
1542           }
1543       }
1544       TRACE("(%p) returning %s\n", ti, ti->name);
1545       return ti->name;
1546 }
1547
1548 /******************************************************************
1549  *              __std_type_info_destroy_list  (UCRTBASE.@)
1550  */
1551 void CDECL __std_type_info_destroy_list(SLIST_HEADER *header)
1552 {
1553     SLIST_ENTRY *cur, *next;
1554
1555     TRACE("(%p)\n", header);
1556
1557     for(cur = InterlockedFlushSList(header); cur; cur = next)
1558     {
1559         next = cur->Next;
1560         free(cur);
1561     }
1562 }
1563
1564 /******************************************************************
1565  *              __std_type_info_hash (UCRTBASE.@)
1566  */
1567 size_t CDECL __std_type_info_hash(const type_info140 *ti)
1568 {
1569     size_t hash, fnv_prime;
1570     const char *p;
1571
1572 #ifdef _WIN64
1573     hash = 0xcbf29ce484222325;
1574     fnv_prime = 0x100000001b3;
1575 #else
1576     hash = 0x811c9dc5;
1577     fnv_prime = 0x1000193;
1578 #endif
1579
1580     TRACE("(%p)->%s\n", ti, ti->mangled);
1581
1582     for(p = ti->mangled+1; *p; p++) {
1583         hash ^= *p;
1584         hash *= fnv_prime;
1585     }
1586
1587 #ifdef _WIN64
1588     hash ^= hash >> 32;
1589 #endif
1590
1591     return hash;
1592 }
1593
1594 #endif /* _MSVCR_VER >= 140 */