[fpc-pascal] Enum range check error

[Ryan Joseph]

Is this a bug in generics with default()?

=====================

type
  TEnum = (Unused = '.');
  generic TSomething<T> = class
    function Get: T;
  end; 
  TEnumeratedSomething = specialize TSomething<TEnum>;

function TSomething.Get: T;
begin
  // Range check error while evaluating constants (0 must be between 46 and 46)
  exit(Default(T));
end;


Regards,
	Ryan Joseph