Delphi JCL调试缺少JDBG的堆栈帧条目

Question

我使用以下代码在发生异常时转储堆栈帧：

...
var
  FTraceList: TStringList;
...
procedure TTraceForm.LogException(ExceptObj: TObject; ExceptAddr: Pointer; IsOS: Boolean);
begin
...
StackList := JclCreateStackList(false, 0, Caller(0, false));
try
  FTraceList.Add('');
  FTraceList.Add('Stack trace at the moment of the exception:');
  StackList.AddToStrings(FTraceList, true, true, true, true);
finally
  Stacklist.Free;
end;
end;

但它在调试和发布模式下的行为不同。

对于在调试模式（Delphi调试信息）下编译时主窗体的OnKeyDown中的预期异常（出于测试目的的异常），结果是：

Stack trace at the moment of the exception:
(00591276){Main.exe     } [00992276] DlgTraceException.TTraceForm.LogException (Line 162, "DlgTraceException.pas" + 55) + $4
(0058B8FF){Main.exe     } [0098C8FF] JclDebug.JclCreateStackList + $17
(00591281){Main.exe     } [00992281] DlgTraceException.TTraceForm.LogException (Line 162, "DlgTraceException.pas" + 55) + $F
(00582AE3){Main.exe     } [00983AE3] JclHookExcept.TNotifierItem.DoNotify + $43
(00582CCB){Main.exe     } [00983CCB] JclHookExcept.DoExceptNotify + $CF
(00582DAD){Main.exe     } [00983DAD] JclHookExcept.HookedExceptObjProc + $1D
(0000606F){Main.exe     } [0040706F] System.@HandleAnyException + $33
(00598DE3){Main.exe     } [00999DE3] Main.TMainForm.FormKeyDown (Line 658, "Main.pas" + 2) + $7

这是我在发布模式下得到的（JCL调试信息通过JCL调试专家添加到二进制文件中）：

Stack trace at the moment of the exception:
(0053BA27){Main.exe     } [0093CA27] DlgTraceException.TTraceForm.LogException + $377
(00536427){Main.exe     } [00937427] JclDebug.JclCreateStackList + $17
(0053BA32){Main.exe     } [0093CA32] DlgTraceException.TTraceForm.LogException + $382
(0052D60B){Main.exe     } [0092E60B] JclHookExcept.TNotifierItem.DoNotify + $43
(0052D7F3){Main.exe     } [0092E7F3] JclHookExcept.DoExceptNotify + $CF
(0052D8D5){Main.exe     } [0092E8D5] JclHookExcept.HookedExceptObjProc + $1D
(0000606F){Main.exe     } [0040706F] System.@HandleAnyException + $33

在第二种情况下，缺少FormKeyDown条目。有人知道为什么会发生这种事吗？我也想知道发布模式下的整个堆栈跟踪。

Answer 1

在使用编译器选项（打开和关闭它们）之后，我可以找出原因。堆栈框架已优化。当我关闭Optimization时，FormKeyDown调用即使在Release模式下也会被记录下来。上面注释中提到的堆栈帧生成选项没有影响结果。

当然，我会在发布模式下继续进行优化。很难找到异常的原因，但JCL调试提供了其他信息，这些信息应该（希望）足以查找异常的原因。