* fix compile with 1.0.x

rtl/go32v2/dpmiexcp.pp

@@ -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