From 4e2ea257bda02131f1f12701215329892cc80267 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 11 Oct 1999 22:22:05 +0000 Subject: [PATCH] 19991011-23:54 GMT+1 --- harbour/ChangeLog | 7 +++++++ harbour/source/rdd/dbfcdx/dbfcdx0.prg | 15 --------------- harbour/source/rtl/fm.c | 1 + 3 files changed, 8 insertions(+), 15 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1ec4e2a7a8..9becfea596 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +19991011-23:54 GMT+1 Victor Szel + * source/rtl/fm.c + + Newline readded to the closing //INFO message ;) + * source/rdd/dbfcdx/dbfcdx1.prg + - Removed the Inithandler/LockErrHandler since they are not there in + Clipper. + 19991011-14:20 EDT David G. Holm * source/rtl/set.c diff --git a/harbour/source/rdd/dbfcdx/dbfcdx0.prg b/harbour/source/rdd/dbfcdx/dbfcdx0.prg index df69949f37..1be705a9bb 100644 --- a/harbour/source/rdd/dbfcdx/dbfcdx0.prg +++ b/harbour/source/rdd/dbfcdx/dbfcdx0.prg @@ -46,18 +46,3 @@ init procedure DBFCDXInit rddRegister( "DBFCDX", RDT_FULL ) return - -init procedure InitHandler - - local bOldError := ErrorBlock( { | oError | LockErrHandler( oError, bOldError ) } ) - -return - -static function LockErrHandler( oError, bOldError ) - - if oError:gencode() == EG_LOCK - return .T. - endif - -return Eval( bOldError, oError ) - diff --git a/harbour/source/rtl/fm.c b/harbour/source/rtl/fm.c index dfac3dcdc8..0e029282f8 100644 --- a/harbour/source/rtl/fm.c +++ b/harbour/source/rtl/fm.c @@ -163,6 +163,7 @@ void hb_xexit( void ) /* Deinitialize fixed memory subsystem */ { char buffer[ 100 ]; + hb_outerr( hb_consoleGetNewLine(), 0 ); hb_outerr( "----------------------------------------", 0 ); hb_outerr( hb_consoleGetNewLine(), 0 ); sprintf( buffer, "Total memory allocated: %ld bytes (%lu blocks)", s_ulMemoryMaxConsumed, s_ulMemoryMaxBlocks );