source: trunk/Sibyl/RTL/BSETIB.PAS@ 8

Last change on this file since 8 was 8, checked in by RBRi, 19 years ago

+ rest of sibyl stuff
  • Property svn:eol-style set to native
File size: 2.1 KB
Line 
1UNIT BseTIB;
2
3{***************************************************************************
4* *
5* Module Name: BSETIB.PAS *
6* *
7* OS/2 Thread Information Block Include File *
8* *
9* *
10****************************************************************************}
11
12INTERFACE
13
14USES Os2Def;
15
16{ Thread Information Block (TIB) }
17
18TYPE
19 PTIB2=^TIB2;
20 TIB2=RECORD
21 tib2_ultid:ULONG; { Thread I.D. }
22 tib2_ulpri:ULONG; { Thread priority }
23 tib2_version:ULONG; { Version number for this structure }
24 tib2_usMCCount:USHORT; { Must Complete count }
25 tib2_fMCForceFlag:USHORT; { Must Complete force flag }
26 END;
27
28 PTIB=^TIB;
29 TIB=RECORD
30 tib_pexchain:POINTER; { Head of exception handler chain }
31 tib_pstack:POINTER; { Pointer to base of stack }
32 tib_pstacklimit:POINTER; { Pointer to end of stack }
33 tib_ptib2:PTIB2; { Pointer to system specific TIB }
34 tib_version:ULONG; { Version number for this TIB structure }
35 tib_ordinal:ULONG; { Thread ordinal number }
36 END;
37
38
39{ Process Information Block (PIB) }
40
41TYPE
42 PPIB=^PIB;
43 PIB=RECORD
44 pib_ulpid:ULONG; { Process I.D. }
45 pib_ulppid:ULONG; { Parent process I.D. }
46 pib_hmte:ULONG; { Program (.EXE) module handle }
47 pib_pchcmd:PChar; { Command line pointer }
48 pib_pchenv:PChar; { Environment pointer }
49 pib_flstatus:ULONG; { Process' status bits }
50 pib_ultype:ULONG; { Process' type code }
51 END;
52
53
54IMPLEMENTATION
55
56BEGIN
57END.
Note: See TracBrowser for help on using the repository browser.