Am Monday 06 August 2012 20:15:53 schrieb Martin:
>
> You can probably reuse sone code from the system unit.
>
> below is a copy of dump_stack from fpc. It gets all the addresses
>
>
> {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
> Procedure dump_stack(var f : text;bp : Pointer);
> var
> i : Longint;
> prevbp : Pointer;
> is_dev : boolean;
> caller_frame,
> caller_addr : Pointer;
> Begin
> {$ifdef FPC_HAS_FEATURE_EXCEPTIONS}
> try
> {$endif FPC_HAS_FEATURE_EXCEPTIONS}
> prevbp:=bp-1;
> i:=0;
> is_dev:=do_isdevice(textrec(f).Handle);
> while bp > prevbp Do
> Begin
> caller_addr := get_caller_addr(bp);
> caller_frame := get_caller_frame(bp);
> if (caller_addr=nil) then
> break;
> Writeln(f,BackTraceStrFunc(caller_addr));
> if (caller_frame=nil) then
> break;
> Inc(i);
> If ((i>max_frame_dump) and is_dev) or (i>256) Then
> break;
> prevbp:=bp;
> bp:=caller_frame;
> End;
> {$ifdef FPC_HAS_FEATURE_EXCEPTIONS}
> except
> { prevent endless dump if an exception occured }
> end;
> {$endif FPC_HAS_FEATURE_EXCEPTIONS}
> End;
I do not understand this ...
What is the content of the stack?
Which file 'f'?
Is it read from or write to file 'f'?
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
