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