home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibdemo3.zip / SOURCE.DAT / SOURCE / RTL / BSETIB.PAS < prev    next >
Pascal/Delphi Source File  |  1994-10-15  |  2KB  |  57 lines
  1. UNIT BseTIB;
  2.  
  3. {***************************************************************************
  4. *                                                                          *
  5. * Module Name: BSETIB.PAS                                                  *
  6. *                                                                          *
  7. * OS/2 Thread Information Block Include File                               *
  8. *                                                                          *
  9. *                                                                          *
  10. ****************************************************************************}
  11.  
  12. INTERFACE
  13.  
  14. USES Os2Def;
  15.  
  16. { Thread Information Block (TIB) }
  17.  
  18. TYPE
  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.  
  41. TYPE
  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.  
  54. IMPLEMENTATION
  55.  
  56. BEGIN
  57. END.