From 3b262ebaaa2d2def593d1c3d663b813a2d65a4c1 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sun, 14 Sep 2008 18:19:09 +0000
Subject: [PATCH] 2008-09-14 20:18 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)   * include/common.ch     % IS*() macros now using hb_Is*() functions
 instead of       ValType() calls.

---
 harbour/ChangeLog         |  5 +++++
 harbour/include/common.ch | 16 ++++++++--------
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3ede281dac..49397c944f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-09-14 20:18 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+  * include/common.ch
+    % IS*() macros now using hb_Is*() functions instead of 
+      ValType() calls.
+
 2008-09-14 19:59 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * make_b32.mak
     + Now setting 'HB_BUILD_ST = no' will generate an MT build.
diff --git a/harbour/include/common.ch b/harbour/include/common.ch
index fa64464004..ea799e4fa0 100644
--- a/harbour/include/common.ch
+++ b/harbour/include/common.ch
@@ -61,14 +61,14 @@
 
 /* Type checking macros */
 #translate ISNIL( <xValue> )       => ( <xValue> == NIL )
-#translate ISARRAY( <xValue> )     => ( ValType( <xValue> ) == "A" )
-#translate ISBLOCK( <xValue> )     => ( ValType( <xValue> ) == "B" )
-#translate ISCHARACTER( <xValue> ) => ( ValType( <xValue> ) == "C" )
-#translate ISDATE( <xValue> )      => ( ValType( <xValue> ) == "D" )
-#translate ISLOGICAL( <xValue> )   => ( ValType( <xValue> ) == "L" )
-#translate ISMEMO( <xValue> )      => ( ValType( <xValue> ) == "M" )
-#translate ISNUMBER( <xValue> )    => ( ValType( <xValue> ) == "N" )
-#translate ISOBJECT( <xValue> )    => ( ValType( <xValue> ) == "O" ) 
+#translate ISARRAY( <xValue> )     => hb_IsArray( <xValue> )
+#translate ISBLOCK( <xValue> )     => hb_IsBlock( <xValue> )
+#translate ISCHARACTER( <xValue> ) => hb_IsString( <xValue> )
+#translate ISDATE( <xValue> )      => hb_IsDate( <xValue> )
+#translate ISLOGICAL( <xValue> )   => hb_IsLogical( <xValue> )
+#translate ISMEMO( <xValue> )      => hb_IsMemo( <xValue> )
+#translate ISNUMBER( <xValue> )    => hb_IsNumeric( <xValue> )
+#translate ISOBJECT( <xValue> )    => hb_IsObject( <xValue> )
 
 /* DEFAULT and UPDATE commands */
 #xcommand DEFAULT <v1> TO <x1> [, <vn> TO <xn> ] => ;