2009-12-09 17:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* contrib/hbnf/dispc.c
  * contrib/hbfimage/fi_winfu.c
  * contrib/hbfimage/fi_wrp.c
  * contrib/hbgd/gdwrp.c
    * Changed to use HB_IS*() macros to check parameter types instead
      of using hb_parinfo() & HB_IT_*.
    * Formatting. (deleted unnecessary blocks, returns, spaces)

harbour/ChangeLog

@@ -17,6 +17,15 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-12-09 17:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/hbnf/dispc.c
+  * contrib/hbfimage/fi_winfu.c
+  * contrib/hbfimage/fi_wrp.c
+  * contrib/hbgd/gdwrp.c
+    * Changed to use HB_IS*() macros to check parameter types instead
+      of using hb_parinfo() & HB_IT_*.
+    * Formatting. (deleted unnecessary blocks, returns, spaces)
+
 2009-12-09 08:07 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * contrib/hbide/hbide.prg
   * contrib/hbxbp/xbpdataref.prg

harbour/contrib/hbfimage/fi_winfu.c

@@ -75,7 +75,7 @@
 HB_FUNC( FI_FITOBITMAP )
 {
    if( hb_pcount() == 1 &&
-       hb_parinfo( 1 ) & HB_IT_POINTER
+       HB_ISPOINTER( 1 )
      )
    {
       FIBITMAP *dib;
@@ -98,7 +98,6 @@ HB_FUNC( FI_FITOBITMAP )
    }
    else
    {
-      /* Parameter error */
       hb_errRT_BASE_SubstR( EG_ARG, 0, NULL,
          HB_ERR_FUNCNAME, 1,
          hb_paramError( 1 ) );
@@ -115,7 +114,7 @@ HB_FUNC( FI_FITOBITMAP )
 HB_FUNC( FI_BITMAPTOFI )
 {
    if( hb_pcount() == 1 &&
-       hb_parinfo( 1 ) & HB_IT_POINTER
+       HB_ISPOINTER( 1 )
      )
    {
       FIBITMAP * dib;
@@ -146,7 +145,6 @@ HB_FUNC( FI_BITMAPTOFI )
    }
    else
    {
-      /* Parameter error */
       hb_errRT_BASE_SubstR( EG_ARG, 0, NULL,
          HB_ERR_FUNCNAME, 1,
          hb_paramError( 1 ) );
@@ -163,12 +161,12 @@ HB_FUNC( FI_BITMAPTOFI )
 HB_FUNC( FI_WINDRAW )
 {
    if( hb_pcount() == 6 &&
-       hb_parinfo( 1 ) & HB_IT_POINTER &&
-       hb_parinfo( 2 ) & HB_IT_NUMERIC &&
-       hb_parinfo( 3 ) & HB_IT_NUMERIC &&
-       hb_parinfo( 4 ) & HB_IT_NUMERIC &&
-       hb_parinfo( 5 ) & HB_IT_NUMERIC &&
-       hb_parinfo( 6 ) & HB_IT_NUMERIC
+       HB_ISPOINTER( 1 ) &&
+       HB_ISNUM( 2 ) &&
+       HB_ISNUM( 3 ) &&
+       HB_ISNUM( 4 ) &&
+       HB_ISNUM( 5 ) &&
+       HB_ISNUM( 6 )
      )
    {
       FIBITMAP * dib;
@@ -200,7 +198,6 @@ HB_FUNC( FI_WINDRAW )
    }
    else
    {
-      /* Parameter error */
       hb_errRT_BASE_SubstR( EG_ARG, 0, NULL,
          HB_ERR_FUNCNAME, 6,
          hb_paramError( 1 ), hb_paramError( 2 ), hb_paramError( 3 ),

harbour/contrib/hbnf/dispc.c

@@ -582,7 +582,7 @@ HB_FUNC( _FT_DFINIT )
         norm   = hb_parni(7);                 /* normal color attribute    */
         hlight = hb_parni(8);                 /* highlight color attribute */
 
-        if (hb_parinfo(9) & HB_IT_ARRAY)       /* if array */
+        if( HB_ISARRAY( 9 ) )
         {
            keytype = K_LIST;
            kcount  = hb_parinfa( 9, 0 );