paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +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;
write([s,'(',slstr[sl],') ']);
case sl of
sl_none : ;
sl_call,
sl_load,
sl_subscript :

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

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