fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-07-01 21:25 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/vm/extrap.c
     ! Excluded GPF dumping code for Win64 and WinCE.
This commit is contained in:
Viktor Szakats
2008-07-01 19:26:50 +00:00
parent 2a55eb01e6
commit 26d8b173eb
2 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-07-01 21:25 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/vm/extrap.c
! Excluded GPF dumping code for Win64 and WinCE.
2008-07-01 20:58 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/hbinet.c
% Recently added code fixed to use HB_ERR_FUNCNAME.

10
harbour/source/vm/extrap.c
View File

@@ -98,6 +98,15 @@ LONG WINAPI hb_win32ExceptionHandler( struct _EXCEPTION_POINTERS * pExceptionInf
if( *hb_setGetCPtr( HB_SET_HBOUTLOGINFO ) )
fprintf( hLog, HB_I_("Info: %s\n"), hb_setGetCPtr( HB_SET_HBOUTLOGINFO ) );
#if defined(HB_WINCE)
{
/* TODO */
}
#elif defined(HB_OS_WIN_64)
{
/* TODO */
}
#else
{
char buf[ 32 ];
PEXCEPTION_RECORD pExceptionRecord = pExceptionInfo->ExceptionRecord;
@@ -173,6 +182,7 @@ LONG WINAPI hb_win32ExceptionHandler( struct _EXCEPTION_POINTERS * pExceptionInf
fwrite( errmsg, sizeof( char ), strlen( errmsg ), hLog );
}
#endif
}
msg[ 0 ] = '\0';