From f247ad3bf3a9d353eb34970505cf0e116d274043 Mon Sep 17 00:00:00 2001
From: florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 28 Aug 2005 18:27:02 +0000
Subject: * currency support

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@964 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/utils/ppudump.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'compiler/utils')

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);
-- 
cgit v1.2.1