Stack trace plz?
lazarus / 43-Android

----------------------------------------------------------------------
hinst · 2013-10-19 19:00

I tried to read stack trace in my Android application as this http://w
iki.freepascal.org/Logging_exceptions#Dump_exception_call_stack
article suggests
Code: [Select]unit ExceptionCallStackUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes,
  SysUtils,
  CommonLogUnit;

function GetCurrentCallStack: string;
function GetExceptionCallStack(E: Exception): string;

implementation

function GetExceptionCallStack(E: Exception): string;
var
  i: Integer;
  frames: PPointer;
begin
  result := '';
  result := result + BackTraceStrFunc(ExceptAddr);
  frames := ExceptFrames;
  for i := 0 to ExceptFrameCount - 1 do
    result := result + LineEnding + BackTraceStrFunc(frames[i]);
end;

function GetCurrentCallStack: string;
begin
  try
    raise Exception.Create('Stack trace');
  except
    on e: Exception do
      result := GetExceptionCallStack(e);
  end;
end;

end.
But no luck. When I call it, I always get only one line like
$5074D0F4. I recall this code worked fairly well for desktop; could
read actual line numbers...

----------------------------------------------------------------------
Leledumbo · 2013-10-20 04:48

http://forum.lazarus.freepascal.org/index.php?topic=15323.0