Заголовки Windows, Ada Опции

[TarasBer]

Я поставил пакет win32ada, он создал папку include\win32ada
Если написать первой строкой test.gpr with "win32ada", то среда ругается при открытии пакета:

[2011-02-08 16:25:57] C:\Program Files\ADA\projects\TEST\test.gpr:1:06: unknown project file: "win32ada"
[2011-02-08 16:25:57] Error while loading project 'C:\Program Files\ADA\projects\TEST\test.gpr'. Loading the default project.

Ну я это убрал.
Добавил в test.gpr строчку

for Source_Dirs use ("..\..\include\win32ada\**");

Пишу в test.adb with win32.winuser (вроде все основные функции, типа окно нарисовать итд, там).
Компилирую.

gnatlink "C:\Program Files\ADA\projects\TEST\test.ali" -shared-libgcc -g -g -fprofile-generate -o "C:\Program Files\ADA\projects\TEST\test.exe"
c:/program files/ada/bin/../libexec/gcc/i686-pc-mingw32/4.3.6/ld.exe: cannot find -lwin32ada
collect2: ld returned 1 exit status
gnatlink: error when calling C:\Program Files\ADA\bin\gcc.exe
gnatmake: *** link failed.

[2011-02-08 16:28:19] process exited with status 4 (elapsed time: 06.26s)

Что делать?

[volvo]

Тогда данный вид оптимизации угробится во всём проекте?

Да. Если это нежелательно - то сделай то, что сам озвучил (можно прямо внутри процедуры Sizing):

   type P_RECT is access all RECT;
   pragma No_Strict_Aliasing (P_RECT);

   -- Эту функцию не забудь убрать из WinApi.Conversions   
   function To_PRECT is new Ada.Unchecked_Conversion(LPARAM, P_RECT);

   -- ...
   R: constant P_RECT := To_PRECT(lp);

, и убрать -fno-strict-aliasing, если добавлял. Предупреждение уйдет...

8. Как сделать программе иконку?

Создаю обычный RC-файл из одной строки:

MAINICON ICON "beautifier.ico"
, потом его обрабатываю компилятором ресурсов и конвертором Resource To Object. У меня оба эти файла нашлись в \WINDOWS\Microsoft.NET\Framework\v2.0.50727 (ни в Дельфи, ни в Code::Blocks конвертора не нашлось, только rc). То есть, последовательность такая (я для простоты закинул RC вместе с иконкой в ту самую папку, .NET-овскую):

C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>rc -r -dWin32 -fo bf.res bf.rc
тут бла-бла-бла, скомпилировал в RES
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727>cvtres /machine:x86 /out:bf.rbj bf.res
бла-бла-бла, преобразовал в RBJ

, а теперь в любой ADS-файл, который подключается к программе, добавь строку

pragma Linker_Options ("{полный_путь_к_полученному_RBJ_файлу}\bf.rbj");

Обычно это делается в Linker_Options.ads, но я смотрю, этот файл у тебя никуда не подключается, так что туда запихивать бесполезно, иконка не изменится. Добавь строку именно в подключаемый файл. После пересборки у EXE-шника будет иконка...

М

Вопрос об исключениях перенесен: Обработка исключений (Ada)

Сообщение отредактировано: volvo - 6.04.2011 11:17