[fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

[Jonas Maebe]

On 24/03/2020 15:20, fredvs via fpc-pascal wrote:
> 
> So doing this:
> 
>> unit myunit;   
>>  {$warn 6060 off}
> Still gives some  "Warning: (6060) Case statement does not handle all
> possible cases"

It works for me:

$ cat tt.pp
{$warn 6060 off}

var
  b: 1..10;
begin
  case b of
    1: writeln('hello');
  end
end.

$ ppcx20 -l -vwq tt
Free Pascal Compiler version 3.3.1 [2020/02/15] for x86_64
Copyright (c) 1993-2020 by Florian Klaempfl and others
(1002) Target OS: Darwin for x86_64
(3104) Compiling tt.pp
tt.pp(6,8) Warning: (5037) Variable "b" does not seem to be initialized
(9009) Assembling program
(9015) Linking tt
(1008) 9 lines compiled, 0.1 sec
(1021) 1 warning(s) issued


Jonas