msvcp90: Add exception throwing function.

dlls/msvcp90/Makefile.in

@@ -8,6 +8,7 @@ MODCFLAGS = @BUILTINFLAG@
 EXTRAINCL = -I$(TOPSRCDIR)/include/msvcrt
 
 C_SRCS = \
+	exception.c \
 	memory.c \
 	msvcp90_main.c \
 	string.c

dlls/msvcp90/exception.c

+/*
+ * Copyright 2010 Piotr Caban for CodeWeavers
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include "config.h"
+
+#include <stdarg.h>
+
+#include "msvcp90.h"
+
+#include "windef.h"
+#include "winbase.h"
+#include "wine/debug.h"
+WINE_DEFAULT_DEBUG_CHANNEL(msvcp90);
+
+/* dlls/msvcrt/cppexcept.h */
+typedef struct __type_info
+{
+    const vtable_ptr *vtable;
+    char              *name;        /* Unmangled name, allocated lazily */
+    char               mangled[32]; /* Variable length, but we declare it large enough for static RTTI */
+} type_info;
+
+typedef void (*cxx_copy_ctor)(void);
+
+/* offsets for computing the this pointer */
+typedef struct
+{
+    int         this_offset;   /* offset of base class this pointer from start of object */
+    int         vbase_descr;   /* offset of virtual base class descriptor */
+    int         vbase_offset;  /* offset of this pointer offset in virtual base class descriptor */
+} this_ptr_offsets;
+
+/* complete information about a C++ type */
+typedef struct __cxx_type_info
+{
+    UINT             flags;        /* flags (see CLASS_* flags below) */
+    const type_info *type_info;    /* C++ type info */
+    this_ptr_offsets offsets;      /* offsets for computing the this pointer */
+    unsigned int     size;         /* object size */
+    cxx_copy_ctor    copy_ctor;    /* copy constructor */
+} cxx_type_info;
+#define CLASS_IS_SIMPLE_TYPE          1
+#define CLASS_HAS_VIRTUAL_BASE_CLASS  4
+
+/* table of C++ types that apply for a given object */
+typedef struct __cxx_type_info_table
+{
+    UINT                 count;     /* number of types */
+    const cxx_type_info *info[3];   /* variable length, we declare it large enough for static RTTI */
+} cxx_type_info_table;
+
+/* type information for an exception object */
+typedef struct __cxx_exception_type
+{
+    UINT                       flags;            /* TYPE_FLAG flags */
+    void                     (*destructor)(void);/* exception object destructor */
+    void* /*cxx_exc_custom_handler*/ custom_handler;   /* custom handler for this exception */
+    const cxx_type_info_table *type_info_table;  /* list of types for this exception object */
+} cxx_exception_type;
+
+void CDECL _CxxThrowException(exception*,const cxx_exception_type*);
+
+/* exception class data */
+static type_info exception_type_info = {
+    NULL, /* set by set_exception_vtable */
+    NULL,
+    ".?AVexception@std@@"
+};
+
+DEFINE_THISCALL_WRAPPER(MSVCP_exception_ctor, 8)
+exception* __stdcall MSVCP_exception_ctor(exception *this, const char **name)
+{
+    TRACE("(%p %s)\n", this, *name);
+
+    this->vtable = exception_type_info.vtable;
+    if(*name) {
+        unsigned int name_len = strlen(*name) + 1;
+        this->name = malloc(name_len);
+        memcpy(this->name, *name, name_len);
+        this->do_free = TRUE;
+    } else {
+        this->name = NULL;
+        this->do_free = FALSE;
+    }
+    return this;
+}
+
+DEFINE_THISCALL_WRAPPER(MSVCP_exception_copy_ctor,8)
+exception* __stdcall MSVCP_exception_copy_ctor(exception *this, const exception *rhs)
+{
+    TRACE("(%p,%p)\n", this, rhs);
+
+    if(!rhs->do_free) {
+        this->vtable = exception_type_info.vtable;
+        this->name = rhs->name;
+        this->do_free = FALSE;
+    } else
+        MSVCP_exception_ctor(this, (const char**)&rhs->name);
+    TRACE("name = %s\n", this->name);
+    return this;
+}
+
+DEFINE_THISCALL_WRAPPER(MSVCP_exception_dtor,4)
+void __stdcall MSVCP_exception_dtor(exception *this)
+{
+    TRACE("(%p)\n", this);
+    this->vtable = exception_type_info.vtable;
+    if(this->do_free)
+        free(this->name);
+}
+
+static const cxx_type_info exception_cxx_type_info = {
+    0,
+    &exception_type_info,
+    { 0, -1, 0 },
+    sizeof(exception),
+    (cxx_copy_ctor)THISCALL(MSVCP_exception_dtor)
+};
+
+static const cxx_type_info_table exception_cxx_type_table = {
+    1,
+    {
+        &exception_cxx_type_info,
+        NULL,
+        NULL
+    }
+};
+
+static const cxx_exception_type exception_cxx_type = {
+    0,
+    (cxx_copy_ctor)THISCALL(MSVCP_exception_copy_ctor),
+    NULL,
+    &exception_cxx_type_table
+};
+
+void set_exception_vtable(void)
+{
+    HMODULE hmod = GetModuleHandleA("msvcrt.dll");
+    exception_type_info.vtable = (void*)GetProcAddress(hmod, "??_7exception@@6B@");
+}
+
+/* Internal: throws selected exception */
+void throw_exception(exception_type et, const char *str)
+{
+    const char *addr = str;
+
+    switch(et) {
+    case EXCEPTION: {
+        exception e;
+        MSVCP_exception_ctor(&e, &addr);
+        _CxxThrowException(&e, &exception_cxx_type);
+        return;
+    }
+    }
+}

dlls/msvcp90/msvcp90.h

@@ -17,6 +17,7 @@
  */
 
 #include "stdlib.h"
+#include "windef.h"
 
 typedef unsigned char MSVCP_BOOL;
 
@@ -43,3 +44,19 @@ extern void (__cdecl *MSVCRT_operator_delete)(void*);
 #define DEFINE_THISCALL_WRAPPER(func,args) /* nothing */
 
 #endif /* __i386__ */
+
+/* exception object */
+typedef void (*vtable_ptr)(void);
+typedef struct __exception
+{
+    const vtable_ptr *vtable;
+    char             *name;    /* Name of this exception, always a new copy for each object */
+    int               do_free; /* Whether to free 'name' in our dtor */
+} exception;
+
+/* Internal: throws selected exception */
+typedef enum __exception_type {
+    EXCEPTION
+} exception_type;
+void throw_exception(exception_type, const char *);
+void set_exception_vtable(void);

dlls/msvcp90/msvcp90_main.c

@@ -56,6 +56,7 @@ BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
             return FALSE;    /* prefer native version */
         case DLL_PROCESS_ATTACH:
             init_cxx_funcs();
+            set_exception_vtable();
             break;
         case DLL_PROCESS_DETACH:
             break;