From 2c823f59351f5ad54a9e7d85a38dfde98b937fae Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 17 Jan 2010 15:12:02 +0000
Subject: [PATCH] * fixes compilation of win32 system unit with
-dSYSTEMEXCEPTIONDEBUG
git-svn-id: trunk@14717 -
---
rtl/win32/system.pp | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 9da5fd2b9e..67dd8a38d2 100644
--- a/rtl/win32/system.pp
+++ b/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;