+ import the win16 task apis

git-svn-id: trunk@31542 -

rtl/win16/win31.pp

@@ -180,6 +180,10 @@ function IsBadHugeWritePtr(lp: FarPointer; cb: DWORD): BOOL; external 'KERNEL';
 function IsBadCodePtr(lpfn: FARPROC): BOOL; external 'KERNEL';
 function IsBadStringPtr(lpsz: LPSTR; cchMax: UINT): BOOL; external 'KERNEL';
 
+{ Task Management }
+
+function IsTask(Task: HTASK): BOOL; external 'KERNEL';
+
 implementation
 
 end.

rtl/win16/winprocs.pp

@@ -101,6 +101,14 @@ function SetSwapAreaSize(Size: UINT): LONG; external 'KERNEL';
 procedure SwapRecording(Flag: UINT); external 'KERNEL';
 procedure ValidateCodeSegments; external 'KERNEL';
 
+{ Task Management }
+
+function GetNumTasks: UINT; external 'KERNEL';
+function GetCurrentTask: HTASK; external 'KERNEL';
+
+procedure Yield; external 'KERNEL';
+procedure DirectedYield(Task: HTASK); external 'KERNEL';
+
 implementation
 
 function LOBYTE(w: Word): Byte;

rtl/win16/wintypes.pp

@@ -114,6 +114,8 @@ type
   PSegInfo = ^TSegInfo;
   TSegInfo = SEGINFO;
 
+  HTASK = THandle;
+
 implementation
 
 end.