paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 20:40:01 +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 } { type tordtype is in symconst unit }
{ {
uvoid, uvoid,
u8bit,u16bit,u32bit,u64bit, u8bit,u16bit,u32bit,u64bit,u128bit,
s8bit,s16bit,s32bit,s64bit, 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');