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

Remove two warnings about missing case (others are still present in ppudump.pp source)

Browse Source 
git-svn-id: trunk@42085 -
This commit is contained in:
pierre 2019-05-16 12:42:39 +00:00
parent 8d4588e1b2
commit c0f064a35c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/utils/ppuutils/ppudump.pp
View File

@ -1176,6 +1176,7 @@ begin
break; break;
write([s,'(',slstr[sl],') ']); write([s,'(',slstr[sl],') ']);
case sl of case sl of
sl_none : ;
sl_call, sl_call,
sl_load, sl_load,
sl_subscript : sl_subscript :

3
compiler/utils/ppuutils/ppuout.pp
View File

@ -473,7 +473,7 @@ const
('dynamic'); ('dynamic');
ConstTypeNames: array[TPpuConstType] of string = ConstTypeNames: array[TPpuConstType] of string =
('', 'int', 'float', 'string', 'set', 'pointer'); ('unknown', 'int', 'float', 'string', 'set', 'pointer');
OrdTypeNames: array[TPpuOrdType] of string = OrdTypeNames: array[TPpuOrdType] of string =
('void', 'uint', 'sint', 'pasbool', 'bool', 'char', 'currency'); ('void', 'uint', 'sint', 'pasbool', 'bool', 'char', 'currency');
@ -695,6 +695,7 @@ begin
WriteStr('ValType', ConstTypeNames[ConstType]); WriteStr('ValType', ConstTypeNames[ConstType]);
s:='Value'; s:='Value';
case ConstType of case ConstType of
ctUnknown: ;
ctInt: ctInt:
WriteInt(s, VInt); WriteInt(s, VInt);
ctFloat: ctFloat: