paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes compilation of win32 system unit with -dSYSTEMEXCEPTIONDEBUG

Browse Source 
git-svn-id: trunk@14717 -
This commit is contained in:
florian 2010-01-17 15:12:02 +00:00
parent 3747454aeb
commit 2c823f5935
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/system.pp
View File

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