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

19991123-01:09 GMT+1 Victor Szel <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
1999-11-23 00:21:45 +00:00
parent 8ad9ec071c
commit e9981120ac
2 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19991123-01:09 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/math.c
+ math error handler added for __BORLANDC__ and __MINGW32__
I could not find a way to test these error though.
19991123-00:29 GMT+1 Victor Szel <info@szelvesz.hu>
* tests/regress/*
+ Split rt_str into rt_str + rt_trans.

19
harbour/source/rtl/math.c
View File

@@ -49,7 +49,18 @@
#include "itemapi.h"
#include "errorapi.h"
#if defined( __WATCOMC__ )
#if defined(__WATCOMC__)
#define HB_MATH_HANDLER
#elif defined(__BORLANDC__)
#define HB_MATH_HANDLER
#define matherr _matherr
#elif defined(__MINGW32__)
#define HB_MATH_HANDLER
#define matherr _matherr
#define exception _exception
#endif
#if defined(HB_MATH_HANDLER)
static int s_internal_math_error = 0;
@@ -148,7 +159,7 @@ HARBOUR HB_EXP( void )
{
if( ISNUM( 1 ) )
{
#if defined( __WATCOMC__ )
#if defined(HB_MATH_HANDLER)
double dResult = exp( hb_parnd( 1 ) );
if( s_internal_math_error )
@@ -210,7 +221,7 @@ HARBOUR HB_LOG( void )
{
if( ISNUM( 1 ) )
{
#if defined( __WATCOMC__ )
#if defined(HB_MATH_HANDLER)
double dResult = log( hb_parnd( 1 ) );
if( s_internal_math_error )
@@ -478,7 +489,7 @@ HARBOUR HB_SQRT( void )
{
if( ISNUM( 1 ) )
{
#if defined( __WATCOMC__ )
#if defined(HB_MATH_HANDLER)
double dResult = sqrt( hb_parnd( 1 ) );
if( s_internal_math_error )