paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add u128bit and s128bit support in ppudump

Browse Source 
git-svn-id: trunk@32898 -
This commit is contained in:
pierre 2016-01-09 21:34:07 +00:00
parent 288aa63a67
commit c863cd5bc8
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/utils/ppuutils/ppudump.pp
View File

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