Browse Source

Add u128bit and s128bit support in ppudump

git-svn-id: trunk@32898 -
pierre 9 years ago
parent
commit
c863cd5bc8
1 changed files with 14 additions and 2 deletions
  1. 14 2
      compiler/utils/ppuutils/ppudump.pp

+ 14 - 2
compiler/utils/ppuutils/ppudump.pp

@@ -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');