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

+ bool64bit support to ppudump

Browse Source 
git-svn-id: trunk@6757 -
This commit is contained in:
florian 2007-03-09 19:39:20 +00:00
parent 6ba8db4dd4
commit 6cd5f3a3e7
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

@ -1651,7 +1651,7 @@ type
uvoid, uvoid,
u8bit,u16bit,u32bit,u64bit, u8bit,u16bit,u32bit,u64bit,
s8bit,s16bit,s32bit,s64bit, s8bit,s16bit,s32bit,s64bit,
bool8bit,bool16bit,bool32bit, bool8bit,bool16bit,bool32bit,bool64bit,
uchar,uwidechar,scurrency uchar,uwidechar,scurrency
); );
tobjecttyp = (odt_none, tobjecttyp = (odt_none,
@ -1708,6 +1708,7 @@ begin
bool8bit : writeln('bool8bit'); bool8bit : writeln('bool8bit');
bool16bit : writeln('bool16bit'); bool16bit : writeln('bool16bit');
bool32bit : writeln('bool32bit'); bool32bit : writeln('bool32bit');
bool64bit : writeln('bool64bit');
uchar : writeln('uchar'); uchar : writeln('uchar');
uwidechar : writeln('uwidechar'); uwidechar : writeln('uwidechar');
scurrency : writeln('ucurrency'); scurrency : writeln('ucurrency');