ЛОгирование исключений

← →
@!!ex © (2010-10-06 19:35) [0]

Нашей некий код, заменяющий стандартную функцию RTLUnwindProc:
procedure MyRtlUnwind; stdcall; var PER : PExceptionRecord; procedure DoIt; begin //обработка исключения end; begin asm mov eax, dword ptr [EBP+8+13*4] mov PER, eax end; DoIt; asm mov esp, ebp pop ebp jmp oldRTLUnwindProc end; end;
Объясните пожалуйста, что делает ассемблерная вставка?
Ну вторую часть я понял - вызов стандартного обработчика... А первая?? До DoIt??

← →
@!!ex © (2010-10-06 19:37) [1]

Вообще этот код на TDE работает...
Но!

в DoIt есть вот такой блок:
if PER^.ExceptionFlags and 1=1 then // This seems to be an indication of internal Delphi exception, begin // thus we can access "Exception" class try E := Exception( PER^.ExceptObject); if (E is Exception) then s:=s+"Delphi exception, type "+E.ClassName+", message: "+E.Message+#13#10; except end; end;
Который должен давать доп. инфу... вот он не работает. Как я понимаю из-за неверного кода в ассемблерной вставке(пример сделан для D7, а я пишу на TDE, видимо RTL слегка изменился).
Гуглить пробовал, вся инфа идет времени D7.

← →
@!!ex © (2010-10-06 19:40) [2]

в смысле первая тоже понятно, устанавливает указатель на структуру... но откуда взять актуальное число для указателя??

← →
@!!ex © (2010-10-06 19:47) [3]

Подбором вычислил - 8+14*4

Посмотри Jedy там идет правильный хук обработчика исключений с выводом стека фреймов исключений

> Объясните пожалуйста, что делает ассемблерная вставка?

http://msdn.microsoft.com/en-us/library/ms680609(VS.85).aspx
http://www.wasm.ru/article.php?article=Win32SEHPietrek3

ЛОгирование исключений Найти похожие ветки