|
@@ -2718,8 +2718,8 @@ procedure readdefinitions(const s:string; ParentDef: TPpuContainerDef);
|
|
{ type tordtype is in symconst unit }
|
|
{ type tordtype is in symconst unit }
|
|
{
|
|
{
|
|
uvoid,
|
|
uvoid,
|
|
- u8bit,u16bit,u32bit,u64bit,
|
|
|
|
- s8bit,s16bit,s32bit,s64bit,
|
|
|
|
|
|
+ u8bit,u16bit,u32bit,u64bit,u128bit,
|
|
|
|
+ s8bit,s16bit,s32bit,s64bit,s128bit,
|
|
bool8bit,bool16bit,bool32bit,bool64bit,
|
|
bool8bit,bool16bit,bool32bit,bool64bit,
|
|
uchar,uwidechar,scurrency
|
|
uchar,uwidechar,scurrency
|
|
); }
|
|
); }
|
|
@@ -2819,6 +2819,12 @@ begin
|
|
orddef.OrdType:=otUInt;
|
|
orddef.OrdType:=otUInt;
|
|
orddef.Size:=8;
|
|
orddef.Size:=8;
|
|
end;
|
|
end;
|
|
|
|
+ u128bit:
|
|
|
|
+ begin
|
|
|
|
+ writeln('u128bit');
|
|
|
|
+ orddef.OrdType:=otUInt;
|
|
|
|
+ orddef.Size:=16;
|
|
|
|
+ end;
|
|
s8bit:
|
|
s8bit:
|
|
begin
|
|
begin
|
|
writeln('s8bit');
|
|
writeln('s8bit');
|
|
@@ -2843,6 +2849,12 @@ begin
|
|
orddef.OrdType:=otSInt;
|
|
orddef.OrdType:=otSInt;
|
|
orddef.Size:=8;
|
|
orddef.Size:=8;
|
|
end;
|
|
end;
|
|
|
|
+ s128bit:
|
|
|
|
+ begin
|
|
|
|
+ writeln('s128bit');
|
|
|
|
+ orddef.OrdType:=otSInt;
|
|
|
|
+ orddef.Size:=16;
|
|
|
|
+ end;
|
|
pasbool8:
|
|
pasbool8:
|
|
begin
|
|
begin
|
|
writeln('pasbool8');
|
|
writeln('pasbool8');
|