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