[patch] for "Compilation raised exception internally" for wrong generic constraint

Original Reporter info from Mantis: hnb

• Reporter name: Maciej Izak

Description:

small patch from my SmartPointers/ARC internal branch ;). Patch and example attached.

The compiler can't handle in correct way with this code:

{$MODE DELPHI}

type
  TFoo<T: TObject> = record
  end;

var
  foo: TFoo<Integer>; // Error: Compilation raised exception internally

Mantis conversion info:

• Mantis ID: 30494
• Version: 3.1.1
• Fixed in version: 3.1.1
• Fixed in revision: 34381 (#aaceb551)