From 86f3384935f32fa0448cb1bb2a687e48412ec0fe Mon Sep 17 00:00:00 2001
From: "Alexander S.Kresin" <alex@belacy.belgorod.su>
Date: Thu, 14 Feb 2002 18:02:40 +0000
Subject: [PATCH] 2002-02-14 20:50 UTC+0300 Alexander Kresin
 <alex@belacy.belgorod.su>

---
 harbour/ChangeLog            | 4 ++++
 harbour/source/vm/arrayshb.c | 7 +++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

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 <foo.bar@foobar.org>
 */
+       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 <tomaz.zupan@orpo.si>
    *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 */
    }
 }