粘贴文本时，Ada GPS编辑器崩溃

Question

在编辑此程序包主体时：

var
  ReadIniFile: TIniFile;
  SysFolder: array[0..MAX_PATH-1] of Char;
  Len: UINT;
  Value: Pointer;
begin
  Result := '';
  if not Wow64DisableWow64FsRedirection(@Value) then Exit;
  try
    Len := GetSystemDirectory(SysFolder, MAX_PATH);
    if (Len > 0) and (Len < MAX_PATH) then
    begin
      ReadIniFile := TIniFile.Create(IncludeTrailingPathDelimiter(SysFolder) + 'File.ini');
      ...
    end;
  finally
    Wow64RevertWow64FsRedirection(Value);
  end;
end;

在是后粘贴以下代码时GPS崩溃：

package body ai is

   type Possible_Boards is

end ai;

很明显，这不是Ada代码，但是GPS崩溃似乎不合理。