paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compile with 1.0.x

Browse Source
This commit is contained in:
peter 2003-03-19 15:57:16 +00:00
parent 5893b9bb19
commit f21892ffc3
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/go32v2/dpmiexcp.pp
View File

@ -749,13 +749,8 @@ end;
procedure show_call_frame(djgpp_exception_state : pexception_state);
begin
errln('Call frame traceback EIPs:');
{$ifdef VER1_0}
errln(BackTraceStrFunc(djgpp_exception_state^.__eip));
dump_stack(stderr,djgpp_exception_state^.__ebp);
{$else}
errln(BackTraceStrFunc(Pointer(djgpp_exception_state^.__eip)));
dump_stack(stderr,Pointer(djgpp_exception_state^.__ebp));
{$endif}
end;
@ -1520,11 +1515,7 @@ begin
eip:=djgpp_exception_state_ptr^.__eip;
ebp:=djgpp_exception_state_ptr^.__ebp;
djgpp_exception_state_ptr:=djgpp_exception_state_ptr^.__exception_ptr;
{$ifdef VER1_0}
HandleErrorAddrFrame(ErrorOfSig,eip,ebp);
{$else}
HandleErrorAddrFrame(ErrorOfSig,pointer(eip),pointer(ebp));
{$endif}
End
else
{ probably higher level is required }
@ -1546,7 +1537,10 @@ end;
{$endif IN_SYSTEM}
{
$Log$
Revision 1.12 2003-03-18 08:48:41 michael
Revision 1.13 2003-03-19 15:57:16 peter
* fix compile with 1.0.x
Revision 1.12 2003/03/18 08:48:41 michael
+ Patch from peter to correct frame trace
Revision 1.11 2002/10/14 19:39:16 peter