dlls/msvcp100/tests/misc.c

   1 /*
   2  * Copyright 2012 Piotr Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdio.h>
  20
  21 #include <windef.h>
  22 #include <winbase.h>
  23 #include "wine/test.h"
  24
  25 struct __Container_proxy;
  26
  27 typedef struct {
  28     struct __Container_proxy *proxy;
  29 } _Container_base12;
  30
  31 typedef struct __Iterator_base12 {
  32     struct __Container_proxy *proxy;
  33     struct __Iterator_base12 *next;
  34 } _Iterator_base12;
  35
  36 typedef struct __Container_proxy {
  37     const _Container_base12 *cont;
  38     _Iterator_base12 *head;
  39 } _Container_proxy;
  40
  41 #undef __thiscall
  42 #ifdef __i386__
  43 #define __thiscall __stdcall
  44 #else
  45 #define __thiscall __cdecl
  46 #endif
  47
  48 static _Container_base12* (__thiscall *p__Container_base12_copy_ctor)(_Container_base12*, _Container_base12*);
  49 static _Container_base12* (__thiscall *p__Container_base12_ctor)(_Container_base12*);
  50 static void (__thiscall *p__Container_base12__Orphan_all)(_Container_base12*);
  51 static void (__thiscall *p__Container_base12_dtor)(_Container_base12*);
  52 static _Iterator_base12** (__thiscall *p__Container_base12__Getpfirst)(_Container_base12*);
  53 static void (__thiscall *p__Container_base12__Swap_all)(_Container_base12*, _Container_base12*);
  54
  55 /* Emulate a __thiscall */
  56 #ifdef __i386__
  57
  58 #include "pshpack1.h"
  59 struct thiscall_thunk
  60 {
  61     BYTE pop_eax;    /* popl  %eax (ret addr) */
  62     BYTE pop_edx;    /* popl  %edx (func) */
  63     BYTE pop_ecx;    /* popl  %ecx (this) */
  64     BYTE push_eax;   /* pushl %eax */
  65     WORD jmp_edx;    /* jmp  *%edx */
  66 };
  67 #include "poppack.h"
  68
  69 static void * (WINAPI *call_thiscall_func1)( void *func, void *this );
  70 static void * (WINAPI *call_thiscall_func2)( void *func, void *this, const void *a );
  71
  72 static void init_thiscall_thunk(void)
  73 {
  74     struct thiscall_thunk *thunk = VirtualAlloc( NULL, sizeof(*thunk),
  75             MEM_COMMIT, PAGE_EXECUTE_READWRITE );
  76     thunk->pop_eax  = 0x58;   /* popl  %eax */
  77     thunk->pop_edx  = 0x5a;   /* popl  %edx */
  78     thunk->pop_ecx  = 0x59;   /* popl  %ecx */
  79     thunk->push_eax = 0x50;   /* pushl %eax */
  80     thunk->jmp_edx  = 0xe2ff; /* jmp  *%edx */
  81     call_thiscall_func1 = (void *)thunk;
  82     call_thiscall_func2 = (void *)thunk;
  83 }
  84
  85 #define call_func1(func,_this) call_thiscall_func1(func,_this)
  86 #define call_func2(func,_this,a) call_thiscall_func2(func,_this,(const void*)a)
  87
  88 #else
  89
  90 #define init_thiscall_thunk()
  91 #define call_func1(func,_this) func(_this)
  92 #define call_func2(func,_this,a) func(_this,a)
  93
  94 #endif /* __i386__ */
  95
  96 static HMODULE msvcp;
  97 #define SETNOFAIL(x,y) x = (void*)GetProcAddress(msvcp,y)
  98 #define SET(x,y) do { SETNOFAIL(x,y); ok(x != NULL, "Export '%s' not found\n", y); } while(0)
  99 static BOOL init(void)
 100 {
 101     msvcp = LoadLibraryA("msvcp100.dll");
 102     if(!msvcp) {
 103         win_skip("msvcp100.dll not installed\n");
 104         return FALSE;
 105     }
 106
 107     if(sizeof(void*) == 8) { /* 64-bit initialization */
 108         SET(p__Container_base12_copy_ctor, "??0_Container_base12@std@@QEAA@AEBU01@@Z");
 109         SET(p__Container_base12_ctor, "??0_Container_base12@std@@QEAA@XZ");
 110         SET(p__Container_base12__Orphan_all, "?_Orphan_all@_Container_base12@std@@QEAAXXZ");
 111         SET(p__Container_base12_dtor, "??1_Container_base12@std@@QEAA@XZ");
 112         SET(p__Container_base12__Getpfirst, "?_Getpfirst@_Container_base12@std@@QEBAPEAPEAU_Iterator_base12@2@XZ");
 113         SET(p__Container_base12__Swap_all, "?_Swap_all@_Container_base12@std@@QEAAXAEAU12@@Z");
 114     }else {
 115 #ifdef __arm__
 116         SET(p__Container_base12_copy_ctor, "??0_Container_base12@std@@QAA@ABU01@@Z");
 117         SET(p__Container_base12_ctor, "??0_Container_base12@std@@QAA@XZ");
 118         SET(p__Container_base12__Orphan_all, "?_Orphan_all@_Container_base12@std@@QAAXXZ");
 119         SET(p__Container_base12_dtor, "??1_Container_base12@std@@QAA@XZ");
 120         SET(p__Container_base12__Getpfirst, "?_Getpfirst@_Container_base12@std@@QBAPAPAU_Iterator_base12@2@XZ");
 121         SET(p__Container_base12__Swap_all, "?_Swap_all@_Container_base12@std@@QAAXAAU12@@Z");
 122 #else
 123         SET(p__Container_base12_copy_ctor, "??0_Container_base12@std@@QAE@ABU01@@Z");
 124         SET(p__Container_base12_ctor, "??0_Container_base12@std@@QAE@XZ");
 125         SET(p__Container_base12__Orphan_all, "?_Orphan_all@_Container_base12@std@@QAEXXZ");
 126         SET(p__Container_base12_dtor, "??1_Container_base12@std@@QAE@XZ");
 127         SET(p__Container_base12__Getpfirst, "?_Getpfirst@_Container_base12@std@@QBEPAPAU_Iterator_base12@2@XZ");
 128         SET(p__Container_base12__Swap_all, "?_Swap_all@_Container_base12@std@@QAEXAAU12@@Z");
 129 #endif /* __arm__ */
 130     }
 131
 132     init_thiscall_thunk();
 133     return TRUE;
 134 }
 135
 136 static void test__Container_base12(void)
 137 {
 138     _Container_base12 c1, c2;
 139     _Iterator_base12 i1, i2, **pi;
 140     _Container_proxy p1, p2;
 141
 142     call_func1(p__Container_base12_ctor, &c1);
 143     ok(c1.proxy == NULL, "c1.proxy != NULL\n");
 144
 145     p1.cont = NULL;
 146     p1.head = NULL;
 147     c1.proxy = &p1;
 148     call_func2(p__Container_base12_copy_ctor, &c2, &c1);
 149     ok(c1.proxy == &p1, "c1.proxy = %p, expected %p\n", c1.proxy, &p1);
 150     ok(c2.proxy == NULL, "c2.proxy != NULL\n");
 151
 152     p1.head = &i1;
 153     i1.proxy = &p1;
 154     i1.next = &i2;
 155     i2.proxy = &p1;
 156     i2.next = NULL;
 157     pi = call_func1(p__Container_base12__Getpfirst, &c1);
 158     ok(pi == &p1.head, "pi = %p, expected %p\n", pi, &p1.head);
 159     pi = call_func1(p__Container_base12__Getpfirst, &c2);
 160     ok(pi == NULL, "pi != NULL\n");
 161
 162     p1.cont = &c1;
 163     call_func1(p__Container_base12_dtor, &c1);
 164     ok(p1.cont == &c1, "p1.cont = %p, expected %p\n", p1.cont, &c1);
 165     ok(p1.head == &i1, "p1.head = %p, expected %p\n", p1.head, &i1);
 166     ok(i1.proxy == &p1, "i1.proxy = %p, expected %p\n", i1.proxy, &p1);
 167     ok(i1.next == &i2, "i1.next = %p, expected %p\n", i1.next, &i2);
 168     ok(i2.proxy == &p1, "i2.proxy = %p, expected %p\n", i2.proxy, &p1);
 169     ok(i2.next == NULL, "i2.next != NULL\n");
 170
 171     call_func1(p__Container_base12__Orphan_all, &c1);
 172     ok(p1.cont == &c1, "p1.cont = %p, expected %p\n", p1.cont, &c1);
 173     ok(p1.head == &i1, "p1.head = %p, expected %p\n", p1.head, &i1);
 174     ok(i1.proxy == &p1, "i1.proxy = %p, expected %p\n", i1.proxy, &p1);
 175     ok(i1.next == &i2, "i1.next = %p, expected %p\n", i1.next, &i2);
 176     ok(i2.proxy == &p1, "i2.proxy = %p, expected %p\n", i2.proxy, &p1);
 177     ok(i2.next == NULL, "i2.next != NULL\n");
 178
 179     c2.proxy = NULL;
 180     call_func2(p__Container_base12__Swap_all, &c1, &c2);
 181     ok(c1.proxy == NULL, "c1.proxy != NULL\n");
 182     ok(c2.proxy == &p1, "c2.proxy = %p, expected %p\n", c2.proxy, &p2);
 183     ok(p1.cont == &c2, "p1.cont = %p, expected %p\n", p1.cont, &c2);
 184
 185     c1.proxy = &p2;
 186     p2.cont = (void*)0xdeadbeef;
 187     p2.head = (void*)0xdeadbeef;
 188     p1.head = &i1;
 189     call_func2(p__Container_base12__Swap_all, &c1, &c2);
 190     ok(c1.proxy == &p1, "c1.proxt = %p, expected %p\n", c1.proxy, &p1);
 191     ok(p1.cont == &c1, "p1.cont = %p, expected %p\n", p1.cont, &c1);
 192     ok(p1.head == &i1, "p1.head = %p, expected %p\n", p1.head, &i1);
 193     ok(c2.proxy == &p2, "c2.proxy = %p, expected %p\n", c2.proxy, &p2);
 194     ok(p2.cont == &c2, "p2.cont = %p, expected %p\n", p2.cont, &c2);
 195     ok(p2.head == (void*)0xdeadbeef, "p2.head = %p, expected 0xdeadbeef\n", p2.head);
 196 }
 197
 198 START_TEST(misc)
 199 {
 200     if(!init())
 201         return;
 202
 203     test__Container_base12();
 204
 205     FreeLibrary(msvcp);
 206 }