git.oblomov.eu Git - wine/blob - relay32/relay386.c

   1 /*
   2  * 386-specific Win32 relay functions
   3  *
   4  * Copyright 1997 Alexandre Julliard
   5  */
   6
   7
   8 #include <assert.h>
   9 #include <string.h>
  10 #include "winnt.h"
  11 #include "builtin32.h"
  12 #include "selectors.h"
  13 #include "stackframe.h"
  14 #include "syslevel.h"
  15 #include "debugstr.h"
  16 #include "main.h"
  17 #include "debugtools.h"
  18
  19 DEFAULT_DEBUG_CHANNEL(relay)
  20
  21 char **debug_relay_excludelist = NULL, **debug_relay_includelist = NULL;
  22
  23 #ifdef __i386__
  24 /***********************************************************************
  25  *           RELAY_ShowDebugmsgRelay
  26  *
  27  * Simple function to decide if a particular debugging message is
  28  * wanted.  Called from RELAY_CallFrom32 and from in if1632/relay.c
  29  */
  30 int RELAY_ShowDebugmsgRelay(const char *func) {
  31
  32   if(debug_relay_excludelist || debug_relay_includelist) {
  33     const char *term = strchr(func, ':');
  34     char **listitem;
  35     int len, len2, itemlen, show;
  36
  37     if(debug_relay_excludelist) {
  38       show = 1;
  39       listitem = debug_relay_excludelist;
  40     } else {
  41       show = 0;
  42       listitem = debug_relay_includelist;
  43     }
  44     assert(term);
  45     assert(strlen(term) > 2);
  46     len = term - func;
  47     len2 = strchr(func, '.') - func;
  48     assert(len2 && len2 > 0 && len2 < 64);
  49     term += 2;
  50     for(; *listitem; listitem++) {
  51       itemlen = strlen(*listitem);
  52       if((itemlen == len && !lstrncmpiA(*listitem, func, len)) ||
  53          (itemlen == len2 && !lstrncmpiA(*listitem, func, len2)) ||
  54          !lstrcmpiA(*listitem, term)) {
  55         show = !show;
  56        break;
  57       }
  58     }
  59     return show;
  60   }
  61   return 1;
  62 }
  63
  64
  65 /***********************************************************************
  66  *           RELAY_PrintArgs
  67  */
  68 static inline void RELAY_PrintArgs( int *args, int nb_args, unsigned int typemask )
  69 {
  70     while (nb_args--)
  71     {
  72         if ((typemask & 3) && HIWORD(*args))
  73         {
  74             if (typemask & 2)
  75                 DPRINTF( "%08x L%s", *args, debugstr_w((LPWSTR)*args) );
  76             else
  77                 DPRINTF( "%08x %s", *args, debugstr_a((LPCSTR)*args) );
  78         }
  79         else DPRINTF( "%08x", *args );
  80         if (nb_args) DPRINTF( "," );
  81         args++;
  82         typemask >>= 2;
  83     }
  84 }
  85
  86
  87 /***********************************************************************
  88  *           RELAY_CallFrom32
  89  *
  90  * Stack layout on entry to this function:
  91  *  ...      ...
  92  * (esp+12)  arg2
  93  * (esp+8)   arg1
  94  * (esp+4)   ret_addr
  95  * (esp)     return addr to relay code
  96  */
  97 int RELAY_CallFrom32( int ret_addr, ... )
  98 {
  99     int ret;
 100     char buffer[80];
 101     unsigned int typemask;
 102     FARPROC func;
 103     WORD fs;
 104
 105     int *args = &ret_addr + 1;
 106     /* Relay addr is the return address for this function */
 107     BYTE *relay_addr = (BYTE *)__builtin_return_address(0);
 108     WORD nb_args = *(WORD *)(relay_addr + 1) / sizeof(int);
 109
 110     assert(TRACE_ON(relay));
 111     func = (FARPROC)BUILTIN32_GetEntryPoint( buffer, relay_addr - 5, &typemask );
 112     DPRINTF( "Call %s(", buffer );
 113     RELAY_PrintArgs( args, nb_args, typemask );
 114     GET_FS( fs );
 115     DPRINTF( ") ret=%08x fs=%04x\n", ret_addr, fs );
 116
 117     SYSLEVEL_CheckNotLevel( 2 );
 118
 119     if (*relay_addr == 0xc3) /* cdecl */
 120     {
 121         LRESULT (*cfunc)() = (LRESULT(*)())func;
 122         switch(nb_args)
 123         {
 124         case 0: ret = cfunc(); break;
 125         case 1: ret = cfunc(args[0]); break;
 126         case 2: ret = cfunc(args[0],args[1]); break;
 127         case 3: ret = cfunc(args[0],args[1],args[2]); break;
 128         case 4: ret = cfunc(args[0],args[1],args[2],args[3]); break;
 129         case 5: ret = cfunc(args[0],args[1],args[2],args[3],args[4]); break;
 130         case 6: ret = cfunc(args[0],args[1],args[2],args[3],args[4],
 131                             args[5]); break;
 132         case 7: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 133                             args[6]); break;
 134         case 8: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 135                             args[6],args[7]); break;
 136         case 9: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 137                             args[6],args[7],args[8]); break;
 138         case 10: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 139                              args[6],args[7],args[8],args[9]); break;
 140         case 11: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 141                              args[6],args[7],args[8],args[9],args[10]); break;
 142         case 12: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 143                              args[6],args[7],args[8],args[9],args[10],
 144                              args[11]); break;
 145         case 13: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 146                              args[6],args[7],args[8],args[9],args[10],args[11],
 147                              args[12]); break;
 148         case 14: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 149                              args[6],args[7],args[8],args[9],args[10],args[11],
 150                              args[12],args[13]); break;
 151         case 15: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 152                              args[6],args[7],args[8],args[9],args[10],args[11],
 153                              args[12],args[13],args[14]); break;
 154         case 16: ret = cfunc(args[0],args[1],args[2],args[3],args[4],args[5],
 155                              args[6],args[7],args[8],args[9],args[10],args[11],
 156                              args[12],args[13],args[14],args[15]); break;
 157         default:
 158             ERR( "Unsupported nb of args %d\n", nb_args );
 159             assert(FALSE);
 160         }
 161     }
 162     else  /* stdcall */
 163     {
 164         switch(nb_args)
 165         {
 166         case 0: ret = func(); break;
 167         case 1: ret = func(args[0]); break;
 168         case 2: ret = func(args[0],args[1]); break;
 169         case 3: ret = func(args[0],args[1],args[2]); break;
 170         case 4: ret = func(args[0],args[1],args[2],args[3]); break;
 171         case 5: ret = func(args[0],args[1],args[2],args[3],args[4]); break;
 172         case 6: ret = func(args[0],args[1],args[2],args[3],args[4],
 173                            args[5]); break;
 174         case 7: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 175                            args[6]); break;
 176         case 8: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 177                            args[6],args[7]); break;
 178         case 9: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 179                            args[6],args[7],args[8]); break;
 180         case 10: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 181                             args[6],args[7],args[8],args[9]); break;
 182         case 11: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 183                             args[6],args[7],args[8],args[9],args[10]); break;
 184         case 12: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 185                             args[6],args[7],args[8],args[9],args[10],
 186                             args[11]); break;
 187         case 13: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 188                             args[6],args[7],args[8],args[9],args[10],args[11],
 189                             args[12]); break;
 190         case 14: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 191                             args[6],args[7],args[8],args[9],args[10],args[11],
 192                             args[12],args[13]); break;
 193         case 15: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 194                             args[6],args[7],args[8],args[9],args[10],args[11],
 195                             args[12],args[13],args[14]); break;
 196         case 16: ret = func(args[0],args[1],args[2],args[3],args[4],args[5],
 197                             args[6],args[7],args[8],args[9],args[10],args[11],
 198                             args[12],args[13],args[14],args[15]); break;
 199         default:
 200             ERR( "Unsupported nb of args %d\n", nb_args );
 201             assert(FALSE);
 202         }
 203     }
 204     DPRINTF( "Ret  %s() retval=%08x ret=%08x fs=%04x\n",
 205              buffer, ret, ret_addr, fs );
 206
 207     SYSLEVEL_CheckNotLevel( 2 );
 208
 209     return ret;
 210 }
 211
 212
 213 /***********************************************************************
 214  *           RELAY_CallFrom32Regs
 215  *
 216  * Stack layout (esp is ESP_reg(context), not the current %esp):
 217  *
 218  * ...
 219  * (esp+4) first arg
 220  * (esp)   return addr to caller
 221  * (esp-4) return addr to DEBUG_ENTRY_POINT
 222  * (esp-8) ptr to relay entry code for RELAY_CallFrom32Regs
 223  *  ...    >128 bytes space free to be modified (ensured by the assembly glue)
 224  */
 225
 226 void WINAPI REGS_FUNC(RELAY_CallFrom32Regs)( CONTEXT *context )
 227 {
 228     unsigned int typemask;
 229     char buffer[80];
 230     int* args;
 231     FARPROC func;
 232     BYTE *entry_point;
 233
 234     BYTE *relay_addr = *((BYTE **)ESP_reg(context) - 1);
 235     WORD nb_args = *(WORD *)(relay_addr + 1) / sizeof(int);
 236
 237     /* remove extra stuff from the stack */
 238     EIP_reg(context) = stack32_pop(context);
 239     args = (int *)ESP_reg(context);
 240     ESP_reg(context) += 4 * nb_args;
 241
 242     assert(TRACE_ON(relay));
 243
 244     entry_point = (BYTE *)BUILTIN32_GetEntryPoint( buffer, relay_addr - 5, &typemask );
 245     assert( *entry_point == 0xe8 /* lcall */ );
 246     func = *(FARPROC *)(entry_point + 5);
 247
 248     DPRINTF( "Call %s(", buffer );
 249     RELAY_PrintArgs( args, nb_args, typemask );
 250     DPRINTF( ") ret=%08lx fs=%04lx\n", EIP_reg(context), FS_reg(context) );
 251
 252     DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
 253             EAX_reg(context), EBX_reg(context), ECX_reg(context),
 254             EDX_reg(context), ESI_reg(context), EDI_reg(context) );
 255     DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
 256             EBP_reg(context), ESP_reg(context), DS_reg(context),
 257             ES_reg(context), GS_reg(context), EFL_reg(context) );
 258
 259     SYSLEVEL_CheckNotLevel( 2 );
 260
 261     /* Now call the real function */
 262     switch(nb_args)
 263     {
 264     case 0: func(context); break;
 265     case 1: func(args[0],context); break;
 266     case 2: func(args[0],args[1],context); break;
 267     case 3: func(args[0],args[1],args[2],context); break;
 268     case 4: func(args[0],args[1],args[2],args[3],context); break;
 269     case 5: func(args[0],args[1],args[2],args[3],args[4],context); break;
 270     case 6: func(args[0],args[1],args[2],args[3],args[4],args[5],context); break;
 271     case 7: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],context); break;
 272     case 8: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],context); break;
 273     case 9: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 274                  context); break;
 275     case 10: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 276                   args[9],context); break;
 277     case 11: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 278                   args[9],args[10],context); break;
 279     case 12: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 280                   args[9],args[10],args[11],context); break;
 281     case 13: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 282                   args[9],args[10],args[11],args[12],context); break;
 283     case 14: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 284                   args[9],args[10],args[11],args[12],args[13],context); break;
 285     case 15: func(args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8],
 286                   args[9],args[10],args[11],args[12],args[13],args[14],context); break;
 287     case 16: func(args[0],args[1],args[2],args[3],args[4],args[5], args[6],args[7],args[8],
 288                   args[9],args[10],args[11],args[12],args[13],args[14],args[15],context); break;
 289     default:
 290         ERR( "Unsupported nb of args %d\n", nb_args );
 291         assert(FALSE);
 292     }
 293
 294     DPRINTF( "Ret  %s() retval=%08lx ret=%08lx fs=%04lx\n",
 295              buffer, EAX_reg(context), EIP_reg(context), FS_reg(context) );
 296     DPRINTF(" eax=%08lx ebx=%08lx ecx=%08lx edx=%08lx esi=%08lx edi=%08lx\n",
 297             EAX_reg(context), EBX_reg(context), ECX_reg(context),
 298             EDX_reg(context), ESI_reg(context), EDI_reg(context) );
 299     DPRINTF(" ebp=%08lx esp=%08lx ds=%04lx es=%04lx gs=%04lx flags=%08lx\n",
 300             EBP_reg(context), ESP_reg(context), DS_reg(context),
 301             ES_reg(context), GS_reg(context), EFL_reg(context) );
 302
 303     SYSLEVEL_CheckNotLevel( 2 );
 304 }
 305
 306 #else  /* __i386__ */
 307
 308 void WINAPI REGS_FUNC(RELAY_CallFrom32Regs)( CONTEXT *context ) { }
 309
 310 #endif  /* __i386__ */