On 2015-03-12 23:15, Graeme Geldenhuys wrote:
> // FPC cross-platform implementation
> function CallerAddr: Pointer;
> begin
> Result := get_caller_addr(get_frame);
> end;
I was told from another source my FPC implementation was incorrect and
should rather be:
[Anybody that could explain the different to me? I would be very grateful.]
function CallerAddr: Pointer;
var
bp: Pointer;
begin
bp := get_caller_frame(get_frame);
if bp <> nil then
Result := get_caller_addr(bp)
else
Result := nil;
end;
This now does cause different addresses for various unit test failures.
Next part is to extract the line info information to confirm that the
addresses I now see are indeed correct.
Regards,
- Graeme -
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://fpgui.sourceforge.net/
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
