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  *              ??1type_info@@UAE@XZ (MSVCRT.@)
 579  */
 580 DEFINE_THISCALL_WRAPPER(MSVCRT_type_info_dtor,4)
 581 void __thiscall MSVCRT_type_info_dtor(type_info * _this)
 582 {
 583   TRACE("(%p)\n", _this);
 584   MSVCRT_free(_this->name);
 585 }
 586
 587 /******************************************************************
 588  *              ?name@type_info@@QBEPBDXZ (MSVCRT.@)
 589  */
 590 DEFINE_THISCALL_WRAPPER(MSVCRT_type_info_name,4)
 591 const char * __thiscall MSVCRT_type_info_name(type_info * _this)
 592 {
 593   if (!_this->name)
 594   {
 595     /* Create and set the demangled name */
 596     /* Note: mangled name in type_info struct always starts with a '.', while
 597      * it isn't valid for mangled name.
 598      * Is this '.' really part of the mangled name, or has it some other meaning ?
 599      */
 600     char* name = __unDName(0, _this->mangled + 1, 0,
 601                            MSVCRT_malloc, MSVCRT_free, UNDNAME_NO_ARGUMENTS | UNDNAME_32_BIT_DECODE);
 602     if (name)
 603     {
 604       unsigned int len = strlen(name);
 605
 606       /* It seems _unDName may leave blanks at the end of the demangled name */
 607       while (len && name[--len] == ' ')
 608         name[len] = '\0';
 609
 610       if (InterlockedCompareExchangePointer((void**)&_this->name, name, NULL))
 611       {
 612         /* Another thread set this member since we checked above - use it */
 613         MSVCRT_free(name);
 614       }
 615     }
 616   }
 617   TRACE("(%p) returning %s\n", _this, _this->name);
 618   return _this->name;
 619 }
 620
 621 /******************************************************************
 622  *              ?raw_name@type_info@@QBEPBDXZ (MSVCRT.@)
 623  */
 624 DEFINE_THISCALL_WRAPPER(MSVCRT_type_info_raw_name,4)
 625 const char * __thiscall MSVCRT_type_info_raw_name(type_info * _this)
 626 {
 627   TRACE("(%p) returning %s\n", _this, _this->mangled);
 628   return _this->mangled;
 629 }
 630
 631 /* Unexported */
 632 DEFINE_THISCALL_WRAPPER(MSVCRT_type_info_vector_dtor,8)
 633 void * __thiscall MSVCRT_type_info_vector_dtor(type_info * _this, unsigned int flags)
 634 {
 635     TRACE("(%p %x)\n", _this, flags);
 636     if (flags & 2)
 637     {
 638         /* we have an array, with the number of elements stored before the first object */
 639         INT_PTR i, *ptr = (INT_PTR *)_this - 1;
 640
 641         for (i = *ptr - 1; i >= 0; i--) MSVCRT_type_info_dtor(_this + i);
 642         MSVCRT_operator_delete(ptr);
 643     }
 644     else
 645     {
 646         MSVCRT_type_info_dtor(_this);
 647         if (flags & 1) MSVCRT_operator_delete(_this);
 648     }
 649     return _this;
 650 }
 651
 652 #ifndef __GNUC__
 653 void __asm_dummy_vtables(void) {
 654 #endif
 655
 656 __ASM_VTABLE(type_info,
 657         VTABLE_ADD_FUNC(MSVCRT_type_info_vector_dtor));
 658 __ASM_VTABLE(exception,
 659         VTABLE_ADD_FUNC(MSVCRT_exception_vector_dtor)
 660         VTABLE_ADD_FUNC(MSVCRT_what_exception));
 661 #if _MSVCR_VER >= 80
 662 __ASM_VTABLE(exception_old,
 663         VTABLE_ADD_FUNC(MSVCRT_exception_vector_dtor)
 664         VTABLE_ADD_FUNC(MSVCRT_what_exception));
 665 #endif
 666 __ASM_VTABLE(bad_typeid,
 667         VTABLE_ADD_FUNC(MSVCRT_bad_typeid_vector_dtor)
 668         VTABLE_ADD_FUNC(MSVCRT_what_exception));
 669 __ASM_VTABLE(bad_cast,
 670         VTABLE_ADD_FUNC(MSVCRT_bad_cast_vector_dtor)
 671         VTABLE_ADD_FUNC(MSVCRT_what_exception));
 672 __ASM_VTABLE(__non_rtti_object,
 673         VTABLE_ADD_FUNC(MSVCRT___non_rtti_object_vector_dtor)
 674         VTABLE_ADD_FUNC(MSVCRT_what_exception));
 675
 676 #ifndef __GNUC__
 677 }
 678 #endif
 679
 680 DEFINE_RTTI_DATA0( type_info, 0, ".?AVtype_info@@" )
 681 #if _MSVCR_VER >= 80
 682 DEFINE_RTTI_DATA0( exception, 0, ".?AVexception@std@@" )
 683 DEFINE_RTTI_DATA0( exception_old, 0, ".?AVexception@@" )
 684 DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@std@@" )
 685 DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@std@@" )
 686 DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@std@@" )
 687 #else
 688 DEFINE_RTTI_DATA0( exception, 0, ".?AVexception@@" )
 689 DEFINE_RTTI_DATA1( bad_typeid, 0, &exception_rtti_base_descriptor, ".?AVbad_typeid@@" )
 690 DEFINE_RTTI_DATA1( bad_cast, 0, &exception_rtti_base_descriptor, ".?AVbad_cast@@" )
 691 DEFINE_RTTI_DATA2( __non_rtti_object, 0, &bad_typeid_rtti_base_descriptor, &exception_rtti_base_descriptor, ".?AV__non_rtti_object@@" )
 692 #endif
 693
 694 DEFINE_EXCEPTION_TYPE_INFO( exception, 0, NULL, NULL )
 695 DEFINE_EXCEPTION_TYPE_INFO( bad_typeid, 1, &exception_cxx_type_info, NULL )
 696 DEFINE_EXCEPTION_TYPE_INFO( bad_cast, 1, &exception_cxx_type_info, NULL )
 697 DEFINE_EXCEPTION_TYPE_INFO( __non_rtti_object, 2, &bad_typeid_cxx_type_info, &exception_cxx_type_info )
 698
 699 void msvcrt_init_exception(void *base)
 700 {
 701 #ifdef __x86_64__
 702     init_type_info_rtti(base);
 703     init_exception_rtti(base);
 704 #if _MSVCR_VER >= 80
 705     init_exception_old_rtti(base);
 706 #endif
 707     init_bad_typeid_rtti(base);
 708     init_bad_cast_rtti(base);
 709     init___non_rtti_object_rtti(base);
 710
 711     init_exception_cxx(base);
 712     init_bad_typeid_cxx(base);
 713     init_bad_cast_cxx(base);
 714     init___non_rtti_object_cxx(base);
 715 #endif
 716 }
 717
 718
 719 /******************************************************************
 720  *              ?set_terminate@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
 721  *
 722  * Install a handler to be called when terminate() is called.
 723  *
 724  * PARAMS
 725  *  func [I] Handler function to install
 726  *
 727  * RETURNS
 728  *  The previously installed handler function, if any.
 729  */
 730 MSVCRT_terminate_function CDECL MSVCRT_set_terminate(MSVCRT_terminate_function func)
 731 {
 732     thread_data_t *data = msvcrt_get_thread_data();
 733     MSVCRT_terminate_function previous = data->terminate_handler;
 734     TRACE("(%p) returning %p\n",func,previous);
 735     data->terminate_handler = func;
 736     return previous;
 737 }
 738
 739 /******************************************************************
 740  *              _get_terminate (MSVCRT.@)
 741  */
 742 MSVCRT_terminate_function CDECL MSVCRT__get_terminate(void)
 743 {
 744     thread_data_t *data = msvcrt_get_thread_data();
 745     TRACE("returning %p\n", data->terminate_handler);
 746     return data->terminate_handler;
 747 }
 748
 749 /******************************************************************
 750  *              ?set_unexpected@@YAP6AXXZP6AXXZ@Z (MSVCRT.@)
 751  *
 752  * Install a handler to be called when unexpected() is called.
 753  *
 754  * PARAMS
 755  *  func [I] Handler function to install
 756  *
 757  * RETURNS
 758  *  The previously installed handler function, if any.
 759  */
 760 MSVCRT_unexpected_function CDECL MSVCRT_set_unexpected(MSVCRT_unexpected_function func)
 761 {
 762     thread_data_t *data = msvcrt_get_thread_data();
 763     MSVCRT_unexpected_function previous = data->unexpected_handler;
 764     TRACE("(%p) returning %p\n",func,previous);
 765     data->unexpected_handler = func;
 766     return previous;
 767 }
 768
 769 /******************************************************************
 770  *              _get_unexpected (MSVCRT.@)
 771  */
 772 MSVCRT_unexpected_function CDECL MSVCRT__get_unexpected(void)
 773 {
 774     thread_data_t *data = msvcrt_get_thread_data();
 775     TRACE("returning %p\n", data->unexpected_handler);
 776     return data->unexpected_handler;
 777 }
 778
 779 /******************************************************************
 780  *              ?_set_se_translator@@YAP6AXIPAU_EXCEPTION_POINTERS@@@ZP6AXI0@Z@Z  (MSVCRT.@)
 781  */
 782 MSVCRT__se_translator_function CDECL MSVCRT__set_se_translator(MSVCRT__se_translator_function func)
 783 {
 784     thread_data_t *data = msvcrt_get_thread_data();
 785     MSVCRT__se_translator_function previous = data->se_translator;
 786     TRACE("(%p) returning %p\n",func,previous);
 787     data->se_translator = func;
 788     return previous;
 789 }
 790
 791 /******************************************************************
 792  *              ?terminate@@YAXXZ (MSVCRT.@)
 793  *
 794  * Default handler for an unhandled exception.
 795  *
 796  * PARAMS
 797  *  None.
 798  *
 799  * RETURNS
 800  *  This function does not return. Either control resumes from any
 801  *  handler installed by calling set_terminate(), or (by default) abort()
 802  *  is called.
 803  */
 804 void CDECL MSVCRT_terminate(void)
 805 {
 806     thread_data_t *data = msvcrt_get_thread_data();
 807     if (data->terminate_handler) data->terminate_handler();
 808     MSVCRT_abort();
 809 }
 810
 811 /******************************************************************
 812  *              ?unexpected@@YAXXZ (MSVCRT.@)
 813  */
 814 void CDECL MSVCRT_unexpected(void)
 815 {
 816     thread_data_t *data = msvcrt_get_thread_data();
 817     if (data->unexpected_handler) data->unexpected_handler();
 818     MSVCRT_terminate();
 819 }
 820
 821
 822 /******************************************************************
 823  *              __RTtypeid (MSVCRT.@)
 824  *
 825  * Retrieve the Run Time Type Information (RTTI) for a C++ object.
 826  *
 827  * PARAMS
 828  *  cppobj [I] C++ object to get type information for.
 829  *
 830  * RETURNS
 831  *  Success: A type_info object describing cppobj.
 832  *  Failure: If the object to be cast has no RTTI, a __non_rtti_object
 833  *           exception is thrown. If cppobj is NULL, a bad_typeid exception
 834  *           is thrown. In either case, this function does not return.
 835  *
 836  * NOTES
 837  *  This function is usually called by compiler generated code as a result
 838  *  of using one of the C++ dynamic cast statements.
 839  */
 840 #ifndef __x86_64__
 841 const type_info* CDECL MSVCRT___RTtypeid(void *cppobj)
 842 {
 843     const type_info *ret;
 844
 845     if (!cppobj)
 846     {
 847         bad_typeid e;
 848         MSVCRT_bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
 849         _CxxThrowException( &e, &bad_typeid_exception_type );
 850         return NULL;
 851     }
 852
 853     __TRY
 854     {
 855         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 856         ret = obj_locator->type_descriptor;
 857     }
 858     __EXCEPT_PAGE_FAULT
 859     {
 860         __non_rtti_object e;
 861         MSVCRT___non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
 862         _CxxThrowException( &e, &bad_typeid_exception_type );
 863         return NULL;
 864     }
 865     __ENDTRY
 866     return ret;
 867 }
 868
 869 #else
 870
 871 const type_info* CDECL MSVCRT___RTtypeid(void *cppobj)
 872 {
 873     const type_info *ret;
 874
 875     if (!cppobj)
 876     {
 877         bad_typeid e;
 878         MSVCRT_bad_typeid_ctor( &e, "Attempted a typeid of NULL pointer!" );
 879         _CxxThrowException( &e, &bad_typeid_exception_type );
 880         return NULL;
 881     }
 882
 883     __TRY
 884     {
 885         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 886         char *base;
 887
 888         if(obj_locator->signature == 0)
 889             base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
 890         else
 891             base = (char*)obj_locator - obj_locator->object_locator;
 892
 893         ret = (type_info*)(base + obj_locator->type_descriptor);
 894     }
 895     __EXCEPT_PAGE_FAULT
 896     {
 897         __non_rtti_object e;
 898         MSVCRT___non_rtti_object_ctor( &e, "Bad read pointer - no RTTI data!" );
 899         _CxxThrowException( &e, &bad_typeid_exception_type );
 900         return NULL;
 901     }
 902     __ENDTRY
 903     return ret;
 904 }
 905 #endif
 906
 907 /******************************************************************
 908  *              __RTDynamicCast (MSVCRT.@)
 909  *
 910  * Dynamically cast a C++ object to one of its base classes.
 911  *
 912  * PARAMS
 913  *  cppobj   [I] Any C++ object to cast
 914  *  unknown  [I] Reserved, set to 0
 915  *  src      [I] type_info object describing cppobj
 916  *  dst      [I] type_info object describing the base class to cast to
 917  *  do_throw [I] TRUE = throw an exception if the cast fails, FALSE = don't
 918  *
 919  * RETURNS
 920  *  Success: The address of cppobj, cast to the object described by dst.
 921  *  Failure: NULL, If the object to be cast has no RTTI, or dst is not a
 922  *           valid cast for cppobj. If do_throw is TRUE, a bad_cast exception
 923  *           is thrown and this function does not return.
 924  *
 925  * NOTES
 926  *  This function is usually called by compiler generated code as a result
 927  *  of using one of the C++ dynamic cast statements.
 928  */
 929 #ifndef __x86_64__
 930 void* CDECL MSVCRT___RTDynamicCast(void *cppobj, int unknown,
 931                                    type_info *src, type_info *dst,
 932                                    int do_throw)
 933 {
 934     void *ret;
 935
 936     if (!cppobj) return NULL;
 937
 938     TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
 939           cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
 940
 941     /* To cast an object at runtime:
 942      * 1.Find out the true type of the object from the typeinfo at vtable[-1]
 943      * 2.Search for the destination type in the class hierarchy
 944      * 3.If destination type is found, return base object address + dest offset
 945      *   Otherwise, fail the cast
 946      *
 947      * FIXME: the unknown parameter doesn't seem to be used for anything
 948      */
 949     __TRY
 950     {
 951         int i;
 952         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
 953         const rtti_object_hierarchy *obj_bases = obj_locator->type_hierarchy;
 954         const rtti_base_descriptor * const* base_desc = obj_bases->base_classes->bases;
 955
 956         if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
 957
 958         ret = NULL;
 959         for (i = 0; i < obj_bases->array_len; i++)
 960         {
 961             const type_info *typ = base_desc[i]->type_descriptor;
 962
 963             if (!strcmp(typ->mangled, dst->mangled))
 964             {
 965                 /* compute the correct this pointer for that base class */
 966                 void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
 967                 ret = get_this_pointer( &base_desc[i]->offsets, this_ptr );
 968                 break;
 969             }
 970         }
 971         /* VC++ sets do_throw to 1 when the result of a dynamic_cast is assigned
 972          * to a reference, since references cannot be NULL.
 973          */
 974         if (!ret && do_throw)
 975         {
 976             const char *msg = "Bad dynamic_cast!";
 977             bad_cast e;
 978             MSVCRT_bad_cast_ctor( &e, &msg );
 979             _CxxThrowException( &e, &bad_cast_exception_type );
 980         }
 981     }
 982     __EXCEPT_PAGE_FAULT
 983     {
 984         __non_rtti_object e;
 985         MSVCRT___non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
 986         _CxxThrowException( &e, &bad_typeid_exception_type );
 987         return NULL;
 988     }
 989     __ENDTRY
 990     return ret;
 991 }
 992
 993 #else
 994
 995 void* CDECL MSVCRT___RTDynamicCast(void *cppobj, int unknown,
 996         type_info *src, type_info *dst,
 997         int do_throw)
 998 {
 999     void *ret;
1000
1001     if (!cppobj) return NULL;
1002
1003     TRACE("obj: %p unknown: %d src: %p %s dst: %p %s do_throw: %d)\n",
1004             cppobj, unknown, src, dbgstr_type_info(src), dst, dbgstr_type_info(dst), do_throw);
1005
1006     __TRY
1007     {
1008         int i;
1009         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
1010         const rtti_object_hierarchy *obj_bases;
1011         const rtti_base_array *base_array;
1012         char *base;
1013
1014         if (TRACE_ON(msvcrt)) dump_obj_locator(obj_locator);
1015
1016         if(obj_locator->signature == 0)
1017             base = RtlPcToFileHeader((void*)obj_locator, (void**)&base);
1018         else
1019             base = (char*)obj_locator - obj_locator->object_locator;
1020
1021         obj_bases = (const rtti_object_hierarchy*)(base + obj_locator->type_hierarchy);
1022         base_array = (const rtti_base_array*)(base + obj_bases->base_classes);
1023
1024         ret = NULL;
1025         for (i = 0; i < obj_bases->array_len; i++)
1026         {
1027             const rtti_base_descriptor *base_desc = (const rtti_base_descriptor*)(base + base_array->bases[i]);
1028             const type_info *typ = (const type_info*)(base + base_desc->type_descriptor);
1029
1030             if (!strcmp(typ->mangled, dst->mangled))
1031             {
1032                 void *this_ptr = (char *)cppobj - obj_locator->base_class_offset;
1033                 ret = get_this_pointer( &base_desc->offsets, this_ptr );
1034                 break;
1035             }
1036         }
1037         if (!ret && do_throw)
1038         {
1039             const char *msg = "Bad dynamic_cast!";
1040             bad_cast e;
1041             MSVCRT_bad_cast_ctor( &e, &msg );
1042             _CxxThrowException( &e, &bad_cast_exception_type );
1043         }
1044     }
1045     __EXCEPT_PAGE_FAULT
1046     {
1047         __non_rtti_object e;
1048         MSVCRT___non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
1049         _CxxThrowException( &e, &bad_typeid_exception_type );
1050         return NULL;
1051     }
1052     __ENDTRY
1053     return ret;
1054 }
1055 #endif
1056
1057
1058 /******************************************************************
1059  *              __RTCastToVoid (MSVCRT.@)
1060  *
1061  * Dynamically cast a C++ object to a void*.
1062  *
1063  * PARAMS
1064  *  cppobj [I] The C++ object to cast
1065  *
1066  * RETURNS
1067  *  Success: The base address of the object as a void*.
1068  *  Failure: NULL, if cppobj is NULL or has no RTTI.
1069  *
1070  * NOTES
1071  *  This function is usually called by compiler generated code as a result
1072  *  of using one of the C++ dynamic cast statements.
1073  */
1074 void* CDECL MSVCRT___RTCastToVoid(void *cppobj)
1075 {
1076     void *ret;
1077
1078     if (!cppobj) return NULL;
1079
1080     __TRY
1081     {
1082         const rtti_object_locator *obj_locator = get_obj_locator( cppobj );
1083         ret = (char *)cppobj - obj_locator->base_class_offset;
1084     }
1085     __EXCEPT_PAGE_FAULT
1086     {
1087         __non_rtti_object e;
1088         MSVCRT___non_rtti_object_ctor( &e, "Access violation - no RTTI data!" );
1089         _CxxThrowException( &e, &bad_typeid_exception_type );
1090         return NULL;
1091     }
1092     __ENDTRY
1093     return ret;
1094 }
1095
1096
1097 /*********************************************************************
1098  *              _CxxThrowException (MSVCRT.@)
1099  */
1100 void WINAPI _CxxThrowException( exception *object, const cxx_exception_type *type )
1101 {
1102     ULONG_PTR args[3];
1103
1104     args[0] = CXX_FRAME_MAGIC_VC6;
1105     args[1] = (ULONG_PTR)object;
1106     args[2] = (ULONG_PTR)type;
1107     RaiseException( CXX_EXCEPTION, EH_NONCONTINUABLE, 3, args );
1108 }
1109
1110 /*********************************************************************
1111  * ?_is_exception_typeof@@YAHABVtype_info@@PAU_EXCEPTION_POINTERS@@@Z
1112  * ?_is_exception_typeof@@YAHAEBVtype_info@@PEAU_EXCEPTION_POINTERS@@@Z
1113  */
1114 #ifndef __x86_64__
1115 int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
1116 {
1117     int ret = -1;
1118
1119     TRACE("(%p %p)\n", ti, ep);
1120
1121     __TRY
1122     {
1123         EXCEPTION_RECORD *rec = ep->ExceptionRecord;
1124
1125         if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==3 &&
1126                 (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
1127                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
1128                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
1129         {
1130             const cxx_type_info_table *tit = ((cxx_exception_type*)rec->ExceptionInformation[2])->type_info_table;
1131             int i;
1132
1133             for (i=0; i<tit->count; i++) {
1134                 if (ti==tit->info[i]->type_info || !strcmp(ti->mangled, tit->info[i]->type_info->mangled))
1135                 {
1136                     ret = 1;
1137                     break;
1138                 }
1139             }
1140
1141             if (i == tit->count)
1142                 ret = 0;
1143         }
1144     }
1145     __EXCEPT_PAGE_FAULT
1146     __ENDTRY
1147
1148     if(ret == -1)
1149         MSVCRT_terminate();
1150     return ret;
1151 }
1152 #else
1153 int __cdecl _is_exception_typeof(const type_info *ti, EXCEPTION_POINTERS *ep)
1154 {
1155     int ret = -1;
1156
1157     TRACE("(%p %p)\n", ti, ep);
1158
1159     __TRY
1160     {
1161         EXCEPTION_RECORD *rec = ep->ExceptionRecord;
1162
1163         if (rec->ExceptionCode==CXX_EXCEPTION && rec->NumberParameters==4 &&
1164                 (rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC6 ||
1165                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC7 ||
1166                  rec->ExceptionInformation[0]==CXX_FRAME_MAGIC_VC8))
1167         {
1168             const cxx_exception_type *et = (cxx_exception_type*)rec->ExceptionInformation[2];
1169             const cxx_type_info_table *tit = (const cxx_type_info_table*)(rec->ExceptionInformation[3]+et->type_info_table);
1170             int i;
1171
1172             for (i=0; i<tit->count; i++) {
1173                 const cxx_type_info *cti = (const cxx_type_info*)(rec->ExceptionInformation[3]+tit->info[i]);
1174                 const type_info *except_ti = (const type_info*)(rec->ExceptionInformation[3]+cti->type_info);
1175                 if (ti==except_ti || !strcmp(ti->mangled, except_ti->mangled))
1176                 {
1177                     ret = 1;
1178                     break;
1179                 }
1180             }
1181
1182             if (i == tit->count)
1183                 ret = 0;
1184         }
1185     }
1186     __EXCEPT_PAGE_FAULT
1187     __ENDTRY
1188
1189     if(ret == -1)
1190         MSVCRT_terminate();
1191     return ret;
1192 }
1193 #endif
1194
1195 /*********************************************************************
1196  * __clean_type_info_names_internal (MSVCR100.@)
1197  */
1198 void CDECL __clean_type_info_names_internal(void *p)
1199 {
1200     FIXME("(%p) stub\n", p);
1201 }
1202
1203 /*********************************************************************
1204  * ?_name_internal_method@type_info@@QBEPBDPAU__type_info_node@@@Z (MSVCR100.@)
1205  */
1206 DEFINE_THISCALL_WRAPPER(type_info_name_internal_method,8)
1207 const char * __thiscall type_info_name_internal_method(type_info * _this, struct __type_info_node *node)
1208 {
1209     static int once;
1210     if (node && !once++) FIXME("type_info_node parameter ignored\n");
1211
1212     return MSVCRT_type_info_name(_this);
1213 }
1214
1215 /* std::exception_ptr class helpers */
1216 typedef struct
1217 {
1218     EXCEPTION_RECORD *rec;
1219     int *ref; /* not binary compatible with native msvcr100 */
1220 } exception_ptr;
1221
1222 /*********************************************************************
1223  * ?__ExceptionPtrCreate@@YAXPAX@Z
1224  * ?__ExceptionPtrCreate@@YAXPEAX@Z
1225  */
1226 void __cdecl __ExceptionPtrCreate(exception_ptr *ep)
1227 {
1228     TRACE("(%p)\n", ep);
1229
1230     ep->rec = NULL;
1231     ep->ref = NULL;
1232 }
1233
1234 #ifdef __i386__
1235 static inline void call_dtor(const cxx_exception_type *type, void *func, void *object)
1236 {
1237     __asm__ __volatile__("call *%0" : : "m" (func), "c" (object) : "eax", "edx", "memory");
1238 }
1239 #elif __x86_64__
1240 static inline void call_dtor(const cxx_exception_type *type, unsigned int dtor, void *object)
1241 {
1242     char *base = RtlPcToFileHeader((void*)type, (void**)&base);
1243     void (__cdecl *func)(void*) = (void*)(base + dtor);
1244     func(object);
1245 }
1246 #else
1247 #define call_dtor(type, func, object) ((void (__cdecl*)(void*))(func))(object)
1248 #endif
1249
1250 /*********************************************************************
1251  * ?__ExceptionPtrDestroy@@YAXPAX@Z
1252  * ?__ExceptionPtrDestroy@@YAXPEAX@Z
1253  */
1254 void __cdecl __ExceptionPtrDestroy(exception_ptr *ep)
1255 {
1256     TRACE("(%p)\n", ep);
1257
1258     if (!ep->rec)
1259         return;
1260
1261     if (!InterlockedDecrement(ep->ref))
1262     {
1263         if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1264         {
1265             const cxx_exception_type *type = (void*)ep->rec->ExceptionInformation[2];
1266             void *obj = (void*)ep->rec->ExceptionInformation[1];
1267
1268             if (type && type->destructor) call_dtor(type, type->destructor, obj);
1269             HeapFree(GetProcessHeap(), 0, obj);
1270         }
1271
1272         HeapFree(GetProcessHeap(), 0, ep->rec);
1273         HeapFree(GetProcessHeap(), 0, ep->ref);
1274     }
1275 }
1276
1277 /*********************************************************************
1278  * ?__ExceptionPtrCopy@@YAXPAXPBX@Z
1279  * ?__ExceptionPtrCopy@@YAXPEAXPEBX@Z
1280  */
1281 void __cdecl __ExceptionPtrCopy(exception_ptr *ep, const exception_ptr *copy)
1282 {
1283     TRACE("(%p %p)\n", ep, copy);
1284
1285     /* don't destroy object stored in ep */
1286     *ep = *copy;
1287     if (ep->ref)
1288         InterlockedIncrement(copy->ref);
1289 }
1290
1291 /*********************************************************************
1292  * ?__ExceptionPtrRethrow@@YAXPBX@Z
1293  * ?__ExceptionPtrRethrow@@YAXPEBX@Z
1294  */
1295 void __cdecl __ExceptionPtrRethrow(const exception_ptr *ep)
1296 {
1297     TRACE("(%p)\n", ep);
1298
1299     if (!ep->rec)
1300     {
1301         static const char *exception_msg = "bad exception";
1302         exception e;
1303
1304         MSVCRT_exception_ctor(&e, &exception_msg);
1305         _CxxThrowException(&e, &exception_exception_type);
1306         return;
1307     }
1308
1309     RaiseException(ep->rec->ExceptionCode, ep->rec->ExceptionFlags & (~EH_UNWINDING),
1310             ep->rec->NumberParameters, ep->rec->ExceptionInformation);
1311 }
1312
1313 #ifdef __i386__
1314 static inline void call_copy_ctor( void *func, void *this, void *src, int has_vbase )
1315 {
1316     TRACE( "calling copy ctor %p object %p src %p\n", func, this, src );
1317     if (has_vbase)
1318         /* in that case copy ctor takes an extra bool indicating whether to copy the base class */
1319         __asm__ __volatile__("pushl $1; pushl %2; call *%0"
1320                              : : "m" (func), "c" (this), "m" (src) : "eax", "edx", "memory" );
1321     else
1322         __asm__ __volatile__("pushl %2; call *%0"
1323                              : : "m" (func), "c" (this), "m" (src) : "eax", "edx", "memory" );
1324 }
1325 #else
1326 static inline void call_copy_ctor( void *func, void *this, void *src, int has_vbase )
1327 {
1328     TRACE( "calling copy ctor %p object %p src %p\n", func, this, src );
1329     if (has_vbase)
1330         ((void (__cdecl*)(void*, void*, BOOL))func)(this, src, 1);
1331     else
1332         ((void (__cdecl*)(void*, void*))func)(this, src);
1333 }
1334 #endif
1335
1336 /*********************************************************************
1337  * ?__ExceptionPtrCurrentException@@YAXPAX@Z
1338  * ?__ExceptionPtrCurrentException@@YAXPEAX@Z
1339  */
1340 #ifndef __x86_64__
1341 void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
1342 {
1343     EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
1344
1345     TRACE("(%p)\n", ep);
1346
1347     if (!rec)
1348     {
1349         ep->rec = NULL;
1350         ep->ref = NULL;
1351         return;
1352     }
1353
1354     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1355     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1356
1357     *ep->rec = *rec;
1358     *ep->ref = 1;
1359
1360     if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1361     {
1362         const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
1363         const cxx_type_info *ti;
1364         void **data, *obj;
1365
1366         ti = et->type_info_table->info[0];
1367         data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1368
1369         obj = (void*)ep->rec->ExceptionInformation[1];
1370         if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1371         {
1372             memcpy(data, obj, ti->size);
1373             if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1374         }
1375         else if (ti->copy_ctor)
1376         {
1377             call_copy_ctor(ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
1378                     ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1379         }
1380         else
1381             memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
1382         ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1383     }
1384     return;
1385 }
1386 #else
1387 void __cdecl __ExceptionPtrCurrentException(exception_ptr *ep)
1388 {
1389     EXCEPTION_RECORD *rec = msvcrt_get_thread_data()->exc_record;
1390
1391     TRACE("(%p)\n", ep);
1392
1393     if (!rec)
1394     {
1395         ep->rec = NULL;
1396         ep->ref = NULL;
1397         return;
1398     }
1399
1400     ep->rec = HeapAlloc(GetProcessHeap(), 0, sizeof(EXCEPTION_RECORD));
1401     ep->ref = HeapAlloc(GetProcessHeap(), 0, sizeof(int));
1402
1403     *ep->rec = *rec;
1404     *ep->ref = 1;
1405
1406     if (ep->rec->ExceptionCode == CXX_EXCEPTION)
1407     {
1408         const cxx_exception_type *et = (void*)ep->rec->ExceptionInformation[2];
1409         const cxx_type_info *ti;
1410         void **data, *obj;
1411         char *base = RtlPcToFileHeader((void*)et, (void**)&base);
1412
1413         ti = (const cxx_type_info*)(base + ((const cxx_type_info_table*)(base + et->type_info_table))->info[0]);
1414         data = HeapAlloc(GetProcessHeap(), 0, ti->size);
1415
1416         obj = (void*)ep->rec->ExceptionInformation[1];
1417         if (ti->flags & CLASS_IS_SIMPLE_TYPE)
1418         {
1419             memcpy(data, obj, ti->size);
1420             if (ti->size == sizeof(void *)) *data = get_this_pointer(&ti->offsets, *data);
1421         }
1422         else if (ti->copy_ctor)
1423         {
1424             call_copy_ctor(base + ti->copy_ctor, data, get_this_pointer(&ti->offsets, obj),
1425                     ti->flags & CLASS_HAS_VIRTUAL_BASE_CLASS);
1426         }
1427         else
1428             memcpy(data, get_this_pointer(&ti->offsets, obj), ti->size);
1429         ep->rec->ExceptionInformation[1] = (ULONG_PTR)data;
1430     }
1431     return;
1432 }
1433 #endif
1434
1435 void* __cdecl __AdjustPointer(void *obj, const this_ptr_offsets *off)
1436 {
1437     return get_this_pointer(off, obj);
1438 }