169 похожих чатов

Кто знает, как заставить FastMM4 диагностировать повторное освобождение одного и

того же блока памяти. Скачал самую последнюю версии 4.993. Настроил FullDebugMode, подкинул отладочную DLL-ку, добавил к проекту детальную отладочную информацию плюс она встраивается внутрь EXEшника, подключил FastMM4 самым первым модулем в DPR.
Проверил, формируется ли отладочный лог "ProjectTestMM_MemoryManager_EventLog.txt" - да он формируется, если есть утечка и я закрываю программу.
При создании формы выделаю память GetMem(p, 10);
При нажатии кнопки освобождаю память FreeMem(p);
Так вот, при повторном нажатии кнопки выдаётся ошибка AccessViolation.
Валится при обращении к LPSmallBlockPool.BlockType.BlockSize в функции GetAvailableSpaceInBlock (в этот момент BlockType=nil)
Т.е. и близко не пахнет какими-то способностями FastMM4 диагностировать повторное уничтожение объекта. Т.е. оно не тупо не работает? А как заставить?
Версия Delphi 2007.

2 ответов

31 просмотр

{$ifdef Release} {Specify the options you use for release versions below} {$undef FullDebugMode} {$undef CheckHeapForCorruption} {$define ASMVersion} {$undef EnableMemoryLeakReporting} {$undef UseOutputDebugString} {$define NoMessageBoxes} {$else} {Specify the options you use for debugging below} {$define FullDebugMode} {$define EnableMemoryLeakReporting} {$define UseOutputDebugString} {$define CheckHeapForCorruption} {$define ClearLogFileOnStartup} {$endif} у меня так

Дмитрий-Логинов Автор вопроса
Boris Usievich
{$ifdef Release} {Specify the options you use fo...

Добавил CheckHeapForCorruption. Не помогло Можешь проверить, оно работает? Код простейший: var Form3: TForm3; p: PInteger; implementation {$R *.dfm} procedure TForm3.Button1Click(Sender: TObject); begin FreeMem(p); end; procedure TForm3.FormCreate(Sender: TObject); begin GetMem(p, 10); end;

Похожие вопросы

Обсуждают сегодня

Сообщение* в закодированном виде. То есть, просто сделать sendMessage?text=Привет бла-бла! не получится, надо в HEX переводить, и добавлять процент, типа такого: sendMessage?t...
КТ315
21
А случайно нет ли в паскале штатной возможности передать указатель и количество туда где array of в качестве аргумента?
zamtmn
25
Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
58
Только такой if ($modx->event->name == 'OnBeforeCartItemAdding') { $meta = $params['item']['meta']; $lang = $modx->getConfig('_lang'); // проверяем, задана ли опция i...
Multi Web
1
Всем привет. Испытываю проблемы в работе БД, а именно огромного роста логов, такого характера: 024-05-16 18:39:07 +05 sentry sentry [unknown] 1050169 7-1 app-sentry01.corp.ru>...
Alexey
2
Ну раз я пока тут, задам пару глупых вопросов. Зачем писать на ассемблере если компилятор довольно умный, а ассемблер много времени занимает? В каких прикладных задачах сейчас...
Максим Рябцев
20
Хм. А телеграм апи работают через HTTP?
The Bird of Hermes
14
Если подытожить: По мнению Розыча и Хемуля и др. - предпочтительно по возможности объявлять в секции имплементации потому-что: 1) Выше скорость компиляции 2) Не замусоривается...
notme
7
Почему Telegram пишет, что объект media не найден, хотя на самом деле я его передаю? Делаю на urllib, без зависимостей, так надо. Вызываю метод sendMediaGroup с таким JSON: ...
Alexey S
1
В дельфе нет никакого коробочного (без установки третьих либ) способа получить CallStack с расшифровкой отладочных символов?
notme
7
Карта сайта