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"
52 static int report_func(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
);
53 static int report_func_ret(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
);
57 //#define TRACE printf
59 //WINE_MODREF *local_wm=NULL;
60 modref_list
* local_wm
=NULL
;
64 WINE_MODREF
* MODULE_FindModule(LPCSTR m
)
66 modref_list
* list
=local_wm
;
67 TRACE("FindModule: Module %s request\n", m
);
70 // while(strcmp(m, list->wm->filename))
71 while(!strstr(list
->wm
->filename
, m
))
73 TRACE("%s: %x\n", list
->wm
->filename
, list
->wm
->module
);
78 TRACE("Resolved to %s\n", list
->wm
->filename
);
82 static void MODULE_RemoveFromList(WINE_MODREF
*mod
)
84 modref_list
* list
=local_wm
;
89 if((list
->prev
==NULL
)&&(list
->next
==NULL
))
96 for(;list
;list
=list
->prev
)
101 list
->prev
->next
=list
->next
;
103 list
->next
->prev
=list
->prev
;
113 WINE_MODREF
*MODULE32_LookupHMODULE(HMODULE m
)
115 modref_list
* list
=local_wm
;
116 TRACE("LookupHMODULE: Module %X request\n", m
);
119 TRACE("LookupHMODULE failed\n");
122 while(m
!=list
->wm
->module
)
124 // printf("Checking list %X wm %X module %X\n",
125 // list, list->wm, list->wm->module);
129 TRACE("LookupHMODULE failed\n");
133 TRACE("LookupHMODULE hit %p\n", list
->wm
);
137 /*************************************************************************
140 static WIN_BOOL
MODULE_InitDll( WINE_MODREF
*wm
, DWORD type
, LPVOID lpReserved
)
142 WIN_BOOL retv
= TRUE
;
145 static LPCSTR typeName
[] = { "PROCESS_DETACH", "PROCESS_ATTACH",
146 "THREAD_ATTACH", "THREAD_DETACH" };
152 /* Skip calls for modules loaded with special load flags */
154 if ( ( wm
->flags
& WINE_MODREF_DONT_RESOLVE_REFS
)
155 || ( wm
->flags
& WINE_MODREF_LOAD_AS_DATAFILE
) )
159 TRACE("(%s,%s,%p) - CALL\n", wm
->modname
, typeName
[type
], lpReserved
);
161 /* Call the initialization routine */
165 retv
= PE_InitDLL( wm
, type
, lpReserved
);
169 /* no need to do that, dlopen() already does */
173 ERR("wine_modref type %d not handled.\n", wm
->type
);
178 /* The state of the module list may have changed due to the call
179 to PE_InitDLL. We cannot assume that this module has not been
181 TRACE("(%p,%s,%p) - RETURN %d\n", wm
, typeName
[type
], lpReserved
, retv
);
186 /*************************************************************************
187 * MODULE_DllProcessAttach
189 * Send the process attach notification to all DLLs the given module
190 * depends on (recursively). This is somewhat complicated due to the fact that
192 * - we have to respect the module dependencies, i.e. modules implicitly
193 * referenced by another module have to be initialized before the module
194 * itself can be initialized
196 * - the initialization routine of a DLL can itself call LoadLibrary,
197 * thereby introducing a whole new set of dependencies (even involving
198 * the 'old' modules) at any time during the whole process
200 * (Note that this routine can be recursively entered not only directly
201 * from itself, but also via LoadLibrary from one of the called initialization
204 * Furthermore, we need to rearrange the main WINE_MODREF list to allow
205 * the process *detach* notifications to be sent in the correct order.
206 * This must not only take into account module dependencies, but also
207 * 'hidden' dependencies created by modules calling LoadLibrary in their
208 * attach notification routine.
210 * The strategy is rather simple: we move a WINE_MODREF to the head of the
211 * list after the attach notification has returned. This implies that the
212 * detach notifications are called in the reverse of the sequence the attach
213 * notifications *returned*.
215 * NOTE: Assumes that the process critical section is held!
218 static WIN_BOOL
MODULE_DllProcessAttach( WINE_MODREF
*wm
, LPVOID lpReserved
)
220 WIN_BOOL retv
= TRUE
;
224 /* prevent infinite recursion in case of cyclical dependencies */
225 if ( ( wm
->flags
& WINE_MODREF_MARKER
)
226 || ( wm
->flags
& WINE_MODREF_PROCESS_ATTACHED
) )
229 TRACE("(%s,%p) - START\n", wm
->modname
, lpReserved
);
231 /* Tag current MODREF to prevent recursive loop */
232 wm
->flags
|= WINE_MODREF_MARKER
;
234 /* Recursively attach all DLLs this one depends on */
235 /* for ( i = 0; retv && i < wm->nDeps; i++ )
237 retv = MODULE_DllProcessAttach( wm->deps[i], lpReserved );
239 /* Call DLL entry point */
244 local_wm
->next
= malloc(sizeof(modref_list
));
245 local_wm
->next
->prev
=local_wm
;
246 local_wm
->next
->next
=NULL
;
247 local_wm
->next
->wm
=wm
;
248 local_wm
=local_wm
->next
;
252 local_wm
= malloc(sizeof(modref_list
));
253 local_wm
->next
=local_wm
->prev
=NULL
;
256 /* Remove recursion flag */
257 wm
->flags
&= ~WINE_MODREF_MARKER
;
261 retv
= MODULE_InitDll( wm
, DLL_PROCESS_ATTACH
, lpReserved
);
263 wm
->flags
|= WINE_MODREF_PROCESS_ATTACHED
;
267 TRACE("(%s,%p) - END\n", wm
->modname
, lpReserved
);
272 /*************************************************************************
273 * MODULE_DllProcessDetach
275 * Send DLL process detach notifications. See the comment about calling
276 * sequence at MODULE_DllProcessAttach. Unless the bForceDetach flag
277 * is set, only DLLs with zero refcount are notified.
279 static void MODULE_DllProcessDetach( WINE_MODREF
* wm
, WIN_BOOL bForceDetach
, LPVOID lpReserved
)
281 // WINE_MODREF *wm=local_wm;
282 //modref_list* l = local_wm;
283 wm
->flags
&= ~WINE_MODREF_PROCESS_ATTACHED
;
284 MODULE_InitDll( wm
, DLL_PROCESS_DETACH
, lpReserved
);
294 /***********************************************************************
295 * MODULE_LoadLibraryExA (internal)
297 * Load a PE style module according to the load order.
299 * The HFILE parameter is not used and marked reserved in the SDK. I can
300 * only guess that it should force a file to be mapped, but I rather
301 * ignore the parameter because it would be extremely difficult to
302 * integrate this with different types of module represenations.
305 static WINE_MODREF
*MODULE_LoadLibraryExA( LPCSTR libname
, HFILE hfile
, DWORD flags
)
307 DWORD err
= GetLastError();
309 // module_loadorder_t *plo;
311 SetLastError( ERROR_FILE_NOT_FOUND
);
312 TRACE("Trying native dll '%s'\n", libname
);
313 pwm
= PE_LoadLibraryExA(libname
, flags
);
317 TRACE("Trying ELF dll '%s'\n", libname
);
318 pwm
=(WINE_MODREF
*)ELFDLL_LoadLibraryExA(libname
, flags
);
321 // printf("0x%08x\n", pwm);
325 /* Initialize DLL just loaded */
326 TRACE("Loaded module '%s' at 0x%08x, \n", libname
, pwm
->module
);
327 /* Set the refCount here so that an attach failure will */
328 /* decrement the dependencies through the MODULE_FreeLibrary call. */
331 SetLastError( err
); /* restore last error */
336 WARN("Failed to load module '%s'; error=0x%08lx, \n", libname
, GetLastError());
340 /***********************************************************************
343 * NOTE: Assumes that the process critical section is held!
345 static WIN_BOOL
MODULE_FreeLibrary( WINE_MODREF
*wm
)
347 TRACE("(%s) - START\n", wm
->modname
);
349 /* Recursively decrement reference counts */
350 //MODULE_DecRefCount( wm );
352 /* Call process detach notifications */
353 MODULE_DllProcessDetach( wm
, FALSE
, NULL
);
355 PE_UnloadLibrary(wm
);
362 /***********************************************************************
363 * LoadLibraryExA (KERNEL32)
365 HMODULE WINAPI
LoadLibraryExA(LPCSTR libname
, HANDLE hfile
, DWORD flags
)
368 char* listpath
[] = { "", "", "/usr/lib/win32", "/usr/local/lib/win32", 0 };
369 extern char* def_path
;
377 SetLastError(ERROR_INVALID_PARAMETER
);
381 wm
=MODULE_FindModule(libname
);
382 if(wm
) return wm
->module
;
384 // if(fs_installed==0)
387 while (wm
== 0 && listpath
[++i
])
392 /* check just original file name */
393 strncpy(path
, libname
, 511);
395 /* check default user path */
396 strncpy(path
, def_path
, 300);
398 else if (strcmp(def_path
, listpath
[i
]))
399 /* path from the list */
400 strncpy(path
, listpath
[i
], 300);
407 strncat(path
, libname
, 100);
410 wm
= MODULE_LoadLibraryExA( path
, hfile
, flags
);
415 strcat(checked
, ", ");
416 strcat(checked
, path
);
423 if ( !MODULE_DllProcessAttach( wm
, NULL
) )
425 WARN_(module
)("Attach failed for module '%s', \n", libname
);
426 MODULE_FreeLibrary(wm
);
427 SetLastError(ERROR_DLL_INIT_FAILED
);
428 MODULE_RemoveFromList(wm
);
433 if (!wm
&& !strstr(checked
, "avisynth.dll"))
434 printf("Win32 LoadLibrary failed to load: %s\n", checked
);
436 #define RVA(x) ((char *)wm->module+(unsigned int)(x))
437 if (strstr(libname
,"vp31vfw.dll") && wm
)
441 // sse hack moved from patch dll into runtime patching
442 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x1000)) {
443 fprintf(stderr
, "VP3 DLL found\n");
444 for (i
=0;i
<18;i
++) RVA(0x4bd6)[i
]=0x90;
448 // remove a few divs in the VP codecs that make trouble
449 if (strstr(libname
,"vp5vfw.dll") && wm
)
452 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3930)) {
453 for (i
=0;i
<3;i
++) RVA(0x4e86)[i
]=0x90;
454 for (i
=0;i
<3;i
++) RVA(0x5a23)[i
]=0x90;
455 for (i
=0;i
<3;i
++) RVA(0x5bff)[i
]=0x90;
457 fprintf(stderr
, "Unsupported VP5 version\n");
462 if (strstr(libname
,"vp6vfw.dll") && wm
)
465 if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3ef0)) {
466 // looks like VP 6.1.0.2
467 for (i
=0;i
<6;i
++) RVA(0x7268)[i
]=0x90;
468 for (i
=0;i
<6;i
++) RVA(0x7e83)[i
]=0x90;
469 for (i
=0;i
<6;i
++) RVA(0x806a)[i
]=0x90;
470 } else if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x4120)) {
471 // looks like VP 6.2.0.10
472 for (i
=0;i
<6;i
++) RVA(0x7688)[i
]=0x90;
473 for (i
=0;i
<6;i
++) RVA(0x82c3)[i
]=0x90;
474 for (i
=0;i
<6;i
++) RVA(0x84aa)[i
]=0x90;
475 for (i
=0;i
<6;i
++) RVA(0x1d2cc)[i
]=0x90;
476 for (i
=0;i
<6;i
++) RVA(0x2179d)[i
]=0x90;
477 for (i
=0;i
<6;i
++) RVA(0x1977f)[i
]=0x90;
478 } else if (PE_FindExportedFunction(wm
, "DriverProc", TRUE
)==RVA(0x3e70)) {
479 // looks like VP 6.0.7.3
480 for (i
=0;i
<6;i
++) RVA(0x7559)[i
]=0x90;
481 for (i
=0;i
<6;i
++) RVA(0x81c3)[i
]=0x90;
482 for (i
=0;i
<6;i
++) RVA(0x839e)[i
]=0x90;
484 fprintf(stderr
, "Unsupported VP6 version\n");
489 // Windows Media Video 9 Advanced
490 if (strstr(libname
,"wmvadvd.dll") && wm
)
492 // The codec calls IsRectEmpty with coords 0,0,0,0 => result is 0
493 // but it really wants the rectangle to be not empty
494 if (PE_FindExportedFunction(wm
, "CreateInstance", TRUE
)==RVA(0xb812)) {
495 // Dll version is 10.0.0.3645
496 *RVA(0x8b0f)=0xeb; // Jump always, ignoring IsRectEmpty result
498 fprintf(stderr
, "Unsupported WMVA version\n");
503 if (strstr(libname
,"QuickTime.qts") && wm
)
509 // dispatch_addr = GetProcAddress(wm->module, "theQuickTimeDispatcher", TRUE);
510 dispatch_addr
= PE_FindExportedFunction(wm
, "theQuickTimeDispatcher", TRUE
);
511 if (dispatch_addr
== RVA(0x124c30))
513 fprintf(stderr
, "QuickTime5 DLLs found\n");
514 ptr
= (void **)RVA(0x375ca4); // dispatch_ptr
515 for (i
=0;i
<5;i
++) RVA(0x19e842)[i
]=0x90; // make_new_region ?
516 for (i
=0;i
<28;i
++) RVA(0x19e86d)[i
]=0x90; // call__call_CreateCompatibleDC ?
517 for (i
=0;i
<5;i
++) RVA(0x19e898)[i
]=0x90; // jmp_to_call_loadbitmap ?
518 for (i
=0;i
<9;i
++) RVA(0x19e8ac)[i
]=0x90; // call__calls_OLE_shit ?
519 for (i
=0;i
<106;i
++) RVA(0x261b10)[i
]=0x90; // disable threads
521 /* CreateThread callers */
522 for (i
=0;i
<5;i
++) RVA(0x1487c5)[i
]=0x90;
523 for (i
=0;i
<5;i
++) RVA(0x14b275)[i
]=0x90;
524 for (i
=0;i
<5;i
++) RVA(0x1a24b1)[i
]=0x90;
525 for (i
=0;i
<5;i
++) RVA(0x1afc5a)[i
]=0x90;
526 for (i
=0;i
<5;i
++) RVA(0x2f799c)[i
]=0x90;
527 for (i
=0;i
<5;i
++) RVA(0x2f7efe)[i
]=0x90;
528 for (i
=0;i
<5;i
++) RVA(0x2fa33e)[i
]=0x90;
532 /* TerminateQTML fix */
533 for (i
=0;i
<47;i
++) RVA(0x2fa3b8)[i
]=0x90; // terminate thread
534 for (i
=0;i
<47;i
++) RVA(0x2f7f78)[i
]=0x90; // terminate thread
535 for (i
=0;i
<77;i
++) RVA(0x1a13d5)[i
]=0x90;
536 RVA(0x08e0ae)[0] = 0xc3; // font/dc remover
537 for (i
=0;i
<24;i
++) RVA(0x07a1ad)[i
]=0x90; // destroy window
539 } else if (dispatch_addr
== RVA(0x13b330))
541 fprintf(stderr
, "QuickTime6 DLLs found\n");
542 ptr
= (void **)RVA(0x3b9524); // dispatcher_ptr
543 for (i
=0;i
<5;i
++) RVA(0x2730cc)[i
]=0x90; // make_new_region
544 for (i
=0;i
<28;i
++) RVA(0x2730f7)[i
]=0x90; // call__call_CreateCompatibleDC
545 for (i
=0;i
<5;i
++) RVA(0x273122)[i
]=0x90; // jmp_to_call_loadbitmap
546 for (i
=0;i
<9;i
++) RVA(0x273131)[i
]=0x90; // call__calls_OLE_shit
547 for (i
=0;i
<96;i
++) RVA(0x2ac852)[i
]=0x90; // disable threads
548 } else if (dispatch_addr
== RVA(0x13c3e0))
550 fprintf(stderr
, "QuickTime6.3 DLLs found\n");
551 ptr
= (void **)RVA(0x3ca01c); // dispatcher_ptr
552 for (i
=0;i
<5;i
++) RVA(0x268f6c)[i
]=0x90; // make_new_region
553 for (i
=0;i
<28;i
++) RVA(0x268f97)[i
]=0x90; // call__call_CreateCompatibleDC
554 for (i
=0;i
<5;i
++) RVA(0x268fc2)[i
]=0x90; // jmp_to_call_loadbitmap
555 for (i
=0;i
<9;i
++) RVA(0x268fd1)[i
]=0x90; // call__calls_OLE_shit
556 for (i
=0;i
<96;i
++) RVA(0x2b4722)[i
]=0x90; // disable threads
559 fprintf(stderr
, "Unsupported QuickTime version (%p)\n",
564 fprintf(stderr
,"QuickTime.qts patched!!! old entry=%p\n",ptr
[0]);
567 report_entry
= report_func
;
568 report_ret
= report_func_ret
;
569 wrapper_target
=ptr
[0];
575 return wm
? wm
->module
: 0;
579 /***********************************************************************
580 * LoadLibraryA (KERNEL32)
582 HMODULE WINAPI
LoadLibraryA(LPCSTR libname
) {
583 return LoadLibraryExA(libname
,0,0);
586 /***********************************************************************
589 WIN_BOOL WINAPI
FreeLibrary(HINSTANCE hLibModule
)
591 WIN_BOOL retv
= FALSE
;
594 wm
=MODULE32_LookupHMODULE(hLibModule
);
596 if ( !wm
|| !hLibModule
)
598 SetLastError( ERROR_INVALID_HANDLE
);
602 retv
= MODULE_FreeLibrary( wm
);
604 MODULE_RemoveFromList(wm
);
607 if (local_wm
== NULL
) my_garbagecollection();
612 /***********************************************************************
615 * NOTE: Assumes that the process critical section is held!
617 static void MODULE_DecRefCount( WINE_MODREF
*wm
)
621 if ( wm
->flags
& WINE_MODREF_MARKER
)
624 if ( wm
->refCount
<= 0 )
628 TRACE("(%s) refCount: %d\n", wm
->modname
, wm
->refCount
);
630 if ( wm
->refCount
== 0 )
632 wm
->flags
|= WINE_MODREF_MARKER
;
634 for ( i
= 0; i
< wm
->nDeps
; i
++ )
636 MODULE_DecRefCount( wm
->deps
[i
] );
638 wm
->flags
&= ~WINE_MODREF_MARKER
;
642 /***********************************************************************
643 * GetProcAddress (KERNEL32.257)
645 FARPROC WINAPI
GetProcAddress( HMODULE hModule
, LPCSTR function
)
647 return MODULE_GetProcAddress( hModule
, function
, TRUE
);
653 http://lists.apple.com/archives/quicktime-api/2003/Jan/msg00278.html
656 struct ComponentParameters
{
657 unsigned char flags
; /* call modifiers: sync/async, deferred, immed, etc */
658 unsigned char paramSize
; /* size in bytes of actual parameters passed to this call */
659 short what
; /* routine selector, negative for Component management calls */
660 long params
[1]; /* actual parameters for the indicated routine */
662 typedef struct ComponentParameters ComponentParameters
;
664 static char* component_func(int what
){
665 if (what
< 0) // Range 0: Standard Component Calls
667 case -1: return "kComponentOpenSelect";
668 case -2: return "kComponentCloseSelect";
669 case -3: return "kComponentCanDoSelect";
670 case -4: return "kComponentVersionSelect";
671 case -5: return "kComponentRegisterSelect";
672 case -6: return "kComponentTargetSelect";
673 case -7: return "kComponentUnregisterSelect";
676 if (what
>= 0 && what
<= 0xff) // Range 1: Generic codecs
678 case 0: return "kImageCodecGetCodecInfoSelect";
679 case 1: return "kImageCodecGetCompressionTimeSelect";
680 case 2: return "kImageCodecGetMaxCompressionSizeSelect";
681 case 3: return "kImageCodecPreCompressSelect";
682 case 4: return "kImageCodecBandCompressSelect";
683 case 5: return "kImageCodecPreDecompressSelect";
684 case 6: return "kImageCodecBandDecompressSelect";
685 case 7: return "kImageCodecBusySelect";
686 // finish this list from the above URL
687 case 0x10: return "kImageCodecIsImageDescriptionEquivalentSelect";
688 case 0x12: return "kImageCodecDisposeMemorySelect";
689 case 0x14: return "kImageCodecNewImageBufferMemorySelect";
690 case 0x28: return "kImageCodecRequestGammaLevelSelect";
693 //if (what >= 0x100 && what <= 0x1ff) // Range 2: Specific to QT Photo JPEG codecs
695 if (what
>= 0x200 && what
<= 0x2ff) // Range 3: Base Decompressor
697 case 0: return "Preflight";
698 case 1: return "Initialize";
699 case 2: return "BeginBand";
700 case 3: return "DrawBand";
701 case 4: return "EndBand";
702 case 5: return "QueueStarting";
703 case 6: return "QueueStopping";
709 static int c_level
=0;
711 static int dump_component(char* name
, int type
, void* orig
, ComponentParameters
*params
,void** glob
){
712 int ( *orig
)(ComponentParameters
*params
, void** glob
) = orig
;
715 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
));
717 for(i
=0;i
<params
->paramSize
/4;i
++)
718 fprintf(stderr
,"%*s param[%d] = 0x%X\n",3*c_level
,"",i
,params
->params
[i
]);
721 ret
=orig(params
,glob
);
725 fprintf(stderr
,"%*s return=0x%X\n",3*c_level
,"",ret
);
727 fprintf(stderr
,"%*s return=%d\n",3*c_level
,"",ret
);
731 #define DECL_COMPONENT(sname,name,type) \
732 static void* real_ ## sname = NULL; \
733 static int fake_ ## sname(ComponentParameters *params,void** glob){ \
734 return dump_component(name,type,real_ ## sname, params, glob); \
739 #undef DECL_COMPONENT
748 uint32_t _System
DosQueryMem(void *, uint32_t *, uint32_t *);
751 static int is_invalid_ptr_handle(void *p
)
757 if(DosQueryMem(p
, &cb
, &fl
))
760 // Occasionally, ptr with 'EXEC' attr is passed.
761 // On OS/2, however, malloc() never sets 'EXEC' attr.
762 // So ptr with 'EXEC' attr is invalid.
768 return (uint32_t)p
>= 0x60000000;
772 static uint32_t ret_array
[4096];
775 static int report_func(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
)
786 dptr
=0x62b67ae0;dptr
+=2*((reg
->eax
>>16)&255);
787 // printf("FUNC: flag=%d ptr=%p\n",dptr[0],dptr[1]);
789 dptr
=dptr
[1];dptr
+=4*(reg
->eax
&65535);
790 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",dptr[1],dptr[0],dptr[2]);
791 pwrapper
=dptr
[1]; pptr
=dptr
[0]; plen
=dptr
[2];
796 dptr
=0x62b672c0;dptr
+=2*(reg
->eax
&65535);
797 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
798 pptr
=dptr
[0]; plen
=dptr
[1];
801 dptr
=0x62b67c70;dptr
+=2*(reg
->eax
&65535);
802 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
803 pptr
=dptr
[0]; plen
=dptr
[1];
806 dptr
=0x62b68108;if(reg
->eax
&0x8000) dptr
+=2*(reg
->eax
|0xffff0000); else dptr
+=2*(reg
->eax
&65535);
807 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
808 pptr
=dptr
[0]; plen
=dptr
[1];
811 dptr
=0x62b68108;if(reg
->eax
&0x8000) dptr
+=2*(reg
->eax
|0xffff0000); else dptr
+=2*(reg
->eax
&65535);
812 // printf("FUNC: ptr2=%p eax=%p edx=%p\n",0x62924910,dptr[0],dptr[1]);
813 pptr
=dptr
[0]; plen
=dptr
[1];
816 printf("FUNC: unknown ptr & psize!\n");
821 for(i
=0;qt_fv_list
[i
].name
;i
++){
822 if(qt_fv_list
[i
].id
==reg
->eax
){
823 pname
=qt_fv_list
[i
].name
;
828 printf("FUNC[%X/%s]: wrapper=%p func=%p len=%d\n",reg
->eax
,
829 pname
?pname
:"???",pwrapper
,pptr
,plen
);
831 printf("FUNC: caller=%p ebx=%p\n",((uint32_t *)stack_base
)[0],reg
->ebx
);
834 printf("%*sENTER(%d): %s(",ret_i
*2,"",ret_i
,pname
);
836 printf("%*sENTER(%d): %X(",ret_i
*2,"",ret_i
,reg
->eax
);
837 for (i
=0;i
<plen
/4;i
++){
838 unsigned int val
=((uint32_t *)stack_base
)[1+i
];
839 unsigned char* fcc
=&val
;
840 printf("%s0x%X", i
?", ":"",val
);
841 if(fcc
[0]>=0x20 && fcc
[0]<128 &&
842 fcc
[1]>=0x20 && fcc
[1]<128 &&
843 fcc
[2]>=0x20 && fcc
[2]<128 &&
844 fcc
[3]>=0x20 && fcc
[3]<128) printf("='%c%c%c%c'",fcc
[3],fcc
[2],fcc
[1],fcc
[0]);
845 else if(val
>=8 && val
<65536) printf("=%d",val
);
852 // emulate some functions:
854 // memory management:
855 case 0x150011: //NewPtrClear
856 case 0x150012: //NewPtrSysClear
857 reg
->eax
= malloc(((uint32_t *)stack_base
)[1]);
858 memset((void *)reg
->eax
,0,((uint32_t *)stack_base
)[1]);
860 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
863 case 0x15000F: //NewPtr
864 case 0x150010: //NewPtrSys
865 reg
->eax
= malloc(((uint32_t *)stack_base
)[1]);
867 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
870 case 0x15002f: //DisposePtr
871 if(is_invalid_ptr_handle(((void **)stack_base
)[1]))
872 printf("WARNING! Invalid Ptr handle!\n");
874 free(((void **)stack_base
)[1]);
877 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
881 case 0x1d0033: //QTMLCreateMutex
884 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
887 case 0x1d0034: //QTMLDestroyMutex
888 case 0x1d0035: //QTMLGrabMutex
889 case 0x1d0036: //QTMLReturnMutex
890 case 0x1d003d: //QTMLTryGrabMutex
893 printf("%*sLEAVE(%d): EMULATED! 0x%X\n",ret_i
*2,"",ret_i
, reg
->eax
);
901 // printf("FUNC: ImageCodecInitialize/ImageCodecGetCodecInfo(ci=%p,&icap=%p)\n",((uint32_t *)stack_base)[1],((uint32_t *)stack_base)[4]);
904 printf("FUNC: CountComponents(&desc=%p)\n",((uint32_t *)stack_base
)[1]);
907 printf("FUNC: FindNextComponent(prev=%p,&desc=%p)\n",((uint32_t *)stack_base
)[1],((uint32_t *)stack_base
)[2]);
910 printf("FUNC: OpenComponent(prev=%p)\n",((uint32_t *)stack_base
)[1]);
913 printf("FUNC: QTNewGWorldFromPtr(&pts=%p,fourcc=%.4s,&rect=%p,x1=%p,x2=%p,x3=%p,plane=%p,stride=%d)\n",
914 ((uint32_t *)stack_base
)[1],
915 &(((uint32_t *)stack_base
)[2]),
916 ((uint32_t *)stack_base
)[3],
917 ((uint32_t *)stack_base
)[4],
918 ((uint32_t *)stack_base
)[5],
919 ((uint32_t *)stack_base
)[6],
920 ((uint32_t *)stack_base
)[7],
921 ((uint32_t *)stack_base
)[8]);
924 printf("FUNC: GetGWorldPixMap(gworld=%p)\n",((uint32_t *)stack_base
)[1]);
927 printf("FUNC: Gestalt(fourcc=%.4s, &ret=%p)\n",&(((uint32_t *)stack_base
)[1]),((uint32_t *)stack_base
)[2]);
931 for(i
=0;qt_fv_list
[i
].name
;i
++){
932 if(qt_fv_list
[i
].id
==reg
->eax
){
933 printf("FUNC: %s\n",qt_fv_list
[i
].name
);
940 // print stack/reg information
941 printf("ENTER(%d) stack = %d bytes @ %p\n"
942 "eax = 0x%08x edx = 0x%08x ebx = 0x%08x ecx = 0x%08x\n"
943 "esp = 0x%08x ebp = 0x%08x esi = 0x%08x edi = 0x%08x\n"
944 "flags = 0x%08x\n", ret_i
,
945 stack_size
, stack_base
,
946 reg
->eax
, reg
->edx
, reg
->ebx
, reg
->ecx
,
947 reg
->esp
, reg
->ebp
, reg
->esi
, reg
->edi
,
952 ret_array
[ret_i
]=((uint32_t *)stack_base
)[0];
956 // print first 7 longs in the stack (return address, arg[1], arg[2] ... )
957 printf("stack[] = { ");
959 printf("%08x ", ((uint32_t *)stack_base
)[i
]);
964 // // mess with function parameters
965 // ((uint32_t *)stack_base)[1] = 0x66554433;
967 // // mess with return address...
968 // reg->eax = 0x11223344;
972 static int report_func_ret(void *stack_base
, int stack_size
, reg386_t
*reg
, uint32_t *flags
)
981 ((uint32_t *)stack_base
)[0]=ret_array
[ret_i
];
986 printf("%*sLEAVE(%d): 0x%X",ret_i
*2,"",ret_i
, reg
->eax
);
988 if(err
&& (reg
->eax
>>16)==0) printf(" = %d",err
);
992 // print stack/reg information
993 printf("LEAVE(%d) stack = %d bytes @ %p\n"
994 "eax = 0x%08x edx = 0x%08x ebx = 0x%08x ecx = 0x%08x\n"
995 "esp = 0x%08x ebp = 0x%08x esi = 0x%08x edi = 0x%08x\n"
996 "flags = 0x%08x\n", ret_i
,
997 stack_size
, stack_base
,
998 reg
->eax
, reg
->edx
, reg
->ebx
, reg
->ecx
,
999 reg
->esp
, reg
->ebp
, reg
->esi
, reg
->edi
,
1004 // print first 7 longs in the stack (return address, arg[1], arg[2] ... )
1005 printf("stack[] = { ");
1007 printf("%08x ", ((uint32_t *)stack_base
)[i
]);
1014 // // mess with function parameters
1015 // ((uint32_t *)stack_base)[1] = 0x66554433;
1017 // // mess with return address...
1018 // reg->eax = 0x11223344;
1024 /***********************************************************************
1025 * MODULE_GetProcAddress (internal)
1027 FARPROC
MODULE_GetProcAddress(
1028 HMODULE hModule
, /* [in] current module handle */
1029 LPCSTR function
, /* [in] function to be looked up */
1032 WINE_MODREF
*wm
= MODULE32_LookupHMODULE( hModule
);
1033 // WINE_MODREF *wm=local_wm;
1036 #ifdef DEBUG_QTX_API
1037 if (HIWORD(function
))
1038 fprintf(stderr
,"XXX GetProcAddress(%08lx,%s)\n",(DWORD
)hModule
,function
);
1040 fprintf(stderr
,"XXX GetProcAddress(%08lx,%p)\n",(DWORD
)hModule
,function
);
1043 // TRACE_(win32)("(%08lx,%s)\n",(DWORD)hModule,function);
1045 // TRACE_(win32)("(%08lx,%p)\n",(DWORD)hModule,function);
1048 SetLastError(ERROR_INVALID_HANDLE
);
1054 retproc
= PE_FindExportedFunction( wm
, function
, snoop
);
1055 if (!retproc
) SetLastError(ERROR_PROC_NOT_FOUND
);
1059 retproc
= (FARPROC
) dlsym( (void*) wm
->module
, function
);
1060 if (!retproc
) SetLastError(ERROR_PROC_NOT_FOUND
);
1064 ERR("wine_modref type %d not handled.\n",wm
->type
);
1065 SetLastError(ERROR_INVALID_HANDLE
);
1070 if (HIWORD(function
) && retproc
){
1072 #ifdef DEBUG_QTX_API
1073 #define DECL_COMPONENT(sname,name,type) \
1074 if(!strcmp(function,name)){ \
1075 fprintf(stderr,name "dispatcher catched -> %p\n",retproc); \
1076 real_ ## sname = retproc; retproc = fake_ ## sname; \
1078 #include "qt_comp.h"
1079 #undef DECL_COMPONENT
1082 if(!strcmp(function
,"theQuickTimeDispatcher")
1083 // || !strcmp(function,"CallComponentFunctionWithStorage")
1084 // || !strcmp(function,"CallComponent")
1086 fprintf(stderr
,"theQuickTimeDispatcher catched -> %p\n",retproc
);
1087 report_entry
= report_func
;
1088 report_ret
= report_func_ret
;
1089 wrapper_target
=(void(*)(void))retproc
;
1090 retproc
=(FARPROC
)wrapper
;
1099 static int acounter
= 0;
1100 void CodecAlloc(void)
1103 //printf("**************CODEC ALLOC %d\n", acounter);
1106 void CodecRelease(void)
1109 //printf("**************CODEC RELEASE %d\n", acounter);
1114 modref_list
* list
= local_wm
;
1117 //printf("CODECRELEASE %p\n", list);
1118 MODULE_FreeLibrary(list
->wm
);
1119 MODULE_RemoveFromList(list
->wm
);
1120 if (local_wm
== NULL
)
1121 my_garbagecollection();