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

* currency support

Browse Source 
git-svn-id: trunk@964 -
This commit is contained in:
florian 2005-08-28 18:27:02 +00:00
parent 51af5cb3a9
commit aaa4f72e69
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/utils/ppudump.pp
View File

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