/******************************************************************* * BuildPendingEventCheck * * Build a function that checks whether there are any * pending DPMI events. * * Stack layout: * * (sp+12) long eflags * (sp+6) long cs * (sp+2) long ip * (sp) word fs * * On entry to function, fs register points to a valid TEB. * On exit from function, stack will be popped. */ static void BuildPendingEventCheck(void) { /* Function header */ function_header( "DPMI_PendingEventCheck" ); /* Check for pending events. */ output( "\t.byte 0x64\n\ttestl $0xffffffff,(%d)\n", STRUCTOFFSET(TEB,GdiTebBatch) + STRUCTOFFSET(WINE_VM86_TEB_INFO,vm86_pending) ); output( "\tje %s\n", asm_name("DPMI_PendingEventCheck_Cleanup") ); output( "\t.byte 0x64\n\ttestl $0xffffffff,(%d)\n", STRUCTOFFSET(TEB,GdiTebBatch) + STRUCTOFFSET(WINE_VM86_TEB_INFO,dpmi_vif) ); output( "\tje %s\n", asm_name("DPMI_PendingEventCheck_Cleanup") ); /* Process pending events. */ output( "\tsti\n" ); /* Start cleanup. Restore fs register. */ output( "%s\n", asm_globl("DPMI_PendingEventCheck_Cleanup") ); output( "\tpopw %%fs\n" ); /* Return from function. */ output( "%s\n", asm_globl("DPMI_PendingEventCheck_Return") ); output( "\tiret\n" ); output_function_size( "DPMI_PendingEventCheck" ); }
/******************************************************************* * BuildCallFrom16Core * * This routine builds the core routines used in 16->32 thunks: * CallFrom16Word, CallFrom16Long, CallFrom16Register, and CallFrom16Thunk. * * These routines are intended to be called via a far call (with 32-bit * operand size) from 16-bit code. The 16-bit code stub must push %bp, * the 32-bit entry point to be called, and the argument conversion * routine to be used (see stack layout below). * * The core routine completes the STACK16FRAME on the 16-bit stack and * switches to the 32-bit stack. Then, the argument conversion routine * is called; it gets passed the 32-bit entry point and a pointer to the * 16-bit arguments (on the 16-bit stack) as parameters. (You can either * use conversion routines automatically generated by BuildCallFrom16, * or write your own for special purposes.) * * The conversion routine must call the 32-bit entry point, passing it * the converted arguments, and return its return value to the core. * After the conversion routine has returned, the core switches back * to the 16-bit stack, converts the return value to the DX:AX format * (CallFrom16Long), and returns to the 16-bit call stub. All parameters, * including %bp, are popped off the stack. * * The 16-bit call stub now returns to the caller, popping the 16-bit * arguments if necessary (pascal calling convention). * * In the case of a 'register' function, CallFrom16Register fills a * CONTEXT86 structure with the values all registers had at the point * the first instruction of the 16-bit call stub was about to be * executed. A pointer to this CONTEXT86 is passed as third parameter * to the argument conversion routine, which typically passes it on * to the called 32-bit entry point. * * CallFrom16Thunk is a special variant used by the implementation of * the Win95 16->32 thunk functions C16ThkSL and C16ThkSL01 and is * implemented as follows: * On entry, the EBX register is set up to contain a flat pointer to the * 16-bit stack such that EBX+22 points to the first argument. * Then, the entry point is called, while EBP is set up to point * to the return address (on the 32-bit stack). * The called function returns with CX set to the number of bytes * to be popped of the caller's stack. * * Stack layout upon entry to the core routine (STACK16FRAME): * ... ... * (sp+24) word first 16-bit arg * (sp+22) word cs * (sp+20) word ip * (sp+18) word bp * (sp+14) long 32-bit entry point (reused for Win16 mutex recursion count) * (sp+12) word ip of actual entry point (necessary for relay debugging) * (sp+8) long relay (argument conversion) function entry point * (sp+4) long cs of 16-bit entry point * (sp) long ip of 16-bit entry point * * Added on the stack: * (sp-2) word saved gs * (sp-4) word saved fs * (sp-6) word saved es * (sp-8) word saved ds * (sp-12) long saved ebp * (sp-16) long saved ecx * (sp-20) long saved edx * (sp-24) long saved previous stack */ static void BuildCallFrom16Core( FILE *outfile, int reg_func, int thunk, int short_ret ) { /* Function header */ if (thunk) function_header( outfile, "__wine_call_from_16_thunk" ); else if (reg_func) function_header( outfile, "__wine_call_from_16_regs" ); else if (short_ret) function_header( outfile, "__wine_call_from_16_word" ); else function_header( outfile, "__wine_call_from_16_long" ); /* Create STACK16FRAME (except STACK32FRAME link) */ fprintf( outfile, "\tpushw %%gs\n" ); fprintf( outfile, "\tpushw %%fs\n" ); fprintf( outfile, "\tpushw %%es\n" ); fprintf( outfile, "\tpushw %%ds\n" ); fprintf( outfile, "\tpushl %%ebp\n" ); fprintf( outfile, "\tpushl %%ecx\n" ); fprintf( outfile, "\tpushl %%edx\n" ); /* Save original EFlags register */ fprintf( outfile, "\tpushfl\n" ); if ( UsePIC ) { /* Get Global Offset Table into %ecx */ fprintf( outfile, "\tcall 1f\n" ); fprintf( outfile, "1:\tpopl %%ecx\n" ); } if (UsePIC) fprintf( outfile, "\t.byte 0x2e\n\tmovl " PREFIX "CallTo16_DataSelector-1b(%%ecx),%%edx\n" ); else fprintf( outfile, "\t.byte 0x2e\n\tmovl " PREFIX "CallTo16_DataSelector,%%edx\n" ); /* Load 32-bit segment registers */ #ifdef __svr4__ fprintf( outfile, "\tdata16\n"); #endif fprintf( outfile, "\tmovw %%dx, %%ds\n" ); #ifdef __svr4__ fprintf( outfile, "\tdata16\n"); #endif fprintf( outfile, "\tmovw %%dx, %%es\n" ); if ( UsePIC ) fprintf( outfile, "\tmovw " PREFIX "SYSLEVEL_Win16CurrentTeb-1b(%%ecx), %%fs\n" ); else fprintf( outfile, "\tmovw " PREFIX "SYSLEVEL_Win16CurrentTeb, %%fs\n" ); /* Get address of wine_ldt_copy array into %ecx */ if ( UsePIC ) fprintf( outfile, "\tmovl wine_ldt_copy_ptr-1b(%%ecx), %%ecx\n" ); else fprintf( outfile, "\tmovl $" PREFIX "wine_ldt_copy, %%ecx\n" ); /* Translate STACK16FRAME base to flat offset in %edx */ fprintf( outfile, "\tmovw %%ss, %%dx\n" ); fprintf( outfile, "\tandl $0xfff8, %%edx\n" ); fprintf( outfile, "\tshrl $1, %%edx\n" ); fprintf( outfile, "\tmovl (%%ecx,%%edx), %%edx\n" ); fprintf( outfile, "\tmovzwl %%sp, %%ebp\n" ); fprintf( outfile, "\tleal (%%ebp,%%edx), %%edx\n" ); /* Get saved flags into %ecx */ fprintf( outfile, "\tpopl %%ecx\n" ); /* Get the 32-bit stack pointer from the TEB and complete STACK16FRAME */ fprintf( outfile, "\t.byte 0x64\n\tmovl (%d), %%ebp\n", STACKOFFSET ); fprintf( outfile, "\tpushl %%ebp\n" ); /* Switch stacks */ #ifdef __svr4__ fprintf( outfile,"\tdata16\n"); #endif fprintf( outfile, "\t.byte 0x64\n\tmovw %%ss, (%d)\n", STACKOFFSET + 2 ); fprintf( outfile, "\t.byte 0x64\n\tmovw %%sp, (%d)\n", STACKOFFSET ); fprintf( outfile, "\tpushl %%ds\n" ); fprintf( outfile, "\tpopl %%ss\n" ); fprintf( outfile, "\tmovl %%ebp, %%esp\n" ); fprintf( outfile, "\taddl $%d, %%ebp\n", STRUCTOFFSET(STACK32FRAME, ebp) ); /* At this point: STACK16FRAME is completely set up DS, ES, SS: flat data segment FS: current TEB ESP: points to last STACK32FRAME EBP: points to ebp member of last STACK32FRAME EDX: points to current STACK16FRAME ECX: contains saved flags all other registers: unchanged */ /* Special case: C16ThkSL stub */ if ( thunk ) { /* Set up registers as expected and call thunk */ fprintf( outfile, "\tleal %lu(%%edx), %%ebx\n", sizeof(STACK16FRAME)-22 ); fprintf( outfile, "\tleal -4(%%esp), %%ebp\n" ); fprintf( outfile, "\tcall *%d(%%edx)\n", STACK16OFFSET(entry_point) ); /* Switch stack back */ fprintf( outfile, "\t.byte 0x64\n\tmovw (%d), %%ss\n", STACKOFFSET+2 ); fprintf( outfile, "\t.byte 0x64\n\tmovzwl (%d), %%esp\n", STACKOFFSET ); fprintf( outfile, "\t.byte 0x64\n\tpopl (%d)\n", STACKOFFSET ); /* Restore registers and return directly to caller */ fprintf( outfile, "\taddl $8, %%esp\n" ); fprintf( outfile, "\tpopl %%ebp\n" ); fprintf( outfile, "\tpopw %%ds\n" ); fprintf( outfile, "\tpopw %%es\n" ); fprintf( outfile, "\tpopw %%fs\n" ); fprintf( outfile, "\tpopw %%gs\n" ); fprintf( outfile, "\taddl $20, %%esp\n" ); fprintf( outfile, "\txorb %%ch, %%ch\n" ); fprintf( outfile, "\tpopl %%ebx\n" ); fprintf( outfile, "\taddw %%cx, %%sp\n" ); fprintf( outfile, "\tpush %%ebx\n" ); fprintf( outfile, "\t.byte 0x66\n" ); fprintf( outfile, "\tlret\n" ); return; } /* Build register CONTEXT */ if ( reg_func ) { fprintf( outfile, "\tsubl $%lu, %%esp\n", sizeof(CONTEXT86) ); fprintf( outfile, "\tmovl %%ecx, %d(%%esp)\n", CONTEXTOFFSET(EFlags) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Eax) ); fprintf( outfile, "\tmovl %%ebx, %d(%%esp)\n", CONTEXTOFFSET(Ebx) ); fprintf( outfile, "\tmovl %%esi, %d(%%esp)\n", CONTEXTOFFSET(Esi) ); fprintf( outfile, "\tmovl %%edi, %d(%%esp)\n", CONTEXTOFFSET(Edi) ); fprintf( outfile, "\tmovl %d(%%edx), %%eax\n", STACK16OFFSET(ebp) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Ebp) ); fprintf( outfile, "\tmovl %d(%%edx), %%eax\n", STACK16OFFSET(ecx) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Ecx) ); fprintf( outfile, "\tmovl %d(%%edx), %%eax\n", STACK16OFFSET(edx) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Edx) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(ds) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegDs) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(es) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegEs) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(fs) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegFs) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(gs) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegGs) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(cs) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegCs) ); fprintf( outfile, "\tmovzwl %d(%%edx), %%eax\n", STACK16OFFSET(ip) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Eip) ); fprintf( outfile, "\t.byte 0x64\n\tmovzwl (%d), %%eax\n", STACKOFFSET+2 ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(SegSs) ); fprintf( outfile, "\t.byte 0x64\n\tmovzwl (%d), %%eax\n", STACKOFFSET ); fprintf( outfile, "\taddl $%d, %%eax\n", STACK16OFFSET(ip) ); fprintf( outfile, "\tmovl %%eax, %d(%%esp)\n", CONTEXTOFFSET(Esp) ); #if 0 fprintf( outfile, "\tfsave %d(%%esp)\n", CONTEXTOFFSET(FloatSave) ); #endif /* Push address of CONTEXT86 structure -- popped by the relay routine */ fprintf( outfile, "\tpushl %%esp\n" ); } /* Print debug info before call */ if ( debugging ) { fprintf( outfile, "\tpushl %%edx\n" ); if ( reg_func ) fprintf( outfile, "\tleal -%lu(%%ebp), %%eax\n\tpushl %%eax\n", sizeof(CONTEXT) + STRUCTOFFSET(STACK32FRAME, ebp) ); else fprintf( outfile, "\tpushl $0\n" ); fprintf( outfile, "\tcall " PREFIX "RELAY_DebugCallFrom16\n "); fprintf( outfile, "\tpopl %%edx\n" ); fprintf( outfile, "\tpopl %%edx\n" ); } /* Call relay routine (which will call the API entry point) */ fprintf( outfile, "\tleal %lu(%%edx), %%eax\n", sizeof(STACK16FRAME) ); fprintf( outfile, "\tpushl %%eax\n" ); fprintf( outfile, "\tpushl %d(%%edx)\n", STACK16OFFSET(entry_point) ); fprintf( outfile, "\tcall *%d(%%edx)\n", STACK16OFFSET(relay) ); /* Print debug info after call */ if ( debugging ) { fprintf( outfile, "\tpushl %%eax\n" ); if ( reg_func ) fprintf( outfile, "\tleal -%lu(%%ebp), %%eax\n\tpushl %%eax\n", sizeof(CONTEXT) + STRUCTOFFSET(STACK32FRAME, ebp) ); else fprintf( outfile, "\tpushl $0\n" ); fprintf( outfile, "\tcall " PREFIX "RELAY_DebugCallFrom16Ret\n "); fprintf( outfile, "\tpopl %%eax\n" ); fprintf( outfile, "\tpopl %%eax\n" ); } if ( reg_func ) { fprintf( outfile, "\tmovl %%esp, %%ebx\n" ); /* Switch stack back */ fprintf( outfile, "\t.byte 0x64\n\tmovw (%d), %%ss\n", STACKOFFSET+2 ); fprintf( outfile, "\t.byte 0x64\n\tmovzwl (%d), %%esp\n", STACKOFFSET ); fprintf( outfile, "\t.byte 0x64\n\tpopl (%d)\n", STACKOFFSET ); /* Get return address to CallFrom16 stub */ fprintf( outfile, "\taddw $%d, %%sp\n", STACK16OFFSET(callfrom_ip)-4 ); fprintf( outfile, "\tpopl %%eax\n" ); fprintf( outfile, "\tpopl %%edx\n" ); /* Restore all registers from CONTEXT */ fprintf( outfile, "\tmovw %d(%%ebx), %%ss\n", CONTEXTOFFSET(SegSs) ); fprintf( outfile, "\tmovl %d(%%ebx), %%esp\n", CONTEXTOFFSET(Esp) ); fprintf( outfile, "\taddl $4, %%esp\n" ); /* room for final return address */ fprintf( outfile, "\tpushw %d(%%ebx)\n", CONTEXTOFFSET(SegCs) ); fprintf( outfile, "\tpushw %d(%%ebx)\n", CONTEXTOFFSET(Eip) ); fprintf( outfile, "\tpushl %%edx\n" ); fprintf( outfile, "\tpushl %%eax\n" ); fprintf( outfile, "\tpushl %d(%%ebx)\n", CONTEXTOFFSET(EFlags) ); fprintf( outfile, "\tpushl %d(%%ebx)\n", CONTEXTOFFSET(SegDs) ); fprintf( outfile, "\tmovw %d(%%ebx), %%es\n", CONTEXTOFFSET(SegEs) ); fprintf( outfile, "\tmovw %d(%%ebx), %%fs\n", CONTEXTOFFSET(SegFs) ); fprintf( outfile, "\tmovw %d(%%ebx), %%gs\n", CONTEXTOFFSET(SegGs) ); fprintf( outfile, "\tmovl %d(%%ebx), %%ebp\n", CONTEXTOFFSET(Ebp) ); fprintf( outfile, "\tmovl %d(%%ebx), %%esi\n", CONTEXTOFFSET(Esi) ); fprintf( outfile, "\tmovl %d(%%ebx), %%edi\n", CONTEXTOFFSET(Edi) ); fprintf( outfile, "\tmovl %d(%%ebx), %%eax\n", CONTEXTOFFSET(Eax) ); fprintf( outfile, "\tmovl %d(%%ebx), %%edx\n", CONTEXTOFFSET(Edx) ); fprintf( outfile, "\tmovl %d(%%ebx), %%ecx\n", CONTEXTOFFSET(Ecx) ); fprintf( outfile, "\tmovl %d(%%ebx), %%ebx\n", CONTEXTOFFSET(Ebx) ); fprintf( outfile, "\tpopl %%ds\n" ); fprintf( outfile, "\tpopfl\n" ); fprintf( outfile, "\tlret\n" ); } else { /* Switch stack back */ fprintf( outfile, "\t.byte 0x64\n\tmovw (%d), %%ss\n", STACKOFFSET+2 ); fprintf( outfile, "\t.byte 0x64\n\tmovzwl (%d), %%esp\n", STACKOFFSET ); fprintf( outfile, "\t.byte 0x64\n\tpopl (%d)\n", STACKOFFSET ); /* Restore registers */ fprintf( outfile, "\tpopl %%edx\n" ); fprintf( outfile, "\tpopl %%ecx\n" ); fprintf( outfile, "\tpopl %%ebp\n" ); fprintf( outfile, "\tpopw %%ds\n" ); fprintf( outfile, "\tpopw %%es\n" ); fprintf( outfile, "\tpopw %%fs\n" ); fprintf( outfile, "\tpopw %%gs\n" ); /* Prepare return value and set flags accordingly */ if ( !short_ret ) fprintf( outfile, "\tshldl $16, %%eax, %%edx\n" ); fprintf( outfile, "\torl %%eax, %%eax\n" ); /* Return to return stub which will return to caller */ fprintf( outfile, "\tlret $12\n" ); } }