paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 07:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improved debugging

Browse Source 
* beautified

git-svn-id: trunk@4458 -
This commit is contained in:
florian 2006-08-19 22:54:21 +00:00
parent 41e6b149f7
commit 0d8b05c73e
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/win32/signals.pp
View File

@ -255,7 +255,10 @@ var
begin
{$ifdef SIGNALS_DEBUG}
if IsConsole then
writeln(stderr,'CallSignal called for signal ',sigtype);
begin
writeln(stderr,'CallSignal called for signal ',sigtype);
dump_stack(stderr,pointer(frame));
end;
{$endif SIGNALS_DEBUG}
{if frame=0 then
begin
@ -351,13 +354,13 @@ var
function API_signals_exception_handler(exceptptrs : PEXCEPTION_POINTERS) : longint; stdcall;
begin
API_signals_exception_handler:=Signals_exception_handler(
@exceptptrs^.ExceptionRecord,
nil,
@exceptptrs^.ContextRecord,
nil);
end;
begin
API_signals_exception_handler:=Signals_exception_handler(
@exceptptrs^.ExceptionRecord,
nil,
@exceptptrs^.ContextRecord,
nil);
end;
const
@ -366,10 +369,10 @@ const
Prev_fpc_handler : pointer = nil;
procedure install_exception_handler;
{$ifdef SYSTEMEXCEPTIONDEBUG}
{$ifdef SIGNALS_DEBUG}
var
oldexceptaddr,newexceptaddr : longint;
{$endif SYSTEMEXCEPTIONDEBUG}
{$endif SIGNALS_DEBUG}
begin
if Exception_handler_installed then
exit;
@ -488,6 +491,5 @@ initialization
as other units also might install their handlers PM }
finalization
remove_exception_handler;
end.