FreePascal клонирует тип данных для Delphi
Я пытаюсь использовать FreePascal 2.2.2 ibase60.inc
из нижней ссылки этого ответа в Delphi Tokyo.
Он начинается со следующих определений:
type
{ Unsigned types }
UChar = Byte;
UShort = Word;
UInt = DWord;
ULong = DWord;
{ Signed types }
Int = LongInt;
Long = LongInt;
Short = SmallInt;
Float = Single;
{ Pointers to basic types }
PInt = ^Int;
PShort = ^Short;
PUShort = ^UShort;
PLong = ^Long;
PULong = ^ULong;
PFloat = ^Float;
PUChar = ^UChar;
PVoid = ^Pointer;
const
ISC_TRUE = 1;
ISC_FALSE = 0;
const
ISC__TRUE = ISC_TRUE;
ISC__FALSE = ISC_FALSE;
Type
ISC_USHORT = word;
ISC_STATUS = clong;
ISC_INT64 = int64;
ISC_UINT64 = UInt64; // qword;
ISC_LONG = Longint;
PISC_USHORT = ^ISC_USHORT;
PISC_STATUS = ^ISC_STATUS;
PPISC_STATUS = ^PISC_STATUS;
PISC_INT64 = ^ISC_INT64;
PISC_UINT64 = ^ISC_UINT64;
PISC_LONG = ^ISC_LONG;
Как я могу преобразовать это ISC_STATUS = clong
типа Delphi? Его нет в переменных и типах данных FreePascal, и до сих пор я не смог найти работающий код.