Failed assertion for type mismatch

[Christian Budde]

The following errornous code snippet fails on an assert:

type
  TFoo = class
  end;

type
  TFooClass = class of TFoo;

var
  Foo: TFoo

procedure SetFoo(Value: TFooClass);
begin
  if Value <> Foo then
  begin
  end;
end;

Instead it should create an error message.

[Eric Grange]

Fixed Issue #64

→ <<cset b8a73fafbd8b>>