4 * Copyright 1995 Alexandre Julliard
6 * Modified for use with MPlayer, detailed changelog at
7 * http://svn.mplayerhq.hu/mplayer/trunk/
11 // define for quicktime calls debugging and/or MacOS-level emulation:
14 #endif /* __APPLE__ */
16 // define for quicktime debugging (verbose logging):
17 //#define DEBUG_QTX_API
29 #ifdef HAVE_SYS_MMAN_H
34 #include "wine/windef.h"
35 #include "wine/winerror.h"
36 #include "wine/heap.h"
37 #include "wine/module.h"
38 #include "wine/pe_image.h"
39 #include "wine/debugtools.h"
45 #include "wine/elfdll.h"
53 static int report_func(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
);
54 static int report_func_ret(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
);
58 //#define TRACE printf
60 //WINE_MODREF *local_wm=NULL;
61 modref_list
* local_wm
=NULL
;
65 WINE_MODREF
* MODULE_FindModule(LPCSTR m
)
67 modref_list
* list
=local_wm
;
68 TRACE("FindModule: Module %s request\n", m
);
71 // while(strcmp(m, list->wm->filename))
72 while(!strstr(list
->wm
->filename
, m
))
74 TRACE("%s: %x\n", list
->wm
->filename
, list
->wm
->module
);
79 TRACE("Resolved to %s\n", list
->wm
->filename
);
83 static void MODULE_RemoveFromList(WINE_MODREF
*mod
)
85 modref_list
* list
=local_wm
;
90 if((list
->prev
==NULL
)&&(list
->next
==NULL
))
97 for(;list
;list
=list
->prev
)
102 list
->prev
->next
=list
->next
;
104 list
->next
->prev
=list
->prev
;
114 WINE_MODREF
*MODULE32_LookupHMODULE(HMODULE m
)
116 modref_list
* list
=local_wm
;
117 TRACE("LookupHMODULE: Module %X request\n", m
);
120 TRACE("LookupHMODULE failed\n");
123 while(m
!=list
->wm
->module
)
125 // printf("Checking list %X wm %X module %X\n",
126 // list, list->wm, list->wm->module);
130 TRACE("LookupHMODULE failed\n");
134 TRACE("LookupHMODULE hit %p\n", list
->wm
);
138 /*************************************************************************
141 static WIN_BOOL
MODULE_InitDll( WINE_MODREF
*wm
, DWORD type
, LPVOID lpReserved
)
143 WIN_BOOL retv
= TRUE
;
146 static LPCSTR typeName
[] = { "PROCESS_DETACH", "PROCESS_ATTACH",
147 "THREAD_ATTACH", "THREAD_DETACH" };
153 /* Skip calls for modules loaded with special load flags */
155 if ( ( wm
->flags
& WINE_MODREF_DONT_RESOLVE_REFS
)
156 || ( wm
->flags
& WINE_MODREF_LOAD_AS_DATAFILE
) )
160 TRACE("(%s,%s,%p) - CALL\n", wm
->modname
, typeName
[type
], lpReserved
);
162 /* Call the initialization routine */
166 retv
= PE_InitDLL( wm
, type
, lpReserved
);
170 /* no need to do that, dlopen() already does */
174 ERR("wine_modref type %d not handled.\n", wm
->type
);
179 /* The state of the module list may have changed due to the call
180 to PE_InitDLL. We cannot assume that this module has not been
182 TRACE("(%p,%s,%p) - RETURN %d\n", wm
, typeName
[type
], lpReserved
, retv
);
187 /*************************************************************************
188 * MODULE_DllProcessAttach
190 * Send the process attach notification to all DLLs the given module
191 * depends on (recursively). This is somewhat complicated due to the fact that
193 * - we have to respect the module dependencies, i.e. modules implicitly
194 * referenced by another module have to be initialized before the module
195 * itself can be initialized
197 * - the initialization routine of a DLL can itself call LoadLibrary,
198 * thereby introducing a whole new set of dependencies (even involving
199 * the 'old' modules) at any time during the whole process
201 * (Note that this routine can be recursively entered not only directly
202 * from itself, but also via LoadLibrary from one of the called initialization
205 * Furthermore, we need to rearrange the main WINE_MODREF list to allow
206 * the process *detach* notifications to be sent in the correct order.
207 * This must not only take into account module dependencies, but also
208 * 'hidden' dependencies created by modules calling LoadLibrary in their
209 * attach notification routine.
211 * The strategy is rather simple: we move a WINE_MODREF to the head of the
212 * list after the attach notification has returned. This implies that the
213 * detach notifications are called in the reverse of the sequence the attach
214 * notifications *returned*.
216 * NOTE: Assumes that the process critical section is held!
219 static WIN_BOOL
MODULE_DllProcessAttach( WINE_MODREF
*wm
, LPVOID lpReserved
)
221 WIN_BOOL retv
= TRUE
;
225 /* prevent infinite recursion in case of cyclical dependencies */
226 if ( ( wm
->flags
& WINE_MODREF_MARKER
)
227 || ( wm
->flags
& WINE_MODREF_PROCESS_ATTACHED
) )
230 TRACE("(%s,%p) - START\n", wm
->modname
, lpReserved
);
232 /* Tag current MODREF to prevent recursive loop */
233 wm
->flags
|= WINE_MODREF_MARKER
;
235 /* Recursively attach all DLLs this one depends on */
236 /* for ( i = 0; retv && i < wm->nDeps; i++ )
238 retv = MODULE_DllProcessAttach( wm->deps[i], lpReserved );
240 /* Call DLL entry point */
245 local_wm
->next
= malloc(sizeof(modref_list
));
246 local_wm
->next
->prev
=local_wm
;
247 local_wm
->next
->next
=NULL
;
248 local_wm
->next
->wm
=wm
;
249 local_wm
=local_wm
->next
;
253 local_wm
= malloc(sizeof(modref_list
));
254 local_wm
->next
=local_wm
->prev
=NULL
;
257 /* Remove recursion flag */
258 wm
->flags
&= ~WINE_MODREF_MARKER
;
262 retv
= MODULE_InitDll( wm
, DLL_PROCESS_ATTACH
, lpReserved
);
264 wm
->flags
|= WINE_MODREF_PROCESS_ATTACHED
;
268 TRACE("(%s,%p) - END\n", wm
->modname
, lpReserved
);
273 /*************************************************************************
274 * MODULE_DllProcessDetach
276 * Send DLL process detach notifications. See the comment about calling
277 * sequence at MODULE_DllProcessAttach. Unless the bForceDetach flag
278 * is set, only DLLs with zero refcount are notified.
280 static void MODULE_DllProcessDetach( WINE_MODREF
* wm
, WIN_BOOL bForceDetach
, LPVOID lpReserved
)
282 // WINE_MODREF *wm=local_wm;
283 //modref_list* l = local_wm;
284 wm
->flags
&= ~WINE_MODREF_PROCESS_ATTACHED
;
285 MODULE_InitDll( wm
, DLL_PROCESS_DETACH
, lpReserved
);
295 /***********************************************************************
296 * MODULE_LoadLibraryExA (internal)
298 * Load a PE style module according to the load order.
300 * The HFILE parameter is not used and marked reserved in the SDK. I can
301 * only guess that it should force a file to be mapped, but I rather
302 * ignore the parameter because it would be extremely difficult to
303 * integrate this with different types of module represenations.
306 static WINE_MODREF
*MODULE_LoadLibraryExA( LPCSTR libname
, HFILE hfile
, DWORD flags
)
308 DWORD err
= GetLastError();
310 // module_loadorder_t *plo;
312 SetLastError( ERROR_FILE_NOT_FOUND
);
313 TRACE("Trying native dll '%s'\n", libname
);
314 pwm
= PE_LoadLibraryExA(libname
, flags
);
318 TRACE("Trying ELF dll '%s'\n", libname
);
319 pwm
=(WINE_MODREF
*)ELFDLL_LoadLibraryExA(libname
, flags
);
322 // printf("0x%08x\n", pwm);
326 /* Initialize DLL just loaded */
327 TRACE("Loaded module '%s' at 0x%08x, \n", libname
, pwm
->module
);
328 /* Set the refCount here so that an attach failure will */
329 /* decrement the dependencies through the MODULE_FreeLibrary call. */
332 SetLastError( err
); /* restore last error */
337 WARN("Failed to load module '%s'; error=0x%08lx, \n", libname
, GetLastError());
341 /***********************************************************************
344 * NOTE: Assumes that the process critical section is held!
346 static WIN_BOOL
MODULE_FreeLibrary( WINE_MODREF
*wm
)
348 TRACE("(%s) - START\n", wm
->modname
);
350 /* Call process detach notifications */
351 MODULE_DllProcessDetach( wm
, FALSE
, NULL
);
353 PE_UnloadLibrary(wm
);
360 /***********************************************************************
361 * LoadLibraryExA (KERNEL32)
363 HMODULE WINAPI
LoadLibraryExA(LPCSTR libname
, HANDLE hfile
, DWORD flags
)
366 char* listpath
[] = { "", "", 0 };
374 SetLastError(ERROR_INVALID_PARAMETER
);
378 wm
=MODULE_FindModule(libname
);
379 if(wm
) return wm
->module
;
381 // if(fs_installed==0)
384 while (wm
== 0 && listpath
[++i
])
389 /* check just original file name */
390 strncpy(path
, libname
, 511);
392 /* check default user path */
393 strncpy(path
, codec_path
, 300);
395 else if (strcmp(codec_path
, listpath
[i
]))
396 /* path from the list */
397 strncpy(path
, listpath
[i
], 300);
404 strncat(path
, libname
, 100);
407 wm
= MODULE_LoadLibraryExA( path
, hfile
, flags
);
412 strcat(checked
, ", ");
413 strcat(checked
, path
);
420 if ( !MODULE_DllProcessAttach( wm
, NULL
) )
422 WARN_(module
)("Attach failed for module '%s', \n", libname
);
423 MODULE_FreeLibrary(wm
);
424 SetLastError(ERROR_DLL_INIT_FAILED
);
425 MODULE_RemoveFromList(wm
);
430 if (!wm
&& !strstr(checked
, "avisynth.dll"))
431 printf("Win32 LoadLibrary failed to load: %s\n", checked
);
433 #define RVA(x) ((char *)wm->module+(unsigned int)(x))
434 if (strstr(libname
,"vp31vfw.dll") && wm
)
438 // sse hack moved from patch dll into runtime patching
439 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x1000)) {
440 fprintf(stderr
, "VP3 DLL found\n");
441 for (i
=0;i
<18;i
++) RVA(0x4bd6)[i
]=0x90;
445 // remove a few divs in the VP codecs that make trouble
446 if (strstr(libname
,"vp5vfw.dll") && wm
)
449 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3930)) {
450 for (i
=0;i
<3;i
++) RVA(0x4e86)[i
]=0x90;
451 for (i
=0;i
<3;i
++) RVA(0x5a23)[i
]=0x90;
452 for (i
=0;i
<3;i
++) RVA(0x5bff)[i
]=0x90;
454 fprintf(stderr
, "Unsupported VP5 version\n");
459 if (strstr(libname
,"vp6vfw.dll") && wm
)
462 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3ef0)) {
463 // looks like VP 6.1.0.2
464 for (i
=0;i
<6;i
++) RVA(0x7268)[i
]=0x90;
465 for (i
=0;i
<6;i
++) RVA(0x7e83)[i
]=0x90;
466 for (i
=0;i
<6;i
++) RVA(0x806a)[i
]=0x90;
467 } else if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x4120)) {
468 // looks like VP 6.2.0.10
469 for (i
=0;i
<6;i
++) RVA(0x7688)[i
]=0x90;
470 for (i
=0;i
<6;i
++) RVA(0x82c3)[i
]=0x90;
471 for (i
=0;i
<6;i
++) RVA(0x84aa)[i
]=0x90;
472 for (i
=0;i
<6;i
++) RVA(0x1d2cc)[i
]=0x90;
473 for (i
=0;i
<6;i
++) RVA(0x2179d)[i
]=0x90;
474 for (i
=0;i
<6;i
++) RVA(0x1977f)[i
]=0x90;
475 } else if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3e70)) {
476 // looks like VP 6.0.7.3
477 for (i
=0;i
<6;i
++) RVA(0x7559)[i
]=0x90;
478 for (i
=0;i
<6;i
++) RVA(0x81c3)[i
]=0x90;
479 for (i
=0;i
<6;i
++) RVA(0x839e)[i
]=0x90;
481 fprintf(stderr
, "Unsupported VP6 version\n");
486 // Windows Media Video 9 Advanced
487 if (strstr(libname
,"wmvadvd.dll") && wm
)
489 // The codec calls IsRectEmpty with coords 0,0,0,0 => result is 0
490 // but it really wants the rectangle to be not empty
491 if (PE_FindExportedFunction(wm
, "CreateInstance", TRUE
)==RVA(0xb812)) {
492 // Dll version is 10.0.0.3645
493 *RVA(0x8b0f)=0xeb; // Jump always, ignoring IsRectEmpty result
495 fprintf(stderr
, "Unsupported WMVA version\n");
500 if (strstr(libname
,"QuickTime.qts") && wm
)
506 // dispatch_addr = GetProcAddress(wm->module, "theQuickTimeDispatcher", TRUE);
507 dispatch_addr
= PE_FindExportedFunction(wm
, "theQuickTimeDispatcher", TRUE
);
508 if (dispatch_addr
== RVA(0x124c30))
510 fprintf(stderr
, "QuickTime5 DLLs found\n");
511 ptr
= (void **)RVA(0x375ca4); // dispatch_ptr
512 for (i
=0;i
<5;i
++) RVA(0x19e842)[i
]=0x90; // make_new_region ?
513 for (i
=0;i
<28;i
++) RVA(0x19e86d)[i
]=0x90; // call__call_CreateCompatibleDC ?
514 for (i
=0;i
<5;i
++) RVA(0x19e898)[i
]=0x90; // jmp_to_call_loadbitmap ?
515 for (i
=0;i
<9;i
++) RVA(0x19e8ac)[i
]=0x90; // call__calls_OLE_shit ?
516 for (i
=0;i
<106;i
++) RVA(0x261b10)[i
]=0x90; // disable threads
518 /* CreateThread callers */
519 for (i
=0;i
<5;i
++) RVA(0x1487c5)[i
]=0x90;
520 for (i
=0;i
<5;i
++) RVA(0x14b275)[i
]=0x90;
521 for (i
=0;i
<5;i
++) RVA(0x1a24b1)[i
]=0x90;
522 for (i
=0;i
<5;i
++) RVA(0x1afc5a)[i
]=0x90;
523 for (i
=0;i
<5;i
++) RVA(0x2f799c)[i
]=0x90;
524 for (i
=0;i
<5;i
++) RVA(0x2f7efe)[i
]=0x90;
525 for (i
=0;i
<5;i
++) RVA(0x2fa33e)[i
]=0x90;
529 /* TerminateQTML fix */
530 for (i
=0;i
<47;i
++) RVA(0x2fa3b8)[i
]=0x90; // terminate thread
531 for (i
=0;i
<47;i
++) RVA(0x2f7f78)[i
]=0x90; // terminate thread
532 for (i
=0;i
<77;i
++) RVA(0x1a13d5)[i
]=0x90;
533 RVA(0x08e0ae)[0] = 0xc3; // font/dc remover
534 for (i
=0;i
<24;i
++) RVA(0x07a1ad)[i
]=0x90; // destroy window
536 } else if (dispatch_addr
== RVA(0x13b330))
538 fprintf(stderr
, "QuickTime6 DLLs found\n");
539 ptr
= (void **)RVA(0x3b9524); // dispatcher_ptr
540 for (i
=0;i
<5;i
++) RVA(0x2730cc)[i
]=0x90; // make_new_region
541 for (i
=0;i
<28;i
++) RVA(0x2730f7)[i
]=0x90; // call__call_CreateCompatibleDC
542 for (i
=0;i
<5;i
++) RVA(0x273122)[i
]=0x90; // jmp_to_call_loadbitmap
543 for (i
=0;i
<9;i
++) RVA(0x273131)[i
]=0x90; // call__calls_OLE_shit
544 for (i
=0;i
<96;i
++) RVA(0x2ac852)[i
]=0x90; // disable threads
545 } else if (dispatch_addr
== RVA(0x13c3e0))
547 fprintf(stderr
, "QuickTime6.3 DLLs found\n");
548 ptr
= (void **)RVA(0x3ca01c); // dispatcher_ptr
549 for (i
=0;i
<5;i
++) RVA(0x268f6c)[i
]=0x90; // make_new_region
550 for (i
=0;i
<28;i
++) RVA(0x268f97)[i
]=0x90; // call__call_CreateCompatibleDC
551 for (i
=0;i
<5;i
++) RVA(0x268fc2)[i
]=0x90; // jmp_to_call_loadbitmap
552 for (i
=0;i
<9;i
++) RVA(0x268fd1)[i
]=0x90; // call__calls_OLE_shit
553 for (i
=0;i
<96;i
++) RVA(0x2b4722)[i
]=0x90; // disable threads
556 fprintf(stderr
, "Unsupported QuickTime version (%p)\n",
561 fprintf(stderr
,"QuickTime.qts patched!!! old entry=%p\n",ptr
[0]);
564 report_entry
= report_func
;
565 report_ret
= report_func_ret
;
566 wrapper_target
=ptr
[0];
572 return wm
? wm
->module
: 0;
576 /***********************************************************************
577 * LoadLibraryA (KERNEL32)
579 HMODULE WINAPI
LoadLibraryA(LPCSTR libname
) {
580 return LoadLibraryExA(libname
,0,0);
583 /***********************************************************************
586 WIN_BOOL WINAPI
FreeLibrary(HINSTANCE hLibModule
)
588 WIN_BOOL retv
= FALSE
;
591 wm
=MODULE32_LookupHMODULE(hLibModule
);
593 if ( !wm
|| !hLibModule
)
595 SetLastError( ERROR_INVALID_HANDLE
);
599 retv
= MODULE_FreeLibrary( wm
);
601 MODULE_RemoveFromList(wm
);
604 if (local_wm
== NULL
) my_garbagecollection();
609 /***********************************************************************
610 * GetProcAddress (KERNEL32.257)
612 FARPROC WINAPI
GetProcAddress( HMODULE hModule
, LPCSTR function
)
614 return MODULE_GetProcAddress( hModule
, function
, TRUE
);
620 http://lists.apple.com/archives/quicktime-api/2003/Jan/msg00278.html
623 struct ComponentParameters
{
624 unsigned char flags
; /* call modifiers: sync/async, deferred, immed, etc */
625 unsigned char paramSize
; /* size in bytes of actual parameters passed to this call */
626 short what
; /* routine selector, negative for Component management calls */
627 long params
[1]; /* actual parameters for the indicated routine */
629 typedef struct ComponentParameters ComponentParameters
;
631 static char* component_func(int what
){
632 if (what
< 0) // Range 0: Standard Component Calls
634 case -1: return "kComponentOpenSelect";
635 case -2: return "kComponentCloseSelect";
636 case -3: return "kComponentCanDoSelect";
637 case -4: return "kComponentVersionSelect";
638 case -5: return "kComponentRegisterSelect";
639 case -6: return "kComponentTargetSelect";
640 case -7: return "kComponentUnregisterSelect";
643 if (what
>= 0 && what
<= 0xff) // Range 1: Generic codecs
645 case 0: return "kImageCodecGetCodecInfoSelect";
646 case 1: return "kImageCodecGetCompressionTimeSelect";
647 case 2: return "kImageCodecGetMaxCompressionSizeSelect";
648 case 3: return "kImageCodecPreCompressSelect";
649 case 4: return "kImageCodecBandCompressSelect";
650 case 5: return "kImageCodecPreDecompressSelect";
651 case 6: return "kImageCodecBandDecompressSelect";
652 case 7: return "kImageCodecBusySelect";
653 // finish this list from the above URL
654 case 0x10: return "kImageCodecIsImageDescriptionEquivalentSelect";
655 case 0x12: return "kImageCodecDisposeMemorySelect";
656 case 0x14: return "kImageCodecNewImageBufferMemorySelect";
657 case 0x28: return "kImageCodecRequestGammaLevelSelect";
660 //if (what >= 0x100 && what <= 0x1ff) // Range 2: Specific to QT Photo JPEG codecs
662 if (what
>= 0x200 && what
<= 0x2ff) // Range 3: Base Decompressor
664 case 0: return "Preflight";
665 case 1: return "Initialize";
666 case 2: return "BeginBand";
667 case 3: return "DrawBand";
668 case 4: return "EndBand";
669 case 5: return "QueueStarting";
670 case 6: return "QueueStopping";
676 static int c_level
=0;
678 static int dump_component(char* name
, int type
, void* orig
, ComponentParameters
*params
,void** glob
){
679 int ( *orig
)(ComponentParameters
*params
, void** glob
) = orig
;
682 fprintf(stderr
,"%*sComponentCall: %s flags=0x%X size=%d what=0x%X %s\n",3*c_level
,"",name
,params
->flags
, params
->paramSize
, params
->what
, component_func(params
->what
));
684 for(i
=0;i
<params
->paramSize
/4;i
++)
685 fprintf(stderr
,"%*s param[%d] = 0x%X\n",3*c_level
,"",i
,params
->params
[i
]);
688 ret
=orig(params
,glob
);
692 fprintf(stderr
,"%*s return=0x%X\n",3*c_level
,"",ret
);
694 fprintf(stderr
,"%*s return=%d\n",3*c_level
,"",ret
);
698 #define DECL_COMPONENT(sname,name,type) \
699 static void* real_ ## sname = NULL; \
700 static int fake_ ## sname(ComponentParameters *params,void** glob){ \
701 return dump_component(name,type,real_ ## sname, params, glob); \
706 #undef DECL_COMPONENT
715 uint32_t _System
DosQueryMem(void *, uint32_t *, uint32_t *);
718 static int is_invalid_ptr_handle(void *p
)
724 if(DosQueryMem(p
, &cb
, &fl
))
727 // Occasionally, ptr with 'EXEC' attr is passed.
728 // On OS/2, however, malloc() never sets 'EXEC' attr.
729 // So ptr with 'EXEC' attr is invalid.
735 return (uint32_t)p
>= 0x60000000;
739 static uint32_t ret_array
[4096];
742 static int report_func(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
)
753 dptr
=0x62b67ae0;dptr
+=2*((reg
->eax
>>16)&255);
754 // printf("FUNC: flag=%d ptr=%p\n",dptr[0],dptr[1]);
756 dptr
=dptr
[1];dptr
+=4*(reg
->eax
&65535);
757 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",dptr[1],dptr[0],dptr[2]);
758 pwrapper
=dptr
[1]; pptr
=dptr
[0]; plen
=dptr
[2];
763 dptr
=0x62b672c0;dptr
+=2*(reg
->eax
&65535);
764 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
765 pptr
=dptr
[0]; plen
=dptr
[1];
768 dptr
=0x62b67c70;dptr
+=2*(reg
->eax
&65535);
769 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
770 pptr
=dptr
[0]; plen
=dptr
[1];
773 dptr
=0x62b68108;if(reg
->eax
&0x8000) dptr
+=2*(reg
->eax
|0xffff0000); else dptr
+=2*(reg
->eax
&65535);
774 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
775 pptr
=dptr
[0]; plen
=dptr
[1];
778 dptr
=0x62b68108;if(reg
->eax
&0x8000) dptr
+=2*(reg
->eax
|0xffff0000); else dptr
+=2*(reg
->eax
&65535);
779 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
780 pptr
=dptr
[0]; plen
=dptr
[1];
783 printf("FUNC: unknown ptr & psize!\n");
788 for(i
=0;qt_fv_list
[i
].name
;i
++){
789 if(qt_fv_list
[i
].id
==reg
->eax
){
790 pname
=qt_fv_list
[i
].name
;
795 printf("FUNC[%X/%s]: wrapper=%p func=%p len=%d\n",reg
->eax
,
796 pname
?pname
:"???",pwrapper
,pptr
,plen
);
798 printf("FUNC: caller=%p ebx=%p\n",((uint32_t *)stack_base
)[0],reg
->ebx
);
801 printf("%*sENTER(%d): %s(",ret_i
*2,"",ret_i
,pname
);
803 printf("%*sENTER(%d): %X(",ret_i
*2,"",ret_i
,reg
->eax
);
804 for (i
=0;i
<plen
/4;i
++){
805 unsigned int val
=((uint32_t *)stack_base
)[1+i
];
806 unsigned char* fcc
=&val
;
807 printf("%s0x%X", i
?", ":"",val
);
808 if(fcc
[0]>=0x20 && fcc
[0]<128 &&
809 fcc
[1]>=0x20 && fcc
[1]<128 &&
810 fcc
[2]>=0x20 && fcc
[2]<128 &&
811 fcc
[3]>=0x20 && fcc
[3]<128) printf("='%c%c%c%c'",fcc
[3],fcc
[2],fcc
[1],fcc
[0]);
812 else if(val
>=8 && val
<65536) printf("=%d",val
);
819 // emulate some functions:
821 // memory management:
822 case 0x150011: //NewPtrClear
823 case 0x150012: //NewPtrSysClear
824 reg
->eax
= malloc(((uint32_t *)stack_base
)[1]);
825 memset((void *)reg
->eax
,0,((uint32_t *)stack_base
)[1]);
827 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
830 case 0x15000F: //NewPtr
831 case 0x150010: //NewPtrSys
832 reg
->eax
= malloc(((uint32_t *)stack_base
)[1]);
834 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
837 case 0x15002f: //DisposePtr
838 if(is_invalid_ptr_handle(((void **)stack_base
)[1]))
839 printf("WARNING! Invalid Ptr handle!\n");
841 free(((void **)stack_base
)[1]);
844 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
848 case 0x1d0033: //QTMLCreateMutex
851 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
854 case 0x1d0034: //QTMLDestroyMutex
855 case 0x1d0035: //QTMLGrabMutex
856 case 0x1d0036: //QTMLReturnMutex
857 case 0x1d003d: //QTMLTryGrabMutex
860 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
868 // printf("FUNC: ImageCodecInitialize/ImageCodecGetCodecInfo(ci=%p,&icap=%p)\n",((uint32_t *)stack_base)[1],((uint32_t *)stack_base)[4]);
871 printf("FUNC: CountComponents(&desc=%p)\n",((uint32_t *)stack_base
)[1]);
874 printf("FUNC: FindNextComponent(prev=%p,&desc=%p)\n",((uint32_t *)stack_base
)[1],((uint32_t *)stack_base
)[2]);
877 printf("FUNC: OpenComponent(prev=%p)\n",((uint32_t *)stack_base
)[1]);
880 printf("FUNC: QTNewGWorldFromPtr(&pts=%p,fourcc=%.4s,&rect=%p,x1=%p,x2=%p,x3=%p,plane=%p,stride=%d)\n",
881 ((uint32_t *)stack_base
)[1],
882 &(((uint32_t *)stack_base
)[2]),
883 ((uint32_t *)stack_base
)[3],
884 ((uint32_t *)stack_base
)[4],
885 ((uint32_t *)stack_base
)[5],
886 ((uint32_t *)stack_base
)[6],
887 ((uint32_t *)stack_base
)[7],
888 ((uint32_t *)stack_base
)[8]);
891 printf("FUNC: GetGWorldPixMap(gworld=%p)\n",((uint32_t *)stack_base
)[1]);
894 printf("FUNC: Gestalt(fourcc=%.4s, &ret=%p)\n",&(((uint32_t *)stack_base
)[1]),((uint32_t *)stack_base
)[2]);
898 for(i
=0;qt_fv_list
[i
].name
;i
++){
899 if(qt_fv_list
[i
].id
==reg
->eax
){
900 printf("FUNC: %s\n",qt_fv_list
[i
].name
);
907 // print stack/reg information
908 printf("ENTER(%d) stack = %d bytes @ %p\n"
909 "eax = 0x%08x edx = 0x%08x ebx = 0x%08x ecx = 0x%08x\n"
910 "esp = 0x%08x ebp = 0x%08x esi = 0x%08x edi = 0x%08x\n"
911 "flags = 0x%08x\n", ret_i
,
912 stack_size
, stack_base
,
913 reg
->eax
, reg
->edx
, reg
->ebx
, reg
->ecx
,
914 reg
->esp
, reg
->ebp
, reg
->esi
, reg
->edi
,
919 ret_array
[ret_i
]=((uint32_t *)stack_base
)[0];
923 // print first 7 longs in the stack (return address, arg[1], arg[2] ... )
924 printf("stack[] = { ");
926 printf("%08x ", ((uint32_t *)stack_base
)[i
]);
931 // // mess with function parameters
932 // ((uint32_t *)stack_base)[1] = 0x66554433;
934 // // mess with return address...
935 // reg->eax = 0x11223344;
939 static int report_func_ret(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
)
948 ((uint32_t *)stack_base
)[0]=ret_array
[ret_i
];
953 printf("%*sLEAVE(%d): 0x%X",ret_i
*2,"",ret_i
, reg
->eax
);
955 if(err
&& (reg
->eax
>>16)==0) printf(" = %d",err
);
959 // print stack/reg information
960 printf("LEAVE(%d) stack = %d bytes @ %p\n"
961 "eax = 0x%08x edx = 0x%08x ebx = 0x%08x ecx = 0x%08x\n"
962 "esp = 0x%08x ebp = 0x%08x esi = 0x%08x edi = 0x%08x\n"
963 "flags = 0x%08x\n", ret_i
,
964 stack_size
, stack_base
,
965 reg
->eax
, reg
->edx
, reg
->ebx
, reg
->ecx
,
966 reg
->esp
, reg
->ebp
, reg
->esi
, reg
->edi
,
971 // print first 7 longs in the stack (return address, arg[1], arg[2] ... )
972 printf("stack[] = { ");
974 printf("%08x ", ((uint32_t *)stack_base
)[i
]);
981 // // mess with function parameters
982 // ((uint32_t *)stack_base)[1] = 0x66554433;
984 // // mess with return address...
985 // reg->eax = 0x11223344;
991 /***********************************************************************
992 * MODULE_GetProcAddress (internal)
994 FARPROC
MODULE_GetProcAddress(
995 HMODULE hModule
, /* [in] current module handle */
996 LPCSTR function
, /* [in] function to be looked up */
999 WINE_MODREF
*wm
= MODULE32_LookupHMODULE( hModule
);
1000 // WINE_MODREF *wm=local_wm;
1003 #ifdef DEBUG_QTX_API
1004 if (HIWORD(function
))
1005 fprintf(stderr
,"XXX GetProcAddress(%08lx,%s)\n",(DWORD
)hModule
,function
);
1007 fprintf(stderr
,"XXX GetProcAddress(%08lx,%p)\n",(DWORD
)hModule
,function
);
1010 // TRACE_(win32)("(%08lx,%s)\n",(DWORD)hModule,function);
1012 // TRACE_(win32)("(%08lx,%p)\n",(DWORD)hModule,function);
1015 SetLastError(ERROR_INVALID_HANDLE
);
1021 retproc
= PE_FindExportedFunction( wm
, function
, snoop
);
1022 if (!retproc
) SetLastError(ERROR_PROC_NOT_FOUND
);
1026 retproc
= (FARPROC
) dlsym( (void*) wm
->module
, function
);
1027 if (!retproc
) SetLastError(ERROR_PROC_NOT_FOUND
);
1031 ERR("wine_modref type %d not handled.\n",wm
->type
);
1032 SetLastError(ERROR_INVALID_HANDLE
);
1037 if (HIWORD(function
) && retproc
){
1039 #ifdef DEBUG_QTX_API
1040 #define DECL_COMPONENT(sname,name,type) \
1041 if(!strcmp(function,name)){ \
1042 fprintf(stderr,name "dispatcher catched -> %p\n",retproc); \
1043 real_ ## sname = retproc; retproc = fake_ ## sname; \
1045 #include "qt_comp.h"
1046 #undef DECL_COMPONENT
1049 if(!strcmp(function
,"theQuickTimeDispatcher")
1050 // || !strcmp(function,"CallComponentFunctionWithStorage")
1051 // || !strcmp(function,"CallComponent")
1053 fprintf(stderr
,"theQuickTimeDispatcher catched -> %p\n",retproc
);
1054 report_entry
= report_func
;
1055 report_ret
= report_func_ret
;
1056 wrapper_target
=(void(*)(void))retproc
;
1057 retproc
=(FARPROC
)wrapper
;
1066 static int acounter
= 0;
1067 void CodecAlloc(void)
1070 //printf("**************CODEC ALLOC %d\n", acounter);
1073 void CodecRelease(void)
1076 //printf("**************CODEC RELEASE %d\n", acounter);
1081 modref_list
* list
= local_wm
;
1084 //printf("CODECRELEASE %p\n", list);
1085 MODULE_FreeLibrary(list
->wm
);
1086 MODULE_RemoveFromList(list
->wm
);
1087 if (local_wm
== NULL
)
1088 my_garbagecollection();