Invalid code leads to crash

[Christian Budde]

type
  TItems = (iFoo, iBar);

procedure Test(A: Float);
begin
end;

var Item := iFoo;

if Item in [iFoo..

Test(1);

[Eric Grange]

Fixed Issue #73 + test

→ <<cset 96b8d93ce62c>>