From 0cd6defe1f7a7da331038ae8e0438be08703f171 Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Wed, 30 Jun 1999 22:58:11 +0000 Subject: [PATCH] See ChangeLog entry 19990630-17:45 EDT David G. Holm --- harbour/ChangeLog | 9 +++++++++ harbour/source/rtl/errorapi.c | 2 ++ harbour/source/rtl/errorsys.prg | 2 +- 3 files changed, 12 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5401e54a26..4487a3523c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,12 @@ +19990630-17:45 EDT David G. Holm + * source/rtl/errorapi.c + + Added a default severity value of ES_ERROR in hb_errNew() + as a temporary workaround to the error severity problem. + * source/rtl/errorsys.prg + - Removed CHR(13)+CHR(10) from QOUT() of error message, + because Clipper doesn't have a blank line between the + error message and the error trace. + 19990630-02:10 EDT David G. Holm * harbour.b31 - Removed -DHARBOUR_STRICT_ANSI_C diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c index 0947ebb1df..7ba85999e9 100644 --- a/harbour/source/rtl/errorapi.c +++ b/harbour/source/rtl/errorapi.c @@ -21,6 +21,8 @@ PHB_ITEM hb_errNew( void ) ItemCopy( pReturn, &stack.Return ); + hb_errPutSeverity( pReturn, ES_ERROR ); + return pReturn; } diff --git a/harbour/source/rtl/errorsys.prg b/harbour/source/rtl/errorsys.prg index d451eb0eb3..dc0dbd9902 100644 --- a/harbour/source/rtl/errorsys.prg +++ b/harbour/source/rtl/errorsys.prg @@ -32,7 +32,7 @@ static function DefError( oError ) cMessage += " (DOS Error " + LTrim(Str(oError:osCode)) + ")" ENDIF - QOut( cMessage + Chr( 13 ) + Chr( 10 )) + QOut( cMessage) do while ! Empty( ProcName( n ) ) QOut("Called from " + ProcName( n ) + ;