* currency support

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@964 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 1 deletions

diff --git a/compiler/utils/ppudump.pp b/compiler/utils/ppudump.pp
index 8097c35812..9fb2b1aabd 100644
--- a/compiler/utils/ppudump.pp
+++ b/compiler/utils/ppudump.pp
@@ -1413,7 +1413,7 @@ type
     u8bit,u16bit,u32bit,u64bit,
     s8bit,s16bit,s32bit,s64bit,
     bool8bit,bool16bit,bool32bit,
-    uchar,uwidechar
+    uchar,uwidechar,scurrency
   );
   tobjectdeftype = (odt_none,
     odt_class,
@@ -1484,6 +1484,7 @@ begin
                bool32bit : writeln('bool32bit');
                uchar     : writeln('uchar');
                uwidechar : writeln('uwidechar');
+               scurrency : writeln('ucurrency');
                else        writeln('!! Warning: Invalid base type ',b);
              end;
              writeln(space,'            Range : ',getint64,' to ',getint64);