From 28a6c54b541f704d318f7c06786da73dd3ee349a Mon Sep 17 00:00:00 2001 From: "David G. Holm" Date: Wed, 4 Aug 1999 04:56:55 +0000 Subject: [PATCH] See ChangeLog 19990804-00:35 EDT David G. Holm --- harbour/ChangeLog | 7 +++++++ harbour/source/vm/hvm.c | 4 +++- harbour/tests/working/build.bat | 10 ++++++++++ 3 files changed, 20 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index def4d675ef..16c464fa12 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,10 @@ +19990804-00:35 EDT David G. Holm + * source/vm/hvm.c + ! Corrected Power() to set the correct number of decimal points. + * tests/working/build.bat + + Added checks for HB_ARCHITECTURE and HB_COMPILER. + + Modified to always build the target. + 19990804-00:40 EDT Paul Tucker * source/rtl/gt/gtwin.c * corrected screen buffer size for dispbegin diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 1ddf045d77..702240c062 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -1603,7 +1603,9 @@ void Power( void ) double d2 = PopDouble( &wDec2 ); double d1 = PopDouble( &wDec1 ); - PushNumber( pow( d1, d2 ), (wDec1>wDec2) ? wDec1 : wDec2 ); + /* NOTE: Clipper always returns the result of power + with the SET number of decimal places. */ + PushNumber( pow( d1, d2 ), hb_set.HB_SET_DECIMALS ); } void PushLogical( int iTrueFalse ) diff --git a/harbour/tests/working/build.bat b/harbour/tests/working/build.bat index 37c8c82b7d..25fd35fc76 100644 --- a/harbour/tests/working/build.bat +++ b/harbour/tests/working/build.bat @@ -1,3 +1,13 @@ @echo off +if %hb_architecture%.==. goto bad_arch +if %hb_compiler%.==. goto bad_comp +if exist %hb_architecture\%hb_compiler\%1.* del %hb_architecture\%hb_compiler\%1.* make -r "PRG_SOURCES=%1.prg" if not errorlevel 1 %hb_architecture\%hb_compiler\%1 %2 %3 %4 %5 %6 %7 %8 %9 +goto exit +:bad_arch +Echo HB_ARCHITECTURE is not set. +goto exit +:bad_comp +Echo HB_COMPILER is not set. +:exit