* fixes compilation of win32 system unit with -dSYSTEMEXCEPTIONDEBUG

git-svn-id: trunk@14717 -

rtl/win32/system.pp

@@ -113,12 +113,12 @@ const
   Dll_Thread_Detach_Hook : TDLL_Entry_Hook = nil;
 
 Const
-  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see 
+  { it can be discussed whether fmShareDenyNone means read and write or read, write and delete, see
     also http://bugs.freepascal.org/view.php?id=8898, this allows users to configure the used
 	value
   }
   fmShareDenyNoneFlags : DWord = 3;
-  
+
 implementation
 
 var
@@ -620,13 +620,13 @@ var
   resetFPU        : array[0..MaxExceptionLevel-1] of Boolean;
 
 {$ifdef SYSTEMEXCEPTIONDEBUG}
-procedure DebugHandleErrorAddrFrame(error, addr, frame : longint);
+procedure DebugHandleErrorAddrFrame(error : longint; addr, frame : pointer);
 begin
   if IsConsole then
     begin
       write(stderr,'HandleErrorAddrFrame(error=',error);
-      write(stderr,',addr=',hexstr(addr,8));
-      writeln(stderr,',frame=',hexstr(frame,8),')');
+      write(stderr,',addr=',hexstr(ptruint(addr),8));
+      writeln(stderr,',frame=',hexstr(ptruint(frame),8),')');
     end;
   HandleErrorAddrFrame(error,addr,frame);
 end;
@@ -777,7 +777,7 @@ function syswin32_i386_exception_handler(excep : PExceptionPointers) : Longint;s
           writeln(stderr,'Exception Continue Exception set at ',
                   hexstr(exceptEip[exceptLevel],8));
           writeln(stderr,'Eip changed to ',
-                  hexstr(longint(@JumpToHandleErrorFrame),8), ' error=', error);
+                  hexstr(longint(@JumpToHandleErrorFrame),8), ' error=', err);
         end;
 {$endif SYSTEMEXCEPTIONDEBUG}
       end;