Отлов утечек памяти - GNAT, (разделено) Опции

[TarasBer]

Новые вопросы - какая функция определяет наличие или отсутствие утечек памяти?
Я скачал ВинАДУ, поставил, как подключить пакет, содержащий заголовки виндовых библиотек? with ADA.Windows не рабтает, нет такого пакета.

[volvo]

Во-первых, не надо делать лишних вещей, Ада позволяет гораздо более красивую реализацию функции:

   function To_CStr (S: String) return CStr is
   begin
      return CStr'(Ada.Finalization.Controlled with r => new String'(S));
   end;

, а во-вторых, не все то, что Debug_Pool показывает как утечку, на самом деле является таковой, в некоторых случаях этот метод дает осечки. valgrind не нашел утечки (с новой функцией), хотя Debug_Pool по прежнему пишет то же самое...

Можешь почитать вот это, кстати:
Куда девалась память (часть 1)
Куда девалась память (часть 2)
Куда девалась память (часть 3)


Добавлено через 18 мин.

паскалевская идея с переменной, куда пишется результат, мне нравится больше, потому что сразу всё пишется в результат, без лишнего копирования.

То есть, Extended return, как я понимаю, тоже прошел мимо тебя?

Добавлено через 18 мин.

А на самом деле я хочу, чтобы можно было писать хотя бы так:
CreateWindow(..., TO_WIDE(ClassName).s, TO_WIDE(Title).s, ....)

Я обычно делал так:

Ну, скажем, надо создать кнопку с кириллицей... (Показать/Скрыть)

В отдельном файле создавались все текстовые константы, файл сохранялся в формате UTF-8 стандартным виндовым блокнотом, и не редактировался редактором из GPS, отображать этот файл среда под Windows умеет, а вот сохранять его - нет, сбивается кодировка. Поэтому редактировались эти константы только родными виндовыми средствами, либо теми, кто точно кодировку не рушит. Я пользовался когда NotePad-ом, а когда SciTE, по настроению. Вот так описываются константы:
txtconst.ads

with Interfaces.C;

package TxtConst is
   use type Interfaces.C.wchar_array;

   BtnLoad_Text : Interfaces.C.wchar_array := "Открыть" & Interfaces.C.wide_nul;
   BtnSave_Text : Interfaces.C.wchar_array := "Сохранить" & Interfaces.C.wide_nul;
   BtnClear_Text : Interfaces.C.wchar_array := "Очистить" & Interfaces.C.wide_nul;

   --  ...

end TxtConst;

, писалась функция создающая нужный контрол:

   --  К примеру, функция, создающая кнопочку:
   function Create_Button (Instance : Win32.Windef.HINSTANCE;
                           Pos_X, Pos_Y : Win32.INT;
                           Width, Height : Win32.INT;
                           Caption : Interfaces.C.wchar_array;
                           Parent : Win32.Windef.HWND;
                           Button_ID : Integer;
                           Font : Win32.Windef.HFONT := Common_Font)
                           return Win32.Windef.HWND is
      Res_Handle : Win32.Windef.HWND;
      L_Result : Win32.LRESULT;
      pragma Unreferenced (L_Result);

      use Win32.Winuser;
      Style : constant Win32.DWORD :=
        WS_CHILD or WS_VISIBLE or BS_PUSHBUTTON;
   begin
      Res_Handle :=
        CreateWindowExW (dwExStyle => 0,
                         lpClassName => Class_Ws,
                         lpWindowName => Empty_Ws,
                         dwStyle => Style,
                         X => Pos_X,
                         Y => Pos_Y,
                         nWidth => Width,
                         nHeight => Height,
                         hWndParent => Parent,
                         hMenu => Conversions.To_HMENU (Button_ID),
                         hInstance => Instance,
                         lpParam => System.Null_Address);

      if Font /= System.Null_Address then
         L_Result := SendMessage (Res_Handle, WM_SETFONT,
                                  Conversions.To_WPARAM (Font), 0);
      end if;
      L_Result := SendMessageW (hWnd   => Res_Handle,
                                Msg    => WM_SETTEXT,
                                wParam => 0,
                                lParam => Conversions.To_LPARAM
                                  (Caption'Address));
      return Res_Handle;
   end Create_Button;

, и вызывалось все это вот таким образом:

      Btn_Load := WinLib.Create_Button (Instance  => hInst,
                                        Pos_X     => 16,
                                        Pos_Y     => 630,
                                        Width     => 75,
                                        Height    => 27,
                                        Caption   => BtnLoad_Text,
                                        Parent    => Win_Hwnd,
                                        Button_ID => Wndproc.BTN_LOAD);

Сообщение отредактировано: volvo - 22.02.2011 12:58