mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-22 17:33:32 +02:00
42 lines
1022 B
PHP
42 lines
1022 B
PHP
|
|
Const
|
|
MM_HARD = $001;
|
|
MM_SOFT = $002;
|
|
MM_FIRM = $004;
|
|
MM_APPL = $008;
|
|
MM_UTIL = $010;
|
|
MM_OPSYS = $020;
|
|
MM_RECOVER = $040;
|
|
MM_NRECOV = $080;
|
|
MM_PRINT = $100;
|
|
MM_CONSOLE = $200;
|
|
|
|
MM_NOSEV = 0;
|
|
MM_HALT = 1;
|
|
MM_ERROR = 2;
|
|
MM_WARNING = 3;
|
|
MM_INFO = 4;
|
|
|
|
MM_NULLLBL = PAnsiChar(nil);
|
|
MM_NULLSEV = 0;
|
|
MM_NULLMC = Longint(0);
|
|
MM_NULLTXT = PAnsiChar(0);
|
|
MM_NULLACT = PAnsiChar(0);
|
|
MM_NULLTAG = PAnsiChar(0);
|
|
|
|
MM_NOTOK = -(1);
|
|
MM_OK = 0;
|
|
MM_NOMSG = 1;
|
|
MM_NOCON = 4;
|
|
|
|
|
|
function fmtmsg(__classification:longint; __label:PAnsiChar; __severity:longint; __text:PAnsiChar; __action:PAnsiChar; __tag:PAnsiChar):longint;cdecl;external clib name 'fmtmsg';
|
|
function addseverity(__severity:longint; __string:PAnsiChar):longint;cdecl;external clib name 'addseverity';
|
|
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types
|
|
---------------------------------------------------------------------}
|
|
|
|
// Type
|