Не компилируется старый проект в GNAT2011 Опции

[TarasBer]

Я тут когда-то выкладывал программу, которая графики рисует и всё такое.
Мне вдруг эта программа очень понадобилась, но старые ехе не сохранились нигде.
Программа собрана в GNAT2010.
Однако при сборке в GNAT2011 выдаётся предупреждение, что-то типа что вызывается инициализатор объекта, которого не существует и типа будет ошибка при запуске (повторить флаги, при которых выдаётся это предупреждение, не удалось). И вправду, exe при запуске сразу закрывается.

Плюс со средой что-то стало: при попытке запустить программу (даже новую) из среды выдаётся ошибка:

Код

[2012-10-22 14:09:29] Could not locate executable on path:

Переустановка не помогает.

В общем, что делать (с проектом (где в нём ошибка) и средой), программа вдруг стала позарез нужна?
На всякий случай добавляю исходники, в том виде, в котором у меня они есть.

[IUnknown]

Могут. Но для этого надо приложить дополнительные усилия. Мало того, что нужно создавать окна через CreateWindowW, так еще и текст, который будет отправляться в заголовок, должен сохраняться не редактором GPS, а сторонним. Дело в том, что для корректной работы с заголовками окон (странно, но это так. С остальным кириллическим текстом это не так критично, хотя тоже желательно) нужно текст хранить в UTF8 with BOM, чего редактор GPS не делает, он хранит без BOM.

Поэтому обычно я делаю проще: все (даже не только кириллические) строковые константы выношу в отдельный модуль, который редактирую другим редактором. Можно редактировать и GPS-овским, но перед сборкой обязательно пересохранить сторонним в нужном формате.

with Interfaces.C;

package TxtConst is

  use type Interfaces.C.wchar_array; -- Для &

  Main_Class : constant Interfaces.C.wchar_array := "TestAppClass" & Interfaces.C.wide_nul;
  Main_Caption : constant Interfaces.C.wchar_array := "Заголовок - кириллица" & Interfaces.C.wide_nul;

end TxtConst;

, а потом создается окно:

   function To_LPCWSTR is
      new Ada.Unchecked_Conversion (System.Address, Win32.LPCWSTR);

   -- ...

   Main_Hwnd := CreateWindowW
     (
      To_LPCWSTR(Main_Class'Address),
      To_LPCWSTR(Main_Caption'Address),
      WS_OVERLAPPEDWINDOW or WS_CLIPCHILDREN,
      CW_USEDEFAULT, CW_USEDEFAULT, 200, 150,
      Null_Address, Null_Address, hInst, Null_Address
     );