Bogue étrange avec des méthodes anonymes dans la section 'initialisation'

Question

Cette unité ne parvient pas à se compiler dans XE2 Update 3 avec l'erreur "Erreur interne: SY6315". Dans XE il n'y a pas un tel problème.

unit Test; 

interface 

uses 
    SysUtils; 

var 
    Proc: TProc; 

implementation 

initialization 
    Proc := procedure 
    var ByteArr: array of Byte; 
    begin 
     SetLength(ByteArr, 10); 
    end; 

end. 

Est-ce que quelqu'un a déjà rencontré ce problème?

Mise à jour: J'ai soumis un rapport de CQ: QC#102888.

Answer 1

On dirait un bug du compilateur, c'est une solution à l'aide TBytes

Proc := procedure 
    var 
    ByteArr: TBytes; 
    begin 
     SetLength(ByteArr, 10); 
    end;