fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-07-09 15:08 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* 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.
This commit is contained in:
Viktor Szakats
2010-07-09 13:09:09 +00:00
parent a02bdc5f51
commit 7e07cde56c
4 changed files with 56 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -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

38
harbour/src/compiler/genc.c
View File

@@ -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" );
}

50
harbour/src/compiler/gencc.c
View File

@@ -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 )

1
harbour/src/rdd/dbffpt/dbffpt1.c
View File

@@ -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;
}
}