System.TInitContext

• Übergeordnet: System
• Felder

Delphi

  TInitContext = record
    OuterContext:   PInitContext;     { saved InitContext   }
{$IFNDEF PC_MAPPED_EXCEPTIONS}
    ExcFrame:       Pointer;          { bottom exc handler  }
{$ENDIF}
    InitTable:      PackageInfo;      { unit init info      }
    InitCount:      Integer;          { how far we got      }
    Module:         PLibModule;       { ptr to module desc  }
{$IFDEF CPUX86}
    DLLSaveEBP:     Pointer;          { saved regs for DLLs }
    DLLSaveEBX:     Pointer;          { saved regs for DLLs }
    DLLSaveESI:     Pointer;          { saved regs for DLLs }
    DLLSaveEDI:     Pointer;          { saved regs for DLLs }
{$ENDIF}
{$IFDEF MSWINDOWS}
    ExitProcessTLS: procedure;        { Shutdown for TLS    }
{$ENDIF}
    DLLInitState:   Byte;             { 0 = package, 1 = DLL shutdown, 2 = DLL startup }
    ThreadID:       TThreadID;        { Initializing Thread }
{$IFDEF TABLE_BASED_EXCEPTIONS}
{$IFDEF CPUX64}
    ExitDllJmpBuf:  __TExitDllJumpBuf;
{$ENDIF}
{$ENDIF}
{$IFDEF ALPHA_EXITDLL}
    ExitDllJmpBuf:  __TExitDllJumpBuf;
{$ENDIF}
  end platform;

C++

struct DECLSPEC_DRECORD TInitContext
{
public:
    TInitContext *OuterContext;
    void *ExcFrame;
    PackageInfoTable *InitTable;
    int InitCount;
    TLibModule *Module;
    void *DLLSaveEBP;
    void *DLLSaveEBX;
    void *DLLSaveESI;
    void *DLLSaveEDI;
    void __fastcall (*ExitProcessTLS)(void);
    Byte DLLInitState;
    unsigned ThreadID;
};

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
record struct	public	System.pas System.hpp	System	System

Beschreibung

Wird intern verwendet.

TInitContext wird intern vom Delphi-Compiler verwendet.

Siehe auch

• PInitContext