paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 09:10:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed exception callback

Browse Source
This commit is contained in:
peter 2000-10-13 12:01:52 +00:00
parent 98064c888d
commit 64f2a4d864
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/syswin32.pp
View File

@ -1060,7 +1060,7 @@ type
end; end;
{ type of functions that should be used for exception handling } { type of functions that should be used for exception handling }
TTopLevelExceptionFilter = function (excep : PExceptionPointers) : Longint; TTopLevelExceptionFilter = function (excep : PExceptionPointers) : Longint;stdcall;
function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter : TTopLevelExceptionFilter) : TTopLevelExceptionFilter; function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter : TTopLevelExceptionFilter) : TTopLevelExceptionFilter;
external 'kernel32' name 'SetUnhandledExceptionFilter'; external 'kernel32' name 'SetUnhandledExceptionFilter';
@ -1380,7 +1380,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2000-10-11 16:05:55 peter Revision 1.6 2000-10-13 12:01:52 peter
* fixed exception callback
Revision 1.5 2000/10/11 16:05:55 peter
* stdcall for callbacks (merged) * stdcall for callbacks (merged)
Revision 1.4 2000/09/11 20:19:28 florian Revision 1.4 2000/09/11 20:19:28 florian