From 2f5fb88988aa6df05b7083374f8095cb16d7548a Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 2 Jun 2008 09:35:26 +0000 Subject: [PATCH] 2008-06-02 11:34 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * source/vm/extrap.c ! Blind fix for OS/2. --- harbour/ChangeLog | 4 ++++ harbour/source/vm/extrap.c | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 3efc4d0ba1..a8b12f918a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-06-02 11:34 UTC+0100 Viktor Szakats (harbour.01 syenar hu) + * source/vm/extrap.c + ! Blind fix for OS/2. + 2008-06-02 02:36 UTC+0100 Viktor Szakats (harbour.01 syenar hu) * contrib/hbsqlit3/hbsqlit3.c ! Removed Windows API dependencies (MessageBox() -> HB_TRACE()) diff --git a/harbour/source/vm/extrap.c b/harbour/source/vm/extrap.c index 97acb595b1..459b0ebd1f 100644 --- a/harbour/source/vm/extrap.c +++ b/harbour/source/vm/extrap.c @@ -176,6 +176,8 @@ void hb_vmUnsetExceptionHandler( void ) EXCEPTIONREGISTRATIONRECORD RegRec; /* Exception Registration Record */ APIRET rc; /* Return code */ + memset( &RegRec, 0, sizeof( RegRec ) ); + RegRec.ExceptionHandler = ( ERR ) hb_os2ExceptionHandler; /* I don't do any check on return code since harbour is exiting in any case */ rc = DosUnsetExceptionHandler( &RegRec ); HB_SYMBOL_UNUSED( rc );