Implemented KERNEL.602 and stub for KERNEL.490.

This commit is contained in:
Ulrich Weigand 1998-11-26 14:58:11 +00:00 committed by Alexandre Julliard
parent f76dac45b3
commit b9eab15d5c
2 changed files with 28 additions and 2 deletions

View file

@ -394,7 +394,7 @@ file krnl386.exe
487 stub MapProcessHandle
488 pascal GetModuleHandle32(str) GetModuleHandle32A
489 stub KERNEL_489 # VWin32_BoostWithDecay
490 stub KERNEL_490
490 pascal16 KERNEL_490(word) KERNEL_490
491 pascal RegisterServiceProcess(long long) RegisterServiceProcess
492 stub WOAAbort
493 stub UTInit
@ -469,7 +469,7 @@ file krnl386.exe
600 stub KERNEL_600 # AllocSelector (?)
601 stub KERNEL_601 # FreeSelector (?)
602 stub GetCurrentHInstanceDS
602 register GetDummyModuleHandleDS() GetDummyModuleHandleDS
603 stub KERNEL_603 # OutputDebugString (?)
604 register CBClientGlueSL() CBClientGlueSL
605 pascal AllocSLThunkletCallback(long long) AllocSLThunkletCallback

View file

@ -1074,6 +1074,16 @@ void WINAPI Yield16(void)
else OldYield();
}
/***********************************************************************
* KERNEL_490 (KERNEL.490)
*/
HTASK16 WINAPI KERNEL_490( HTASK16 someTask )
{
if ( !someTask ) return 0;
FIXME( task, "(%04x): stub\n", someTask );
return 0;
}
/***********************************************************************
* MakeProcInstance16 (KERNEL.51)
@ -1511,6 +1521,22 @@ HINSTANCE16 WINAPI GetTaskDS(void)
return pTask->hInstance;
}
/***********************************************************************
* GetDummyModuleHandleDS (KERNEL.602)
*/
VOID WINAPI GetDummyModuleHandleDS( CONTEXT *context )
{
TDB *pTask;
WORD selector;
AX_reg( context ) = 0;
if (!(pTask = (TDB *)GlobalLock16( GetCurrentTask() ))) return;
if (!(pTask->flags & TDBF_WIN32)) return;
selector = GlobalHandleToSel( pTask->hModule );
DS_reg( context ) = selector;
AX_reg( context ) = selector;
}
/***********************************************************************
* IsTask (KERNEL.320)