diff --git a/harbour/ChangeLog b/harbour/ChangeLog index af38c31934..b0fed013c7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,10 @@ For example: 2002-12-01 23:12 UTC+0100 Foo Bar */ + This allows that the string-number conversions are same for program + and for compilation. + ? ( val("1191.63") == 1191.63 ) -> TRUE + 2002-02-17 20:20 UTC+0100 Tomaz Zupan *include/hbpcode.h *Added newline at the end to clear gcc warning diff --git a/harbour/source/vm/arrayshb.c b/harbour/source/vm/arrayshb.c index e8a7d6ecc1..126fda91a6 100644 --- a/harbour/source/vm/arrayshb.c +++ b/harbour/source/vm/arrayshb.c @@ -187,9 +187,12 @@ HB_FUNC( ADEL ) if( pArray ) { - if( ISNUM( 2 ) ) - hb_arrayDel( pArray, hb_parnl( 2 ) ); + long int ulPos = 1; + if( ISNUM( 2 ) ) + ulPos = hb_parnl( 2 ); + + hb_arrayDel( pArray, ulPos ); hb_itemReturn( pArray ); /* ADel() returns the array itself */ } }