?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Release 980628
[wine/gsoc-2012-control.git] / loader / task.c
blob5483f0f5f2bebc8f8bde29a450386e0c79df8dd6
1 /*
2 * Task functions
3 *
4 * Copyright 1995 Alexandre Julliard
5 */
6
7 #include <stdlib.h>
8 #include <string.h>
9
10 #include "windows.h"
11 #include "user.h"
12 #include "callback.h"
13 #include "drive.h"
14 #include "file.h"
15 #include "global.h"
16 #include "instance.h"
17 #include "message.h"
18 #include "miscemu.h"
19 #include "module.h"
20 #include "neexe.h"
21 #include "peexe.h"
22 #include "pe_image.h"
23 #include "process.h"
24 #include "queue.h"
25 #include "selectors.h"
26 #include "stackframe.h"
27 #include "task.h"
28 #include "thread.h"
29 #include "toolhelp.h"
30 #include "winnt.h"
31 #include "winsock.h"
32 #include "thread.h"
33 #include "debug.h"
34 #include "dde_proc.h"
35
36 /* Min. number of thunks allocated when creating a new segment */
37 #define MIN_THUNKS 32
38
39 /* Pointer to function to switch to a larger stack */
40 int (*IF1632_CallLargeStack)( int (*func)(), void *arg ) = NULL;
41
42 static HTASK16 hFirstTask = 0;
43 static HTASK16 hCurrentTask = 0;
44 static HTASK16 hTaskToKill = 0;
45 static HTASK16 hLockedTask = 0;
46 static UINT16 nTaskCount = 0;
47
48 static void TASK_YieldToSystem(TDB*);
49
50
51 /***********************************************************************
52 * TASK_GetNextTask
53 */
54 HTASK16 TASK_GetNextTask( HTASK16 hTask )
55 {
56 TDB* pTask = (TDB*)GlobalLock16(hTask);
57
58 if (pTask->hNext) return pTask->hNext;
59 return (hFirstTask != hTask) ? hFirstTask : 0;
60 }
61
62
63 /***********************************************************************
64 * TASK_LinkTask
65 */
66 static void TASK_LinkTask( HTASK16 hTask )
67 {
68 HTASK16 *prevTask;
69 TDB *pTask;
70
71 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return;
72 prevTask = &hFirstTask;
73 while (*prevTask)
74 {
75 TDB *prevTaskPtr = (TDB *)GlobalLock16( *prevTask );
76 if (prevTaskPtr->priority >= pTask->priority) break;
77 prevTask = &prevTaskPtr->hNext;
78 }
79 pTask->hNext = *prevTask;
80 *prevTask = hTask;
81 nTaskCount++;
82 }
83
84
85 /***********************************************************************
86 * TASK_UnlinkTask
87 */
88 static void TASK_UnlinkTask( HTASK16 hTask )
89 {
90 HTASK16 *prevTask;
91 TDB *pTask;
92
93 prevTask = &hFirstTask;
94 while (*prevTask && (*prevTask != hTask))
95 {
96 pTask = (TDB *)GlobalLock16( *prevTask );
97 prevTask = &pTask->hNext;
98 }
99 if (*prevTask)
100 {
101 pTask = (TDB *)GlobalLock16( *prevTask );
102 *prevTask = pTask->hNext;
103 pTask->hNext = 0;
104 nTaskCount--;
105 }
106 }
107
108
109 /***********************************************************************
110 * TASK_CreateThunks
111 *
112 * Create a thunk free-list in segment 'handle', starting from offset 'offset'
113 * and containing 'count' entries.
114 */
115 static void TASK_CreateThunks( HGLOBAL16 handle, WORD offset, WORD count )
116 {
117 int i;
118 WORD free;
119 THUNKS *pThunk;
120
121 pThunk = (THUNKS *)((BYTE *)GlobalLock16( handle ) + offset);
122 pThunk->next = 0;
123 pThunk->magic = THUNK_MAGIC;
124 pThunk->free = (int)&pThunk->thunks - (int)pThunk;
125 free = pThunk->free;
126 for (i = 0; i < count-1; i++)
127 {
128 free += 8; /* Offset of next thunk */
129 pThunk->thunks[4*i] = free;
130 }
131 pThunk->thunks[4*i] = 0; /* Last thunk */
132 }
133
134
135 /***********************************************************************
136 * TASK_AllocThunk
137 *
138 * Allocate a thunk for MakeProcInstance().
139 */
140 static SEGPTR TASK_AllocThunk( HTASK16 hTask )
141 {
142 TDB *pTask;
143 THUNKS *pThunk;
144 WORD sel, base;
145
146 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return 0;
147 sel = pTask->hCSAlias;
148 pThunk = &pTask->thunks;
149 base = (int)pThunk - (int)pTask;
150 while (!pThunk->free)
151 {
152 sel = pThunk->next;
153 if (!sel) /* Allocate a new segment */
154 {
155 sel = GLOBAL_Alloc( GMEM_FIXED, sizeof(THUNKS) + (MIN_THUNKS-1)*8,
156 pTask->hPDB, TRUE, FALSE, FALSE );
157 if (!sel) return (SEGPTR)0;
158 TASK_CreateThunks( sel, 0, MIN_THUNKS );
159 pThunk->next = sel;
160 }
161 pThunk = (THUNKS *)GlobalLock16( sel );
162 base = 0;
163 }
164 base += pThunk->free;
165 pThunk->free = *(WORD *)((BYTE *)pThunk + pThunk->free);
166 return PTR_SEG_OFF_TO_SEGPTR( sel, base );
167 }
168
169
170 /***********************************************************************
171 * TASK_FreeThunk
172 *
173 * Free a MakeProcInstance() thunk.
174 */
175 static BOOL32 TASK_FreeThunk( HTASK16 hTask, SEGPTR thunk )
176 {
177 TDB *pTask;
178 THUNKS *pThunk;
179 WORD sel, base;
180
181 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return 0;
182 sel = pTask->hCSAlias;
183 pThunk = &pTask->thunks;
184 base = (int)pThunk - (int)pTask;
185 while (sel && (sel != HIWORD(thunk)))
186 {
187 sel = pThunk->next;
188 pThunk = (THUNKS *)GlobalLock16( sel );
189 base = 0;
190 }
191 if (!sel) return FALSE;
192 *(WORD *)((BYTE *)pThunk + LOWORD(thunk) - base) = pThunk->free;
193 pThunk->free = LOWORD(thunk) - base;
194 return TRUE;
195 }
196
197
198 /***********************************************************************
199 * TASK_CallToStart
200 *
201 * 32-bit entry point for a new task. This function is responsible for
202 * setting up the registers and jumping to the 16-bit entry point.
203 */
204 static void TASK_CallToStart(void)
205 {
206 int exit_code = 1;
207 TDB *pTask = (TDB *)GlobalLock16( hCurrentTask );
208 NE_MODULE *pModule = NE_GetPtr( pTask->hModule );
209 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
210
211 SET_CUR_THREAD( pTask->thdb );
212 /* Terminate the stack frame */
213 THREAD_STACK16(pTask->thdb)->frame32 = NULL;
214 if (pModule->flags & NE_FFLAGS_WIN32)
215 {
216 /* FIXME: all this is an ugly hack */
217
218 FARPROC32 entry = (FARPROC32)RVA_PTR( PROCESS_Current()->exe_modref->module, OptionalHeader.AddressOfEntryPoint );
219
220 pTask->userhandler = (USERSIGNALPROC)&USER_SignalProc;
221 if (pModule->heap_size)
222 LocalInit( pTask->hInstance, 0, pModule->heap_size );
223
224 InitApp( pTask->hModule );
225 PE_InitializeDLLs( PROCESS_Current(), DLL_PROCESS_ATTACH, (LPVOID)-1 );
226 TRACE(relay, "(entryproc=%p)\n", entry );
227 exit_code = entry();
228 TASK_KillCurrentTask( exit_code );
229 }
230 else
231 {
232 /* Registers at initialization must be:
233 * ax zero
234 * bx stack size in bytes
235 * cx heap size in bytes
236 * si previous app instance
237 * di current app instance
238 * bp zero
239 * es selector to the PSP
240 * ds dgroup of the application
241 * ss stack selector
242 * sp top of the stack
243 */
244 CONTEXT context;
245
246 memset( &context, 0, sizeof(context) );
247 CS_reg(&context) = pSegTable[pModule->cs - 1].selector;
248 DS_reg(&context) = pSegTable[pModule->dgroup - 1].selector;
249 ES_reg(&context) = pTask->hPDB;
250 EIP_reg(&context) = pModule->ip;
251 EBX_reg(&context) = pModule->stack_size;
252 ECX_reg(&context) = pModule->heap_size;
253 EDI_reg(&context) = context.SegDs;
254
255 TRACE(task, "Starting main program: cs:ip=%04lx:%04x ds=%04lx ss:sp=%04x:%04x\n",
256 CS_reg(&context), IP_reg(&context), DS_reg(&context),
257 SELECTOROF(pTask->thdb->cur_stack),
258 OFFSETOF(pTask->thdb->cur_stack) );
259
260 Callbacks->CallRegisterShortProc( &context, 0 );
261 /* This should never return */
262 ERR( task, "Main program returned! (should never happen)\n" );
263 TASK_KillCurrentTask( 1 );
264 }
265 }
266
267
268 /***********************************************************************
269 * TASK_Create
270 */
271 HTASK16 TASK_Create( THDB *thdb, NE_MODULE *pModule, HINSTANCE16 hInstance,
272 HINSTANCE16 hPrevInstance, UINT16 cmdShow)
273 {
274 HTASK16 hTask;
275 TDB *pTask;
276 LPSTR cmd_line;
277 WORD sp;
278 char *stack32Top;
279 char name[10];
280 STACK16FRAME *frame16;
281 STACK32FRAME *frame32;
282 PDB32 *pdb32 = thdb->process;
283 SEGTABLEENTRY *pSegTable = NE_SEG_TABLE( pModule );
284
285 /* Allocate the task structure */
286
287 hTask = GLOBAL_Alloc( GMEM_FIXED | GMEM_ZEROINIT, sizeof(TDB),
288 pModule->self, FALSE, FALSE, FALSE );
289 if (!hTask) return 0;
290 pTask = (TDB *)GlobalLock16( hTask );
291
292 /* Fill the task structure */
293
294 pTask->nEvents = 1; /* So the task can be started */
295 pTask->hSelf = hTask;
296 pTask->flags = 0;
297
298 if (pModule->flags & NE_FFLAGS_WIN32)
299 pTask->flags |= TDBF_WIN32;
300
301 pTask->version = pModule->expected_version;
302 pTask->hInstance = hInstance;
303 pTask->hPrevInstance = hPrevInstance;
304 pTask->hModule = pModule->self;
305 pTask->hParent = hCurrentTask;
306 pTask->magic = TDB_MAGIC;
307 pTask->nCmdShow = cmdShow;
308 pTask->thdb = thdb;
309 pTask->curdrive = DRIVE_GetCurrentDrive() | 0x80;
310 strcpy( pTask->curdir, "\\" );
311 lstrcpyn32A( pTask->curdir + 1, DRIVE_GetDosCwd( DRIVE_GetCurrentDrive() ),
312 sizeof(pTask->curdir) - 1 );
313
314 /* Create the thunks block */
315
316 TASK_CreateThunks( hTask, (int)&pTask->thunks - (int)pTask, 7 );
317
318 /* Copy the module name */
319
320 GetModuleName( pModule->self, name, sizeof(name) );
321 strncpy( pTask->module_name, name, sizeof(pTask->module_name) );
322
323 /* Allocate a selector for the PDB */
324
325 pTask->hPDB = GLOBAL_CreateBlock( GMEM_FIXED, &pTask->pdb, sizeof(PDB),
326 pModule->self, FALSE, FALSE, FALSE, NULL );
327
328 /* Fill the PDB */
329
330 pTask->pdb.int20 = 0x20cd;
331 pTask->pdb.dispatcher[0] = 0x9a; /* ljmp */
332 PUT_DWORD(&pTask->pdb.dispatcher[1], (DWORD)NE_GetEntryPoint(
333 GetModuleHandle16("KERNEL"), 102 )); /* KERNEL.102 is DOS3Call() */
334 pTask->pdb.savedint22 = INT_GetHandler( 0x22 );
335 pTask->pdb.savedint23 = INT_GetHandler( 0x23 );
336 pTask->pdb.savedint24 = INT_GetHandler( 0x24 );
337 pTask->pdb.fileHandlesPtr =
338 PTR_SEG_OFF_TO_SEGPTR( GlobalHandleToSel(pTask->hPDB),
339 (int)&((PDB *)0)->fileHandles );
340 pTask->pdb.hFileHandles = 0;
341 memset( pTask->pdb.fileHandles, 0xff, sizeof(pTask->pdb.fileHandles) );
342 pTask->pdb.environment = pdb32->env_db->env_sel;
343 pTask->pdb.nbFiles = 20;
344
345 /* Fill the command line */
346
347 cmd_line = pdb32->env_db->cmd_line;
348 while (*cmd_line && (*cmd_line != ' ') && (*cmd_line != '\t')) cmd_line++;
349 while ((*cmd_line == ' ') || (*cmd_line == '\t')) cmd_line++;
350 lstrcpyn32A( pTask->pdb.cmdLine+1, cmd_line, sizeof(pTask->pdb.cmdLine)-1);
351 pTask->pdb.cmdLine[0] = strlen( pTask->pdb.cmdLine + 1 );
352
353 /* Get the compatibility flags */
354
355 pTask->compat_flags = GetProfileInt32A( "Compatibility", name, 0 );
356
357 /* Allocate a code segment alias for the TDB */
358
359 pTask->hCSAlias = GLOBAL_CreateBlock( GMEM_FIXED, (void *)pTask,
360 sizeof(TDB), pTask->hPDB, TRUE,
361 FALSE, FALSE, NULL );
362
363 /* Set the owner of the environment block */
364
365 FarSetOwner( pTask->pdb.environment, pTask->hPDB );
366
367 /* Default DTA overwrites command-line */
368
369 pTask->dta = PTR_SEG_OFF_TO_SEGPTR( pTask->hPDB,
370 (int)&pTask->pdb.cmdLine - (int)&pTask->pdb );
371
372 /* Create the 16-bit stack frame */
373
374 if (!(sp = pModule->sp))
375 sp = pSegTable[pModule->ss-1].minsize + pModule->stack_size;
376 sp &= ~1;
377 pTask->thdb->cur_stack = PTR_SEG_OFF_TO_SEGPTR( pTask->hInstance, sp );
378 pTask->thdb->cur_stack -= sizeof(STACK16FRAME) + sizeof(STACK32FRAME *);
379 frame16 = (STACK16FRAME *)PTR_SEG_TO_LIN( pTask->thdb->cur_stack );
380 frame16->ebp = sp + (int)&((STACK16FRAME *)0)->bp;
381 frame16->bp = LOWORD(frame16->ebp);
382 frame16->ds = frame16->es = pTask->hInstance;
383 frame16->entry_point = 0;
384 frame16->entry_cs = 0;
385 /* The remaining fields will be initialized in TASK_Reschedule */
386
387 /* Create the 32-bit stack frame */
388
389 stack32Top = (char*)pTask->thdb->teb.stack_top;
390 frame16->frame32 = frame32 = (STACK32FRAME *)stack32Top - 1;
391 frame32->frame16 = pTask->thdb->cur_stack + sizeof(STACK16FRAME);
392 frame32->edi = 0;
393 frame32->esi = 0;
394 frame32->edx = 0;
395 frame32->ecx = 0;
396 frame32->ebx = 0;
397 frame32->retaddr = (DWORD)TASK_CallToStart;
398 /* The remaining fields will be initialized in TASK_Reschedule */
399
400 if (!THREAD_Current()->cur_stack)
401 THREAD_Current()->cur_stack = pTask->thdb->cur_stack;
402
403 /* Add the task to the linked list */
404
405 TASK_LinkTask( hTask );
406
407 TRACE(task, "module='%s' cmdline='%s' task=%04x\n",
408 name, cmd_line, hTask );
409
410 return hTask;
411 }
412
413
414 /***********************************************************************
415 * TASK_DeleteTask
416 */
417 static void TASK_DeleteTask( HTASK16 hTask )
418 {
419 TDB *pTask;
420 HGLOBAL16 hPDB;
421
422 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return;
423 hPDB = pTask->hPDB;
424
425 pTask->magic = 0xdead; /* invalidate signature */
426
427 /* Delete the Win32 part of the task */
428
429 K32OBJ_DecCount( &pTask->thdb->process->header );
430 K32OBJ_DecCount( &pTask->thdb->header );
431
432 /* Free the task module */
433
434 FreeModule16( pTask->hModule );
435
436 /* Free the selector aliases */
437
438 GLOBAL_FreeBlock( pTask->hCSAlias );
439 GLOBAL_FreeBlock( pTask->hPDB );
440
441 /* Free the task structure itself */
442
443 GlobalFree16( hTask );
444
445 /* Free all memory used by this task (including the 32-bit stack, */
446 /* the environment block and the thunk segments). */
447
448 GlobalFreeAll( hPDB );
449 }
450
451
452 /***********************************************************************
453 * TASK_KillCurrentTask
454 *
455 * Kill the currently running task. As it's not possible to kill the
456 * current task like this, it is simply marked for destruction, and will
457 * be killed when either TASK_Reschedule or this function is called again
458 * in the context of another task.
459 */
460 void TASK_KillCurrentTask( INT16 exitCode )
461 {
462 TDB* pTask = (TDB*) GlobalLock16( hCurrentTask );
463 if (!pTask) USER_ExitWindows(); /* No current task yet */
464
465 TRACE(task, "Killing task %04x\n", hCurrentTask );
466
467 /* Delete active sockets */
468
469 if( pTask->pwsi )
470 WINSOCK_DeleteTaskWSI( pTask, pTask->pwsi );
471
472 /* Perform USER cleanup */
473
474 if (pTask->userhandler)
475 pTask->userhandler( hCurrentTask, USIG_TERMINATION, 0,
476 pTask->hInstance, pTask->hQueue );
477
478 if (hTaskToKill && (hTaskToKill != hCurrentTask))
479 {
480 /* If another task is already marked for destruction, */
481 /* we can kill it now, as we are in another context. */
482 TASK_DeleteTask( hTaskToKill );
483 }
484
485 if (nTaskCount <= 1)
486 {
487 TRACE(task, "this is the last task, exiting\n" );
488 USER_ExitWindows();
489 }
490
491 /* Remove the task from the list to be sure we never switch back to it */
492 TASK_UnlinkTask( hCurrentTask );
493 if( nTaskCount )
494 {
495 TDB* p = (TDB *)GlobalLock16( hFirstTask );
496 while( p )
497 {
498 if( p->hYieldTo == hCurrentTask ) p->hYieldTo = 0;
499 p = (TDB *)GlobalLock16( p->hNext );
500 }
501 }
502
503 hTaskToKill = hCurrentTask;
504 hLockedTask = 0;
505
506 pTask->nEvents = 0;
507 TASK_YieldToSystem(pTask);
508
509 /* We should never return from this Yield() */
510
511 ERR(task,"Return of the living dead %04x!!!\n", hCurrentTask);
512 exit(1);
513 }
514
515 /***********************************************************************
516 * TASK_Reschedule
517 *
518 * This is where all the magic of task-switching happens!
519 *
520 * Note: This function should only be called via the TASK_YieldToSystem()
521 * wrapper, to make sure that all the context is saved correctly.
522 *
523 * It must not call functions that may yield control.
524 */
525 void TASK_Reschedule(void)
526 {
527 TDB *pOldTask = NULL, *pNewTask;
528 HTASK16 hTask = 0;
529 STACK16FRAME *newframe16;
530
531 #ifdef CONFIG_IPC
532 dde_reschedule();
533 #endif
534 /* First check if there's a task to kill */
535
536 if (hTaskToKill && (hTaskToKill != hCurrentTask))
537 {
538 TASK_DeleteTask( hTaskToKill );
539 hTaskToKill = 0;
540 }
541
542 /* Find a task to yield to */
543
544 pOldTask = (TDB *)GlobalLock16( hCurrentTask );
545 if (pOldTask && pOldTask->hYieldTo)
546 {
547 /* check for DirectedYield() */
548
549 hTask = pOldTask->hYieldTo;
550 pNewTask = (TDB *)GlobalLock16( hTask );
551 if( !pNewTask || !pNewTask->nEvents) hTask = 0;
552 pOldTask->hYieldTo = 0;
553 }
554
555 /* extract hardware events only! */
556
557 if (!hTask) EVENT_WaitNetEvent( FALSE, TRUE );
558
559 while (!hTask)
560 {
561 /* Find a task that has an event pending */
562
563 hTask = hFirstTask;
564 while (hTask)
565 {
566 pNewTask = (TDB *)GlobalLock16( hTask );
567
568 TRACE(task, "\ttask = %04x, events = %i\n", hTask, pNewTask->nEvents);
569
570 if (pNewTask->nEvents) break;
571 hTask = pNewTask->hNext;
572 }
573 if (hLockedTask && (hTask != hLockedTask)) hTask = 0;
574 if (hTask) break;
575
576 /* No task found, wait for some events to come in */
577
578 EVENT_WaitNetEvent( TRUE, TRUE );
579 }
580
581 if (hTask == hCurrentTask)
582 {
583 TRACE(task, "returning to the current task(%04x)\n", hTask );
584 return; /* Nothing to do */
585 }
586 pNewTask = (TDB *)GlobalLock16( hTask );
587 TRACE(task, "Switching to task %04x (%.8s)\n",
588 hTask, pNewTask->module_name );
589
590 /* Make the task the last in the linked list (round-robin scheduling) */
591
592 pNewTask->priority++;
593 TASK_UnlinkTask( hTask );
594 TASK_LinkTask( hTask );
595 pNewTask->priority--;
596
597 /* Finish initializing the new task stack if necessary */
598
599 newframe16 = THREAD_STACK16( pNewTask->thdb );
600 if (!newframe16->entry_cs)
601 {
602 STACK16FRAME *oldframe16 = CURRENT_STACK16;
603 STACK32FRAME *oldframe32 = oldframe16->frame32;
604 STACK32FRAME *newframe32 = newframe16->frame32;
605 newframe16->entry_ip = oldframe16->entry_ip;
606 newframe16->entry_cs = oldframe16->entry_cs;
607 newframe16->ip = oldframe16->ip;
608 newframe16->cs = oldframe16->cs;
609 newframe32->ebp = oldframe32->ebp;
610 newframe32->restore_addr = oldframe32->restore_addr;
611 newframe32->codeselector = oldframe32->codeselector;
612 }
613
614 /* Switch to the new stack */
615
616 hCurrentTask = hTask;
617 SET_CUR_THREAD( pNewTask->thdb );
618 pNewTask->ss_sp = pNewTask->thdb->cur_stack;
619 }
620
621
622 /***********************************************************************
623 * TASK_YieldToSystem
624 *
625 * Scheduler interface, this way we ensure that all "unsafe" events are
626 * processed outside the scheduler.
627 */
628 void TASK_YieldToSystem(TDB* pTask)
629 {
630 MESSAGEQUEUE* pQ;
631
632 Callbacks->CallTaskRescheduleProc();
633
634 if( pTask )
635 {
636 pQ = (MESSAGEQUEUE*)GlobalLock16(pTask->hQueue);
637 if( pQ && pQ->flags & QUEUE_FLAG_XEVENT &&
638 !(pQ->wakeBits & (QS_SENDMESSAGE | QS_SMRESULT)) )
639 {
640 pQ->flags &= ~QUEUE_FLAG_XEVENT;
641 EVENT_WaitNetEvent( FALSE, FALSE );
642 }
643 }
644 }
645
646
647 /***********************************************************************
648 * InitTask (KERNEL.91)
649 *
650 * Called by the application startup code.
651 */
652 void WINAPI InitTask( CONTEXT *context )
653 {
654 TDB *pTask;
655 NE_MODULE *pModule;
656 SEGTABLEENTRY *pSegTable;
657 INSTANCEDATA *pinstance;
658 LONG stacklow, stackhi;
659
660 if (context) EAX_reg(context) = 0;
661 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return;
662 if (!(pModule = NE_GetPtr( pTask->hModule ))) return;
663
664 /* This is a hack to install task USER signal handler before
665 * implicitly loaded DLLs are initialized (see windows/user.c) */
666
667 pTask->userhandler = (USERSIGNALPROC)&USER_SignalProc;
668
669 /* Initialize implicitly loaded DLLs */
670 NE_InitializeDLLs( pTask->hModule );
671
672 if (context)
673 {
674 /* Registers on return are:
675 * ax 1 if OK, 0 on error
676 * cx stack limit in bytes
677 * dx cmdShow parameter
678 * si instance handle of the previous instance
679 * di instance handle of the new task
680 * es:bx pointer to command-line inside PSP
681 */
682 EAX_reg(context) = 1;
683
684 if (!pTask->pdb.cmdLine[0]) EBX_reg(context) = 0x80;
685 else
686 {
687 LPBYTE p = &pTask->pdb.cmdLine[1];
688 while ((*p == ' ') || (*p == '\t')) p++;
689 EBX_reg(context) = 0x80 + (p - pTask->pdb.cmdLine);
690 }
691 ECX_reg(context) = pModule->stack_size;
692 EDX_reg(context) = pTask->nCmdShow;
693 ESI_reg(context) = (DWORD)pTask->hPrevInstance;
694 EDI_reg(context) = (DWORD)pTask->hInstance;
695 ES_reg (context) = (WORD)pTask->hPDB;
696 }
697
698 /* Initialize the local heap */
699 if ( pModule->heap_size )
700 {
701 LocalInit( pTask->hInstance, 0, pModule->heap_size );
702 }
703
704 /* Initialize the INSTANCEDATA structure */
705 pSegTable = NE_SEG_TABLE( pModule );
706 stacklow = pSegTable[pModule->ss - 1].minsize;
707 stackhi = stacklow + pModule->stack_size;
708 if (stackhi > 0xffff) stackhi = 0xffff;
709 pinstance = (INSTANCEDATA *)PTR_SEG_OFF_TO_LIN(CURRENT_DS, 0);
710 pinstance->stackbottom = stackhi; /* yup, that's right. Confused me too. */
711 pinstance->stacktop = stacklow;
712 pinstance->stackmin = OFFSETOF( pTask->thdb->cur_stack );
713 }
714
715
716 /***********************************************************************
717 * WaitEvent (KERNEL.30)
718 */
719 BOOL16 WINAPI WaitEvent( HTASK16 hTask )
720 {
721 TDB *pTask;
722
723 if (!hTask) hTask = hCurrentTask;
724 pTask = (TDB *)GlobalLock16( hTask );
725 if (pTask->nEvents > 0)
726 {
727 pTask->nEvents--;
728 return FALSE;
729 }
730 TASK_YieldToSystem(pTask);
731
732 /* When we get back here, we have an event */
733
734 if (pTask->nEvents > 0) pTask->nEvents--;
735 return TRUE;
736 }
737
738
739 /***********************************************************************
740 * PostEvent (KERNEL.31)
741 */
742 void WINAPI PostEvent( HTASK16 hTask )
743 {
744 TDB *pTask;
745
746 if (!hTask) hTask = hCurrentTask;
747 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return;
748 pTask->nEvents++;
749 }
750
751
752 /***********************************************************************
753 * SetPriority (KERNEL.32)
754 */
755 void WINAPI SetPriority( HTASK16 hTask, INT16 delta )
756 {
757 TDB *pTask;
758 INT16 newpriority;
759
760 if (!hTask) hTask = hCurrentTask;
761 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return;
762 newpriority = pTask->priority + delta;
763 if (newpriority < -32) newpriority = -32;
764 else if (newpriority > 15) newpriority = 15;
765
766 pTask->priority = newpriority + 1;
767 TASK_UnlinkTask( hTask );
768 TASK_LinkTask( hTask );
769 pTask->priority--;
770 }
771
772
773 /***********************************************************************
774 * LockCurrentTask (KERNEL.33)
775 */
776 HTASK16 WINAPI LockCurrentTask( BOOL16 bLock )
777 {
778 if (bLock) hLockedTask = hCurrentTask;
779 else hLockedTask = 0;
780 return hLockedTask;
781 }
782
783
784 /***********************************************************************
785 * IsTaskLocked (KERNEL.122)
786 */
787 HTASK16 WINAPI IsTaskLocked(void)
788 {
789 return hLockedTask;
790 }
791
792
793 /***********************************************************************
794 * OldYield (KERNEL.117)
795 */
796 void WINAPI OldYield(void)
797 {
798 TDB *pCurTask;
799
800 pCurTask = (TDB *)GlobalLock16( hCurrentTask );
801 if (pCurTask) pCurTask->nEvents++; /* Make sure we get back here */
802 TASK_YieldToSystem(pCurTask);
803 if (pCurTask) pCurTask->nEvents--;
804 }
805
806
807 /***********************************************************************
808 * DirectedYield (KERNEL.150)
809 */
810 void WINAPI DirectedYield( HTASK16 hTask )
811 {
812 TDB *pCurTask = (TDB *)GlobalLock16( hCurrentTask );
813 pCurTask->hYieldTo = hTask;
814 OldYield();
815 }
816
817
818 /***********************************************************************
819 * UserYield (USER.332)
820 */
821 void WINAPI UserYield(void)
822 {
823 TDB *pCurTask = (TDB *)GlobalLock16( hCurrentTask );
824 MESSAGEQUEUE *queue = (MESSAGEQUEUE *)GlobalLock16( pCurTask->hQueue );
825 /* Handle sent messages */
826 while (queue && (queue->wakeBits & QS_SENDMESSAGE))
827 QUEUE_ReceiveMessage( queue );
828
829 OldYield();
830
831 queue = (MESSAGEQUEUE *)GlobalLock16( pCurTask->hQueue );
832 while (queue && (queue->wakeBits & QS_SENDMESSAGE))
833 QUEUE_ReceiveMessage( queue );
834 }
835
836
837 /***********************************************************************
838 * Yield16 (KERNEL.29)
839 */
840 void WINAPI Yield16(void)
841 {
842 TDB *pCurTask = (TDB *)GlobalLock16( hCurrentTask );
843 if (pCurTask) pCurTask->hYieldTo = 0;
844 if (pCurTask && pCurTask->hQueue) UserYield();
845 else OldYield();
846 }
847
848
849 /***********************************************************************
850 * MakeProcInstance16 (KERNEL.51)
851 */
852 FARPROC16 WINAPI MakeProcInstance16( FARPROC16 func, HANDLE16 hInstance )
853 {
854 BYTE *thunk,*lfunc;
855 SEGPTR thunkaddr;
856
857 if (!hInstance) hInstance = CURRENT_DS;
858 thunkaddr = TASK_AllocThunk( hCurrentTask );
859 if (!thunkaddr) return (FARPROC16)0;
860 thunk = PTR_SEG_TO_LIN( thunkaddr );
861 lfunc = PTR_SEG_TO_LIN( func );
862
863 TRACE(task, "(%08lx,%04x): got thunk %08lx\n",
864 (DWORD)func, hInstance, (DWORD)thunkaddr );
865 if (((lfunc[0]==0x8c) && (lfunc[1]==0xd8)) ||
866 ((lfunc[0]==0x1e) && (lfunc[1]==0x58))
867 ) {
868 FIXME(task,"thunk would be useless for %p, overwriting with nop;nop;\n", func );
869 lfunc[0]=0x90; /* nop */
870 lfunc[1]=0x90; /* nop */
871 }
872
873 *thunk++ = 0xb8; /* movw instance, %ax */
874 *thunk++ = (BYTE)(hInstance & 0xff);
875 *thunk++ = (BYTE)(hInstance >> 8);
876 *thunk++ = 0xea; /* ljmp func */
877 *(DWORD *)thunk = (DWORD)func;
878 return (FARPROC16)thunkaddr;
879 }
880
881
882 /***********************************************************************
883 * FreeProcInstance16 (KERNEL.52)
884 */
885 void WINAPI FreeProcInstance16( FARPROC16 func )
886 {
887 TRACE(task, "(%08lx)\n", (DWORD)func );
888 TASK_FreeThunk( hCurrentTask, (SEGPTR)func );
889 }
890
891
892 /**********************************************************************
893 * GetCodeHandle (KERNEL.93)
894 */
895 HANDLE16 WINAPI GetCodeHandle( FARPROC16 proc )
896 {
897 HANDLE16 handle;
898 BYTE *thunk = (BYTE *)PTR_SEG_TO_LIN( proc );
899
900 /* Return the code segment containing 'proc'. */
901 /* Not sure if this is really correct (shouldn't matter that much). */
902
903 /* Check if it is really a thunk */
904 if ((thunk[0] == 0xb8) && (thunk[3] == 0xea))
905 handle = GlobalHandle16( thunk[6] + (thunk[7] << 8) );
906 else
907 handle = GlobalHandle16( HIWORD(proc) );
908
909 return handle;
910 }
911
912
913 /**********************************************************************
914 * DefineHandleTable16 (KERNEL.94)
915 */
916 BOOL16 WINAPI DefineHandleTable16( WORD wOffset )
917 {
918 return TRUE; /* FIXME */
919 }
920
921
922 /***********************************************************************
923 * SetTaskQueue (KERNEL.34)
924 */
925 HQUEUE16 WINAPI SetTaskQueue( HTASK16 hTask, HQUEUE16 hQueue )
926 {
927 HQUEUE16 hPrev;
928 TDB *pTask;
929
930 if (!hTask) hTask = hCurrentTask;
931 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return 0;
932
933 hPrev = pTask->hQueue;
934 pTask->hQueue = hQueue;
935
936 TIMER_SwitchQueue( hPrev, hQueue );
937
938 return hPrev;
939 }
940
941
942 /***********************************************************************
943 * GetTaskQueue (KERNEL.35)
944 */
945 HQUEUE16 WINAPI GetTaskQueue( HTASK16 hTask )
946 {
947 TDB *pTask;
948
949 if (!hTask) hTask = hCurrentTask;
950 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return 0;
951 return pTask->hQueue;
952 }
953
954
955 /***********************************************************************
956 * SwitchStackTo (KERNEL.108)
957 */
958 void WINAPI SwitchStackTo( WORD seg, WORD ptr, WORD top )
959 {
960 TDB *pTask;
961 STACK16FRAME *oldFrame, *newFrame;
962 INSTANCEDATA *pData;
963 UINT16 copySize;
964
965 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return;
966 if (!(pData = (INSTANCEDATA *)GlobalLock16( seg ))) return;
967 TRACE(task, "old=%04x:%04x new=%04x:%04x\n",
968 SELECTOROF( pTask->thdb->cur_stack ),
969 OFFSETOF( pTask->thdb->cur_stack ), seg, ptr );
970
971 /* Save the old stack */
972
973 oldFrame = THREAD_STACK16( pTask->thdb );
974 /* pop frame + args and push bp */
975 pData->old_ss_sp = pTask->thdb->cur_stack - sizeof(STACK16FRAME)
976 - 2 * sizeof(WORD);
977 *(WORD *)PTR_SEG_TO_LIN(pData->old_ss_sp) = oldFrame->bp;
978 pData->stacktop = top;
979 pData->stackmin = ptr;
980 pData->stackbottom = ptr;
981
982 /* Switch to the new stack */
983
984 /* Note: we need to take the 3 arguments into account; otherwise,
985 * the stack will underflow upon return from this function.
986 */
987 copySize = oldFrame->bp - OFFSETOF(pData->old_ss_sp);
988 copySize += 3 * sizeof(WORD) + sizeof(STACK16FRAME);
989 pTask->thdb->cur_stack = PTR_SEG_OFF_TO_SEGPTR( seg, ptr - copySize );
990 newFrame = THREAD_STACK16( pTask->thdb );
991
992 /* Copy the stack frame and the local variables to the new stack */
993
994 memmove( newFrame, oldFrame, copySize );
995 newFrame->bp = ptr;
996 *(WORD *)PTR_SEG_OFF_TO_LIN( seg, ptr ) = 0; /* clear previous bp */
997 }
998
999
1000 /***********************************************************************
1001 * SwitchStackBack (KERNEL.109)
1002 */
1003 void WINAPI SwitchStackBack( CONTEXT *context )
1004 {
1005 TDB *pTask;
1006 STACK16FRAME *oldFrame, *newFrame;
1007 INSTANCEDATA *pData;
1008
1009 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return;
1010 if (!(pData = (INSTANCEDATA *)GlobalLock16(SELECTOROF(pTask->thdb->cur_stack))))
1011 return;
1012 if (!pData->old_ss_sp)
1013 {
1014 WARN( task, "No previous SwitchStackTo\n" );
1015 return;
1016 }
1017 TRACE(task, "restoring stack %04x:%04x\n",
1018 SELECTOROF(pData->old_ss_sp), OFFSETOF(pData->old_ss_sp) );
1019
1020 oldFrame = THREAD_STACK16( pTask->thdb );
1021
1022 /* Pop bp from the previous stack */
1023
1024 BP_reg(context) = *(WORD *)PTR_SEG_TO_LIN(pData->old_ss_sp);
1025 pData->old_ss_sp += sizeof(WORD);
1026
1027 /* Switch back to the old stack */
1028
1029 pTask->thdb->cur_stack = pData->old_ss_sp - sizeof(STACK16FRAME);
1030 SS_reg(context) = SELECTOROF(pData->old_ss_sp);
1031 ESP_reg(context) = OFFSETOF(pData->old_ss_sp) - sizeof(DWORD); /*ret addr*/
1032 pData->old_ss_sp = 0;
1033
1034 /* Build a stack frame for the return */
1035
1036 newFrame = THREAD_STACK16( pTask->thdb );
1037 newFrame->frame32 = oldFrame->frame32;
1038 if (TRACE_ON(relay))
1039 {
1040 newFrame->entry_ip = oldFrame->entry_ip;
1041 newFrame->entry_cs = oldFrame->entry_cs;
1042 }
1043 }
1044
1045
1046 /***********************************************************************
1047 * GetTaskQueueDS (KERNEL.118)
1048 */
1049 void WINAPI GetTaskQueueDS( CONTEXT *context )
1050 {
1051 DS_reg(context) = GlobalHandleToSel( GetTaskQueue(0) );
1052 }
1053
1054
1055 /***********************************************************************
1056 * GetTaskQueueES (KERNEL.119)
1057 */
1058 void WINAPI GetTaskQueueES( CONTEXT *context )
1059 {
1060 ES_reg(context) = GlobalHandleToSel( GetTaskQueue(0) );
1061 }
1062
1063
1064 /***********************************************************************
1065 * GetCurrentTask (KERNEL.36)
1066 */
1067 HTASK16 WINAPI GetCurrentTask(void)
1068 {
1069 return hCurrentTask;
1070 }
1071
1072 DWORD WINAPI WIN16_GetCurrentTask(void)
1073 {
1074 /* This is the version used by relay code; the first task is */
1075 /* returned in the high word of the result */
1076 return MAKELONG( hCurrentTask, hFirstTask );
1077 }
1078
1079
1080 /***********************************************************************
1081 * GetCurrentPDB (KERNEL.37)
1082 */
1083 HANDLE16 WINAPI GetCurrentPDB(void)
1084 {
1085 TDB *pTask;
1086
1087 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1088 return pTask->hPDB;
1089 }
1090
1091
1092 /***********************************************************************
1093 * GetInstanceData (KERNEL.54)
1094 */
1095 INT16 WINAPI GetInstanceData( HINSTANCE16 instance, WORD buffer, INT16 len )
1096 {
1097 char *ptr = (char *)GlobalLock16( instance );
1098 if (!ptr || !len) return 0;
1099 if ((int)buffer + len >= 0x10000) len = 0x10000 - buffer;
1100 memcpy( (char *)GlobalLock16(CURRENT_DS) + buffer, ptr + buffer, len );
1101 return len;
1102 }
1103
1104
1105 /***********************************************************************
1106 * GetExeVersion (KERNEL.105)
1107 */
1108 WORD WINAPI GetExeVersion(void)
1109 {
1110 TDB *pTask;
1111
1112 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1113 return pTask->version;
1114 }
1115
1116
1117 /***********************************************************************
1118 * SetErrorMode16 (KERNEL.107)
1119 */
1120 UINT16 WINAPI SetErrorMode16( UINT16 mode )
1121 {
1122 TDB *pTask;
1123 UINT16 oldMode;
1124
1125 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1126 oldMode = pTask->error_mode;
1127 pTask->error_mode = mode;
1128 pTask->thdb->process->error_mode = mode;
1129 return oldMode;
1130 }
1131
1132
1133 /***********************************************************************
1134 * SetErrorMode32 (KERNEL32.486)
1135 */
1136 UINT32 WINAPI SetErrorMode32( UINT32 mode )
1137 {
1138 return SetErrorMode16( (UINT16)mode );
1139 }
1140
1141
1142 /***********************************************************************
1143 * GetDOSEnvironment (KERNEL.131)
1144 */
1145 SEGPTR WINAPI GetDOSEnvironment(void)
1146 {
1147 TDB *pTask;
1148
1149 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1150 return PTR_SEG_OFF_TO_SEGPTR( pTask->pdb.environment, 0 );
1151 }
1152
1153
1154 /***********************************************************************
1155 * GetNumTasks (KERNEL.152)
1156 */
1157 UINT16 WINAPI GetNumTasks(void)
1158 {
1159 return nTaskCount;
1160 }
1161
1162
1163 /***********************************************************************
1164 * GetTaskDS (KERNEL.155)
1165 *
1166 * Note: this function apparently returns a DWORD with LOWORD == HIWORD.
1167 * I don't think we need to bother with this.
1168 */
1169 HINSTANCE16 WINAPI GetTaskDS(void)
1170 {
1171 TDB *pTask;
1172
1173 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1174 return pTask->hInstance;
1175 }
1176
1177
1178 /***********************************************************************
1179 * IsTask (KERNEL.320)
1180 */
1181 BOOL16 WINAPI IsTask( HTASK16 hTask )
1182 {
1183 TDB *pTask;
1184
1185 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return FALSE;
1186 if (GlobalSize16( hTask ) < sizeof(TDB)) return FALSE;
1187 return (pTask->magic == TDB_MAGIC);
1188 }
1189
1190
1191 /***********************************************************************
1192 * SetTaskSignalProc (KERNEL.38)
1193 *
1194 * Real 16-bit interface is provided by the THUNK_SetTaskSignalProc.
1195 */
1196 FARPROC16 WINAPI SetTaskSignalProc( HTASK16 hTask, FARPROC16 proc )
1197 {
1198 TDB *pTask;
1199 FARPROC16 oldProc;
1200
1201 if (!hTask) hTask = hCurrentTask;
1202 if (!(pTask = (TDB *)GlobalLock16( hTask ))) return NULL;
1203 oldProc = (FARPROC16)pTask->userhandler;
1204 pTask->userhandler = (USERSIGNALPROC)proc;
1205 return oldProc;
1206 }
1207
1208
1209 /***********************************************************************
1210 * SetSigHandler (KERNEL.140)
1211 */
1212 WORD WINAPI SetSigHandler( FARPROC16 newhandler, FARPROC16* oldhandler,
1213 UINT16 *oldmode, UINT16 newmode, UINT16 flag )
1214 {
1215 FIXME(task,"(%p,%p,%p,%d,%d), unimplemented.\n",
1216 newhandler,oldhandler,oldmode,newmode,flag );
1217
1218 if (flag != 1) return 0;
1219 if (!newmode) newhandler = NULL; /* Default handler */
1220 if (newmode != 4)
1221 {
1222 TDB *pTask;
1223
1224 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return 0;
1225 if (oldmode) *oldmode = pTask->signal_flags;
1226 pTask->signal_flags = newmode;
1227 if (oldhandler) *oldhandler = pTask->sighandler;
1228 pTask->sighandler = newhandler;
1229 }
1230 return 0;
1231 }
1232
1233
1234 /***********************************************************************
1235 * GlobalNotify (KERNEL.154)
1236 */
1237 VOID WINAPI GlobalNotify( FARPROC16 proc )
1238 {
1239 TDB *pTask;
1240
1241 if (!(pTask = (TDB *)GlobalLock16( hCurrentTask ))) return;
1242 pTask->discardhandler = proc;
1243 }
1244
1245
1246 /***********************************************************************
1247 * GetExePtr (KERNEL.133)
1248 */
1249 static HMODULE16 GetExePtrHelper( HANDLE16 handle, HTASK16 *hTask )
1250 {
1251 char *ptr;
1252 HANDLE16 owner;
1253
1254 /* Check for module handle */
1255
1256 if (!(ptr = GlobalLock16( handle ))) return 0;
1257 if (((NE_MODULE *)ptr)->magic == IMAGE_OS2_SIGNATURE) return handle;
1258
1259 /* Search for this handle inside all tasks */
1260
1261 *hTask = hFirstTask;
1262 while (*hTask)
1263 {
1264 TDB *pTask = (TDB *)GlobalLock16( *hTask );
1265 if ((*hTask == handle) ||
1266 (pTask->hInstance == handle) ||
1267 (pTask->hQueue == handle) ||
1268 (pTask->hPDB == handle)) return pTask->hModule;
1269 *hTask = pTask->hNext;
1270 }
1271
1272 /* Check the owner for module handle */
1273
1274 owner = FarGetOwner( handle );
1275 if (!(ptr = GlobalLock16( owner ))) return 0;
1276 if (((NE_MODULE *)ptr)->magic == IMAGE_OS2_SIGNATURE) return owner;
1277
1278 /* Search for the owner inside all tasks */
1279
1280 *hTask = hFirstTask;
1281 while (*hTask)
1282 {
1283 TDB *pTask = (TDB *)GlobalLock16( *hTask );
1284 if ((*hTask == owner) ||
1285 (pTask->hInstance == owner) ||
1286 (pTask->hQueue == owner) ||
1287 (pTask->hPDB == owner)) return pTask->hModule;
1288 *hTask = pTask->hNext;
1289 }
1290
1291 return 0;
1292 }
1293
1294 HMODULE16 WINAPI GetExePtr( HANDLE16 handle )
1295 {
1296 HTASK16 dummy;
1297 return GetExePtrHelper( handle, &dummy );
1298 }
1299
1300 void WINAPI WIN16_GetExePtr( CONTEXT *context )
1301 {
1302 WORD *stack = PTR_SEG_OFF_TO_LIN(SS_reg(context), SP_reg(context));
1303 HANDLE16 handle = (HANDLE16)stack[2];
1304 HTASK16 hTask = 0;
1305 HMODULE16 hModule;
1306
1307 hModule = GetExePtrHelper( handle, &hTask );
1308
1309 AX_reg(context) = CX_reg(context) = hModule;
1310 if (hTask) ES_reg(context) = hTask;
1311 }
1312
1313 /***********************************************************************
1314 * TaskFirst (TOOLHELP.63)
1315 */
1316 BOOL16 WINAPI TaskFirst( TASKENTRY *lpte )
1317 {
1318 lpte->hNext = hFirstTask;
1319 return TaskNext( lpte );
1320 }
1321
1322
1323 /***********************************************************************
1324 * TaskNext (TOOLHELP.64)
1325 */
1326 BOOL16 WINAPI TaskNext( TASKENTRY *lpte )
1327 {
1328 TDB *pTask;
1329 INSTANCEDATA *pInstData;
1330
1331 TRACE(toolhelp, "(%p): task=%04x\n", lpte, lpte->hNext );
1332 if (!lpte->hNext) return FALSE;
1333 pTask = (TDB *)GlobalLock16( lpte->hNext );
1334 if (!pTask || pTask->magic != TDB_MAGIC) return FALSE;
1335 pInstData = (INSTANCEDATA *)PTR_SEG_OFF_TO_LIN( pTask->hInstance, 0 );
1336 lpte->hTask = lpte->hNext;
1337 lpte->hTaskParent = pTask->hParent;
1338 lpte->hInst = pTask->hInstance;
1339 lpte->hModule = pTask->hModule;
1340 lpte->wSS = SELECTOROF( pTask->thdb->cur_stack );
1341 lpte->wSP = OFFSETOF( pTask->thdb->cur_stack );
1342 lpte->wStackTop = pInstData->stacktop;
1343 lpte->wStackMinimum = pInstData->stackmin;
1344 lpte->wStackBottom = pInstData->stackbottom;
1345 lpte->wcEvents = pTask->nEvents;
1346 lpte->hQueue = pTask->hQueue;
1347 strncpy( lpte->szModule, pTask->module_name, 8 );
1348 lpte->szModule[8] = '\0';
1349 lpte->wPSPOffset = 0x100; /*??*/
1350 lpte->hNext = pTask->hNext;
1351 return TRUE;
1352 }
1353
1354
1355 /***********************************************************************
1356 * TaskFindHandle (TOOLHELP.65)
1357 */
1358 BOOL16 WINAPI TaskFindHandle( TASKENTRY *lpte, HTASK16 hTask )
1359 {
1360 lpte->hNext = hTask;
1361 return TaskNext( lpte );
1362 }
1363
1364
1365 /***********************************************************************
1366 * GetAppCompatFlags16 (KERNEL.354)
1367 */
1368 DWORD WINAPI GetAppCompatFlags16( HTASK16 hTask )
1369 {
1370 return GetAppCompatFlags32( hTask );
1371 }
1372
1373
1374 /***********************************************************************
1375 * GetAppCompatFlags32 (USER32.206)
1376 */
1377 DWORD WINAPI GetAppCompatFlags32( HTASK32 hTask )
1378 {
1379 TDB *pTask;
1380
1381 if (!hTask) hTask = GetCurrentTask();
1382 if (!(pTask=(TDB *)GlobalLock16( (HTASK16)hTask ))) return 0;
1383 if (GlobalSize16(hTask) < sizeof(TDB)) return 0;
1384 return pTask->compat_flags;
1385 }
GSOC 2012 project to enhance the control panel