diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e1324a065e..f7539d45bf 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,18 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-07-09 15:08 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * src/compiler/genc.c
+  * src/compiler/gencc.c
+    ! Fixed format strings to be win64 compatible. Also fixing
+      mingw64 (4.6.0) reported warnings.
+    ; I'd appreciate a review here. There are explicit lengths
+      used in some of these format strings, which may need to
+      be extended.
+
+  * src/rdd/dbffpt/dbffpt1.c
+    ! Silenced bcc warning.
+
 2010-07-09 14:51 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbide/idehbprotos.prg
     - Deleted references to contribs (and some local projects not
diff --git a/harbour/src/compiler/genc.c b/harbour/src/compiler/genc.c
index 05dcf4404a..61c972f73b 100644
--- a/harbour/src/compiler/genc.c
+++ b/harbour/src/compiler/genc.c
@@ -800,7 +800,7 @@ static HB_GENC_FUNC( hb_p_jumpnear )
    {
       HB_ISIZ nOffset = ( signed char ) ( pFunc->pCode[ nPCodePos + 1 ] );
 
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 2;
@@ -815,7 +815,7 @@ static HB_GENC_FUNC( hb_p_jump )
    {
       HB_ISIZ nOffset = HB_PCODE_MKSHORT( &pFunc->pCode[ nPCodePos + 1 ] );
 
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 3;
@@ -830,7 +830,7 @@ static HB_GENC_FUNC( hb_p_jumpfar )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -843,7 +843,7 @@ static HB_GENC_FUNC( hb_p_jumpfalsenear )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = ( signed char ) ( pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 2;
@@ -857,7 +857,7 @@ static HB_GENC_FUNC( hb_p_jumpfalse )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKSHORT( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 3;
@@ -872,7 +872,7 @@ static HB_GENC_FUNC( hb_p_jumpfalsefar )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -885,7 +885,7 @@ static HB_GENC_FUNC( hb_p_jumptruenear )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = ( signed char ) ( pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 2;
@@ -899,7 +899,7 @@ static HB_GENC_FUNC( hb_p_jumptrue )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKSHORT( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %05li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %05" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 3;
@@ -914,7 +914,7 @@ static HB_GENC_FUNC( hb_p_jumptruefar )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, ( HB_ISIZ ) ( nPCodePos + nOffset ) );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -941,7 +941,7 @@ static HB_GENC_FUNC( hb_p_lessequal )
 static HB_GENC_FUNC( hb_p_line )
 {
    if( cargo->bVerbose )
-      fprintf( cargo->yyc, "/* %05li */ ", nPCodePos );
+      fprintf( cargo->yyc, "/* %05" HB_PFS "i */ ", nPCodePos );
    else
       fprintf( cargo->yyc, "\t" );
    fprintf( cargo->yyc, "HB_P_LINE, %i, %i,",
@@ -1870,7 +1870,7 @@ static HB_GENC_FUNC( hb_p_seqbegin )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, nPCodePos + nOffset );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, nPCodePos + nOffset );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -1878,7 +1878,7 @@ static HB_GENC_FUNC( hb_p_seqbegin )
 
 static HB_GENC_FUNC( hb_p_seqend )
 {
-   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05li */ ", nPCodePos );
+   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05" HB_PFS "i */ ", nPCodePos );
    else fprintf( cargo->yyc, "\t" );
    fprintf( cargo->yyc, "HB_P_SEQEND, %i, %i, %i,",
             pFunc->pCode[ nPCodePos + 1 ],
@@ -1887,7 +1887,7 @@ static HB_GENC_FUNC( hb_p_seqend )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, nPCodePos + nOffset );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, nPCodePos + nOffset );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -1911,7 +1911,7 @@ static HB_GENC_FUNC( hb_p_seqalways )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, nPCodePos + nOffset );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, nPCodePos + nOffset );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -1921,7 +1921,7 @@ static HB_GENC_FUNC( hb_p_alwaysbegin )
 {
    HB_SYMBOL_UNUSED( pFunc );
 
-   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05li */ ", nPCodePos );
+   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05" HB_PFS "i */ ", nPCodePos );
    else fprintf( cargo->yyc, "\t" );
 
    fprintf( cargo->yyc, "HB_P_ALWAYSBEGIN, %i, %i, %i,",
@@ -1931,7 +1931,7 @@ static HB_GENC_FUNC( hb_p_alwaysbegin )
    if( cargo->bVerbose )
    {
       HB_ISIZ nOffset = HB_PCODE_MKINT24( &pFunc->pCode[ nPCodePos + 1 ] );
-      fprintf( cargo->yyc, "\t/* %li (abs: %08li) */", nOffset, nPCodePos + nOffset );
+      fprintf( cargo->yyc, "\t/* %" HB_PFS "i (abs: %08" HB_PFS "i) */", nOffset, nPCodePos + nOffset );
    }
    fprintf( cargo->yyc, "\n" );
    return 4;
@@ -1941,7 +1941,7 @@ static HB_GENC_FUNC( hb_p_alwaysend )
 {
    HB_SYMBOL_UNUSED( pFunc );
 
-   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05li */ ", nPCodePos );
+   if( cargo->bVerbose ) fprintf( cargo->yyc, "/* %05" HB_PFS "i */ ", nPCodePos );
    else fprintf( cargo->yyc, "\t" );
 
    fprintf( cargo->yyc, "HB_P_ALWAYSEND,\n" );
@@ -2110,7 +2110,7 @@ static HB_GENC_FUNC( hb_p_enumend )
 static HB_GENC_FUNC( hb_p_switch )
 {
    if( cargo->bVerbose )
-      fprintf( cargo->yyc, "/* %05li */ ", nPCodePos );
+      fprintf( cargo->yyc, "/* %05" HB_PFS "i */ ", nPCodePos );
    else
       fprintf( cargo->yyc, "\t" );
 
@@ -2683,7 +2683,7 @@ static void hb_compGenCReadable( HB_COMP_DECL, PFUNCTION pFunc, FILE * yyc )
    hb_compPCodeEval( pFunc, ( HB_PCODE_FUNC_PTR * ) pFuncTable, ( void * ) &genc_info );
 
    if( genc_info.bVerbose )
-      fprintf( yyc, "/* %05li */\n", pFunc->nPCodePos );
+      fprintf( yyc, "/* %05" HB_PFS "i */\n", pFunc->nPCodePos );
    fprintf( yyc, "   };\n\n" );
    fprintf( yyc, "   hb_vmExecute( pcode, symbols );\n}\n" );
 }
diff --git a/harbour/src/compiler/gencc.c b/harbour/src/compiler/gencc.c
index dd724d44f5..489601effa 100644
--- a/harbour/src/compiler/gencc.c
+++ b/harbour/src/compiler/gencc.c
@@ -63,7 +63,7 @@ typedef HB_GENC_FUNC_ * HB_GENC_FUNC_PTR;
 #define HB_GENC_LABEL()       do { \
                                  HB_SIZE nLab = HB_GENC_GETLABEL( nPCodePos ); \
                                  if( nLab != 0 ) \
-                                    fprintf( cargo->yyc, "lab%05ld: ;\n", nLab ); \
+                                    fprintf( cargo->yyc, "lab%05" HB_PFS "d: ;\n", nLab ); \
                               } while( 0 )
 
 #define HB_GENC_ERROR(s)       do { \
@@ -155,14 +155,14 @@ static int hb_gencc_checkJumpCondAhead( HB_ISIZ nValue, PFUNCTION pFunc, HB_SIZE
 
       if( iSize )
       {
-         fprintf( cargo->yyc, "\tif( hb_xvm%sIntIs( %ld, &fValue ) ) break;\n",
+         fprintf( cargo->yyc, "\tif( hb_xvm%sIntIs( %" HB_PFS "d, &fValue ) ) break;\n",
                   szFunc, nValue );
-         fprintf( cargo->yyc, "\tif( %sfValue )\n\t\tgoto lab%05ld;\n",
+         fprintf( cargo->yyc, "\tif( %sfValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
                   fNot ? "!" : "", HB_GENC_GETLABEL( nPCodePos + 1 + nOffset ) );
          return iSize;
       }
    }
-   fprintf( cargo->yyc, "\tif( hb_xvm%sInt( %ld ) ) break;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvm%sInt( %" HB_PFS "d ) ) break;\n",
             szFunc, nValue );
    return 1;
 }
@@ -174,13 +174,13 @@ static int hb_gencc_checkNumAhead( HB_ISIZ nValue, PFUNCTION pFunc, HB_SIZE nPCo
       switch( pFunc->pCode[ nPCodePos ] )
       {
          case HB_P_POPLOCAL:
-            fprintf( cargo->yyc, "\thb_xvmLocalSetInt( %d, %ld );\n",
+            fprintf( cargo->yyc, "\thb_xvmLocalSetInt( %d, %" HB_PFS "d );\n",
                      HB_PCODE_MKSHORT( &pFunc->pCode[ nPCodePos + 1 ] ),
                      nValue );
             return 3;
 
          case HB_P_POPLOCALNEAR:
-            fprintf( cargo->yyc, "\thb_xvmLocalSetInt( %d, %ld );\n",
+            fprintf( cargo->yyc, "\thb_xvmLocalSetInt( %d, %" HB_PFS "d );\n",
                      ( signed char ) pFunc->pCode[ nPCodePos + 1 ], nValue );
             return 2;
 
@@ -206,7 +206,7 @@ static int hb_gencc_checkNumAhead( HB_ISIZ nValue, PFUNCTION pFunc, HB_SIZE nPCo
          case HB_P_ARRAYPUSH:
             if( nValue > 0 )
             {
-               fprintf( cargo->yyc, "\tif( hb_xvmArrayItemPush( %ld ) ) break;\n", nValue );
+               fprintf( cargo->yyc, "\tif( hb_xvmArrayItemPush( %" HB_PFS "d ) ) break;\n", nValue );
                return 1;
             }
             break;
@@ -214,27 +214,27 @@ static int hb_gencc_checkNumAhead( HB_ISIZ nValue, PFUNCTION pFunc, HB_SIZE nPCo
          case HB_P_ARRAYPOP:
             if( nValue > 0 )
             {
-               fprintf( cargo->yyc, "\tif( hb_xvmArrayItemPop( %ld ) ) break;\n", nValue );
+               fprintf( cargo->yyc, "\tif( hb_xvmArrayItemPop( %" HB_PFS "d ) ) break;\n", nValue );
                return 1;
             }
             break;
 
          case HB_P_MULT:
-            fprintf( cargo->yyc, "\tif( hb_xvmMultByInt( %ld ) ) break;\n", nValue );
+            fprintf( cargo->yyc, "\tif( hb_xvmMultByInt( %" HB_PFS "d ) ) break;\n", nValue );
             return 1;
 
          case HB_P_DIVIDE:
-            fprintf( cargo->yyc, "\tif( hb_xvmDivideByInt( %ld ) ) break;\n", nValue );
+            fprintf( cargo->yyc, "\tif( hb_xvmDivideByInt( %" HB_PFS "d ) ) break;\n", nValue );
             return 1;
 
          case HB_P_MODULUS:
-            fprintf( cargo->yyc, "\tif( hb_xvmModulusByInt( %ld ) ) break;\n", nValue );
+            fprintf( cargo->yyc, "\tif( hb_xvmModulusByInt( %" HB_PFS "d ) ) break;\n", nValue );
             return 1;
 
          case HB_P_MINUS:
             if( nValue > 0 )
             {
-               fprintf( cargo->yyc, "\tif( hb_xvmAddInt( -%ld ) ) break;\n", nValue );
+               fprintf( cargo->yyc, "\tif( hb_xvmAddInt( -%" HB_PFS "d ) ) break;\n", nValue );
                return 1;
             }
 #if -LONG_MAX > LONG_MIN
@@ -245,11 +245,11 @@ static int hb_gencc_checkNumAhead( HB_ISIZ nValue, PFUNCTION pFunc, HB_SIZE nPCo
             /* no break */
 
          case HB_P_PLUS:
-            fprintf( cargo->yyc, "\tif( hb_xvmAddInt( %ld ) ) break;\n", nValue );
+            fprintf( cargo->yyc, "\tif( hb_xvmAddInt( %" HB_PFS "d ) ) break;\n", nValue );
             return 1;
 
          case HB_P_RETVALUE:
-            fprintf( cargo->yyc, "\thb_xvmRetInt( %ld );\n", nValue );
+            fprintf( cargo->yyc, "\thb_xvmRetInt( %" HB_PFS "d );\n", nValue );
             return 1;
       }
    }
@@ -541,7 +541,7 @@ static HB_GENC_FUNC( hb_p_jumpnear )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 2;
 }
@@ -552,7 +552,7 @@ static HB_GENC_FUNC( hb_p_jump )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 3;
 }
@@ -563,7 +563,7 @@ static HB_GENC_FUNC( hb_p_jumpfar )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 4;
 }
@@ -574,7 +574,7 @@ static HB_GENC_FUNC( hb_p_jumpfalsenear )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 2;
 }
@@ -585,7 +585,7 @@ static HB_GENC_FUNC( hb_p_jumpfalse )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 3;
 }
@@ -596,7 +596,7 @@ static HB_GENC_FUNC( hb_p_jumpfalsefar )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( !fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 4;
 }
@@ -607,7 +607,7 @@ static HB_GENC_FUNC( hb_p_jumptruenear )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 2;
 }
@@ -618,7 +618,7 @@ static HB_GENC_FUNC( hb_p_jumptrue )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 3;
 }
@@ -629,7 +629,7 @@ static HB_GENC_FUNC( hb_p_jumptruefar )
 
    HB_GENC_LABEL();
 
-   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05ld;\n",
+   fprintf( cargo->yyc, "\tif( hb_xvmPopLogical( &fValue ) ) break;\n\tif( fValue )\n\t\tgoto lab%05" HB_PFS "d;\n",
             HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    return 4;
 }
@@ -1589,7 +1589,7 @@ static HB_GENC_FUNC( hb_p_seqend )
    if( nOffset == 4 ) /* no RECOVER clasue */
       fprintf( cargo->yyc, "\t} while( 0 );\n\tif( hb_xvmSeqEnd() ) break;\n" );
    else /* RECOVER exists */
-      fprintf( cargo->yyc, "\tif( hb_xvmSeqEndTest() ) break;\n\tgoto lab%05ld;\n\t} while( 0 );\n",
+      fprintf( cargo->yyc, "\tif( hb_xvmSeqEndTest() ) break;\n\tgoto lab%05" HB_PFS "d;\n\t} while( 0 );\n",
                HB_GENC_GETLABEL( nPCodePos + nOffset ) );
    cargo->iNestedBlock--;
    return 4;
@@ -1853,7 +1853,7 @@ static HB_GENC_FUNC( hb_p_switch )
             nPCodePos += 4;
             break;
       }
-      fprintf( cargo->yyc, "\t\t{\n\t\t\thb_stackPop();\n\t\t\tgoto lab%05ld;\n\t\t}\n",
+      fprintf( cargo->yyc, "\t\t{\n\t\t\thb_stackPop();\n\t\t\tgoto lab%05" HB_PFS "d;\n\t\t}\n",
                HB_GENC_GETLABEL( nNewPos ) );
    }
    if( !fDefault )
diff --git a/harbour/src/rdd/dbffpt/dbffpt1.c b/harbour/src/rdd/dbffpt/dbffpt1.c
index 5ada69ba48..fc81af50dc 100644
--- a/harbour/src/rdd/dbffpt/dbffpt1.c
+++ b/harbour/src/rdd/dbffpt/dbffpt1.c
@@ -3308,7 +3308,6 @@ static HB_ERRCODE hb_fptGetVarField( FPTAREAP pArea, HB_USHORT uiIndex, PHB_ITEM
                   pString = hb_cdpnDup3( pString, ulLen, pAlloc, &nLen,
                                          &pAlloc, &nSize, pArea->area.cdPage, hb_vmCDP() );
                   ulLen = ( HB_ULONG ) nLen;
-                  ulSize = ( HB_ULONG ) nSize;
                }
             }