From 998ef2d1aea9d8dec6ace659cbf54a29e4bc325c Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Thu, 14 Jun 2001 17:21:20 +0000 Subject: [PATCH] See ChangeLog entry 2001-06-14 13:15 UTC-0400 David G. Holm --- harbour/ChangeLog | 10 ++++++++++ harbour/include/hbapierr.h | 2 +- harbour/source/rtl/math.c | 10 ++++++++++ 3 files changed, 21 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 813118cdd4..2913ec5900 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,13 @@ +2001-06-14 13:15 UTC-0400 David G. Holm + + * include/hbapierr.h + ! Corrected reference to extend.ch for oError:Severity codes to refer + to the file that the severity codes are actually in: error.ch. + + * source/rtl/math.c + * Added hb_getMathError() and hb_resetMathError() functions submitted + by Alejandro de Garate . + 2001-06-14 12:39 UTC-0800 Brian Hays * source/rtl/philes.c * changed comment re HB_FEOF TO HB_F_EOF diff --git a/harbour/include/hbapierr.h b/harbour/include/hbapierr.h index 1ec4d08c7a..94aa9cb42e 100644 --- a/harbour/include/hbapierr.h +++ b/harbour/include/hbapierr.h @@ -75,7 +75,7 @@ extern "C" { /* oError:Severity */ -/* ... defined in extend.ch */ +/* ... defined in error.ch */ /* oError:SubSystem (commonly used) */ diff --git a/harbour/source/rtl/math.c b/harbour/source/rtl/math.c index 4669a75fa4..2cc4af62d0 100644 --- a/harbour/source/rtl/math.c +++ b/harbour/source/rtl/math.c @@ -82,6 +82,16 @@ static int s_internal_math_error = 0; /* TOFIX: This is not thread safe. */ +int hb_getMathError( void ) +{ + return( s_internal_math_error ); +} + +void hb_resetMathError( void ) +{ + s_internal_math_error = 0; +} + /* define harbour specific error handler for math errors */ int matherr( struct exception * err )