paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

<> debug conditionnal renamed DPMIEXCP_DEBUG

Browse Source
This commit is contained in:
pierre 1999-02-05 12:49:25 +00:00
parent 2d311def72
commit ebaa3a84ac
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/go32v2/dpmiexcp.pp
View File

@ -591,10 +591,10 @@ begin
errln(''); errln('');
if (djgpp_exception_state_ptr^.__cs = get_cs) then if (djgpp_exception_state_ptr^.__cs = get_cs) then
show_call_frame(djgpp_exception_state_ptr) show_call_frame(djgpp_exception_state_ptr)
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
else else
errln('Exception occured in another context'); errln('Exception occured in another context');
{$endif def SYSTEMDEBUG} {$endif def DPMIEXCP_DEBUG}
; ;
if assigned(djgpp_exception_state_ptr^.__exception_ptr) then if assigned(djgpp_exception_state_ptr^.__exception_ptr) then
if (djgpp_exception_state_ptr^.__exception_ptr^.__cs = get_cs) then if (djgpp_exception_state_ptr^.__exception_ptr^.__cs = get_cs) then
@ -602,14 +602,14 @@ begin
Errln('First exception level stack'); Errln('First exception level stack');
show_call_frame(djgpp_exception_state_ptr^.__exception_ptr); show_call_frame(djgpp_exception_state_ptr^.__exception_ptr);
end end
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
else else
begin begin
errln('First exception occured in another context'); errln('First exception occured in another context');
djgpp_exception_state_ptr:=djgpp_exception_state_ptr^.__exception_ptr; djgpp_exception_state_ptr:=djgpp_exception_state_ptr^.__exception_ptr;
do_faulting_finish_message(); do_faulting_finish_message();
end; end;
{$endif def SYSTEMDEBUG} {$endif def DPMIEXCP_DEBUG}
; ;
{ must not return !! } { must not return !! }
simple_exit: simple_exit:
@ -676,9 +676,9 @@ type
pseginfo = ^tseginfo; pseginfo = ^tseginfo;
var var
except_ori : array [0..EXCEPTIONCOUNT-1] of tseginfo; except_ori : array [0..EXCEPTIONCOUNT-1] of tseginfo;
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
export name '_ori_exceptions'; export name '_ori_exceptions';
{$endif def SYSTEMDEBUG} {$endif def DPMIEXCP_DEBUG}
kbd_ori : tseginfo; kbd_ori : tseginfo;
npx_ori : tseginfo; npx_ori : tseginfo;
cbrk_ori, cbrk_ori,
@ -693,12 +693,12 @@ var
i : longint; i : longint;
local_ex : boolean; local_ex : boolean;
begin begin
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
if exceptions_on then if exceptions_on then
errln('Disabling FPC exceptions') errln('Disabling FPC exceptions')
else else
errln('Enabling FPC exceptions'); errln('Enabling FPC exceptions');
{$endif SYSTEMDEBUG} {$endif DPMIEXCP_DEBUG}
{ toggle here to avoid infinite recursion } { toggle here to avoid infinite recursion }
{ if a subfunction calls runerror !! } { if a subfunction calls runerror !! }
exceptions_on:=not exceptions_on; exceptions_on:=not exceptions_on;
@ -742,21 +742,21 @@ begin
set_rm_interrupt(cbrk_vect,cbrk_ori); set_rm_interrupt(cbrk_vect,cbrk_ori);
free_rm_callback(cbrk_rmcb); free_rm_callback(cbrk_rmcb);
cbrk_hooked := false; cbrk_hooked := false;
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
errln('back to ori rm cbrk '+hexstr(cbrk_ori.segment,4)+':'+hexstr(longint(cbrk_ori.offset),4)); errln('back to ori rm cbrk '+hexstr(cbrk_ori.segment,4)+':'+hexstr(longint(cbrk_ori.offset),4));
{$endif SYSTEMDEBUG} {$endif DPMIEXCP_DEBUG}
end end
else else
begin begin
get_rm_interrupt(cbrk_vect, cbrk_ori); get_rm_interrupt(cbrk_vect, cbrk_ori);
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
errln('ori rm cbrk '+hexstr(cbrk_ori.segment,4)+':'+hexstr(longint(cbrk_ori.offset),4)); errln('ori rm cbrk '+hexstr(cbrk_ori.segment,4)+':'+hexstr(longint(cbrk_ori.offset),4));
{$endif SYSTEMDEBUG} {$endif DPMIEXCP_DEBUG}
get_rm_callback(@djgpp_cbrk_hdlr, cbrk_regs, cbrk_rmcb); get_rm_callback(@djgpp_cbrk_hdlr, cbrk_regs, cbrk_rmcb);
set_rm_interrupt(cbrk_vect, cbrk_rmcb); set_rm_interrupt(cbrk_vect, cbrk_rmcb);
{$ifdef SYSTEMDEBUG} {$ifdef DPMIEXCP_DEBUG}
errln('now rm cbrk '+hexstr(cbrk_rmcb.segment,4)+':'+hexstr(longint(cbrk_rmcb.offset),4)); errln('now rm cbrk '+hexstr(cbrk_rmcb.segment,4)+':'+hexstr(longint(cbrk_rmcb.offset),4));
{$endif SYSTEMDEBUG} {$endif DPMIEXCP_DEBUG}
cbrk_hooked := true; cbrk_hooked := true;
end; end;
end; end;
@ -907,7 +907,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 1999-01-22 15:46:33 pierre Revision 1.6 1999-02-05 12:49:25 pierre
<> debug conditionnal renamed DPMIEXCP_DEBUG
Revision 1.5 1999/01/22 15:46:33 pierre
* PsignalHandler is now a pointer as changed in linux.pp * PsignalHandler is now a pointer as changed in linux.pp
Revision 1.4 1999/01/22 12:39:19 pierre Revision 1.4 1999/01/22 12:39:19 pierre