|
@@ -112,7 +112,7 @@ unit typinfo;
|
|
|
TTypeKinds = set of TTypeKind;
|
|
TTypeKinds = set of TTypeKind;
|
|
|
ShortStringBase = string[255];
|
|
ShortStringBase = string[255];
|
|
|
|
|
|
|
|
-
|
|
|
|
|
|
|
+ PParameterLocation = ^TParameterLocation;
|
|
|
TParameterLocation =
|
|
TParameterLocation =
|
|
|
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
|
packed
|
|
packed
|
|
@@ -135,7 +135,6 @@ unit typinfo;
|
|
|
{ if Reference, otherwise 0 }
|
|
{ if Reference, otherwise 0 }
|
|
|
property ShiftVal: Int8 read GetShiftVal;
|
|
property ShiftVal: Int8 read GetShiftVal;
|
|
|
end;
|
|
end;
|
|
|
- PParameterLocation = ^TParameterLocation;
|
|
|
|
|
|
|
|
|
|
PParameterLocations = ^TParameterLocations;
|
|
PParameterLocations = ^TParameterLocations;
|
|
|
TParameterLocations =
|
|
TParameterLocations =
|
svenbarth