From 25a8855970e2086f9f0bb61ac39ecd448af2b288 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Mon, 2 Apr 2007 14:40:49 +0000 Subject: [PATCH] 2007-04-02 16:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/htmllib/counter.prg * harbour/contrib/htmllib/htmbrows.prg * harbour/contrib/htmllib/jwindow.prg * harbour/contrib/htmllib/ocgi.prg * harbour/contrib/htmllib/oedit.prg * harbour/contrib/htmllib/ofile.prg * harbour/contrib/htmllib/ohtm.prg * harbour/contrib/htmllib/oini.prg * harbour/contrib/libnf/aading.prg * harbour/contrib/libnf/aredit.prg * harbour/contrib/libnf/clrsel.prg * harbour/contrib/libnf/dispmsg.prg * harbour/contrib/libnf/eltime.prg * harbour/contrib/libnf/floptst.prg * harbour/contrib/libnf/menu1.prg * harbour/contrib/libnf/pegs.prg * harbour/contrib/libnf/popadder.prg * harbour/contrib/libnf/savesets.prg * harbour/contrib/libnf/tbwhile.prg * harbour/contrib/libnf/xbox.prg * harbour/contrib/odbc/todbc.prg * cleaned unused variable warnings --- harbour/ChangeLog | 24 ++++++++++++++++++++++++ harbour/contrib/htmllib/counter.prg | 2 +- harbour/contrib/htmllib/htmbrows.prg | 3 +++ harbour/contrib/htmllib/jwindow.prg | 4 ++-- harbour/contrib/htmllib/ocgi.prg | 8 +++----- harbour/contrib/htmllib/oedit.prg | 4 ++++ harbour/contrib/htmllib/ofile.prg | 9 ++++----- harbour/contrib/htmllib/ohtm.prg | 8 ++++++-- harbour/contrib/htmllib/oini.prg | 4 ++-- harbour/contrib/libnf/aading.prg | 2 +- harbour/contrib/libnf/aredit.prg | 2 +- harbour/contrib/libnf/clrsel.prg | 4 ++-- harbour/contrib/libnf/dispmsg.prg | 4 +--- harbour/contrib/libnf/eltime.prg | 2 +- harbour/contrib/libnf/floptst.prg | 1 - harbour/contrib/libnf/menu1.prg | 18 +++++++++--------- harbour/contrib/libnf/pegs.prg | 2 +- harbour/contrib/libnf/popadder.prg | 4 ++++ harbour/contrib/libnf/savesets.prg | 2 +- harbour/contrib/libnf/tbwhile.prg | 2 +- harbour/contrib/libnf/xbox.prg | 1 - harbour/contrib/odbc/todbc.prg | 2 -- 22 files changed, 71 insertions(+), 41 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 6394af8097..82048a8336 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,30 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-04-02 16:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/htmllib/counter.prg + * harbour/contrib/htmllib/htmbrows.prg + * harbour/contrib/htmllib/jwindow.prg + * harbour/contrib/htmllib/ocgi.prg + * harbour/contrib/htmllib/oedit.prg + * harbour/contrib/htmllib/ofile.prg + * harbour/contrib/htmllib/ohtm.prg + * harbour/contrib/htmllib/oini.prg + * harbour/contrib/libnf/aading.prg + * harbour/contrib/libnf/aredit.prg + * harbour/contrib/libnf/clrsel.prg + * harbour/contrib/libnf/dispmsg.prg + * harbour/contrib/libnf/eltime.prg + * harbour/contrib/libnf/floptst.prg + * harbour/contrib/libnf/menu1.prg + * harbour/contrib/libnf/pegs.prg + * harbour/contrib/libnf/popadder.prg + * harbour/contrib/libnf/savesets.prg + * harbour/contrib/libnf/tbwhile.prg + * harbour/contrib/libnf/xbox.prg + * harbour/contrib/odbc/todbc.prg + * cleaned unused variable warnings + 2007-04-01 16:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * harbour/source/rtl/tgetlist.prg ! Fixed bug #1692268. The fix simply removes two strange lines diff --git a/harbour/contrib/htmllib/counter.prg b/harbour/contrib/htmllib/counter.prg index cd7a7888b3..86a963256a 100644 --- a/harbour/contrib/htmllib/counter.prg +++ b/harbour/contrib/htmllib/counter.prg @@ -7,7 +7,7 @@ PROC CounterCGI() LOCAL lIsPost := .F. LOCAL cCounterDat := "counter.dat" -LOCAL oFrm, oEd, oSub +LOCAL oFrm LOCAL oHtm, oCgi diff --git a/harbour/contrib/htmllib/htmbrows.prg b/harbour/contrib/htmllib/htmbrows.prg index c7ff4b883b..b76f8bb2bd 100644 --- a/harbour/contrib/htmllib/htmbrows.prg +++ b/harbour/contrib/htmllib/htmbrows.prg @@ -74,6 +74,9 @@ LOCAL i, n := 0 LOCAL aFlds := dbStruct() LOCAL cAlign +HB_SYMBOL_UNUSED( cTarget ) +HB_SYMBOL_UNUSED( cAlias ) + DEFAULT cAction := "confirm('RECORD: '+this.name+'\nPlace your action here !!!')" DEFAULT lUseLinks := .F. diff --git a/harbour/contrib/htmllib/jwindow.prg b/harbour/contrib/htmllib/jwindow.prg index c2130a4219..50038bc9db 100644 --- a/harbour/contrib/htmllib/jwindow.prg +++ b/harbour/contrib/htmllib/jwindow.prg @@ -83,8 +83,8 @@ METHOD setOnLoad( c ) INLINE ::onLoad := c METHOD setOnUnLoad( c ) INLINE ::onUnLoad := c -METHOD Alert( c ) INLINE ::QOut( "alert('c')" ) -METHOD confirm(c) INLINE ::QOut( "confirm('c')" ) +METHOD Alert( c ) INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "alert('c')" ) +METHOD confirm( c ) INLINE HB_SYMBOL_UNUSED( c ), ::QOut( "confirm('c')" ) METHOD SetSize(x,y,h,w) METHOD Write( c ) METHOD lineBreak() INLINE ::QOut( "
" ) diff --git a/harbour/contrib/htmllib/ocgi.prg b/harbour/contrib/htmllib/ocgi.prg index 4b8add7536..507a67079c 100644 --- a/harbour/contrib/htmllib/ocgi.prg +++ b/harbour/contrib/htmllib/ocgi.prg @@ -99,7 +99,7 @@ ENDCLASS */ METHOD New( cInBuffer ) Class oCgi -LOCAL cBuff, i, nBuff +LOCAL i LOCAL aTemp := {} LOCAL aVar := {} @@ -176,11 +176,9 @@ RETURN ::ToObject() //Self */ METHOD ToObject() CLAss ocgi -local i, bBlock -local cFldName +local i LOCAL nScope:=1 -LOCAL aDb, oDb, hNewClass, oNew, n -LOCAL hNew +LOCAL aDb, oNew STATIC sn := 0 // --> create new oObject class from this one... diff --git a/harbour/contrib/htmllib/oedit.prg b/harbour/contrib/htmllib/oedit.prg index 661e460cbd..f3c2736500 100644 --- a/harbour/contrib/htmllib/oedit.prg +++ b/harbour/contrib/htmllib/oedit.prg @@ -172,6 +172,8 @@ ENDCLASS method Put(lPut) CLASS HControl LOCAL i, cStr := "" +HB_SYMBOL_UNUSED( lPut ) + ::nH := pageHandle() ::form := currentForm() @@ -468,6 +470,8 @@ ENDCLASS method New( cName, cAction, cMethod, lFrame, cCaption, nWidth ) CLASS Form +HB_SYMBOL_UNUSED( cAction ) + DEFAULT cName := "Form1" DEFAULT cMethod := "POST" DEFAULT lFrame := .F. diff --git a/harbour/contrib/htmllib/ofile.prg b/harbour/contrib/htmllib/ofile.prg index a6b86d9fb7..d11edc5c8d 100644 --- a/harbour/contrib/htmllib/ofile.prg +++ b/harbour/contrib/htmllib/ofile.prg @@ -198,7 +198,6 @@ RETURN( nLength ) //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 METHOD _Read( nSize, cBuff ) CLASS FileBase //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -LOCAL nBytesRead DEFAULT nSize := 1024 DEFAULT cBuff := SPACE(nSize) @@ -219,7 +218,7 @@ RETURN( cBuff ) //nBytesRead ) //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 METHOD ReadAhead( nSize, cBuff ) CLASS FileBase //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -LOCAL nBytesRead, nCurrent +LOCAL nCurrent DEFAULT nSize := 1024 DEFAULT cBuff := SPACE(nSize) @@ -273,7 +272,7 @@ RETURN ::Buffer //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 METHOD ReadByte() CLASS FileBase //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -LOCAL nRet, nBytes +LOCAL nBytes LOCAL cBuff := SPACE( 1 ) nBytes := FRead( ::Handle, @cBuff, 1 ) @@ -289,7 +288,7 @@ RETURN( IF( nBytes > 0, ASC(cBuff), -1 ) ) //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 METHOD ReadInt() CLASS FileBase //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -LOCAL nRet, nBytes +LOCAL nBytes LOCAL cBuff := SPACE( 2 ) nBytes := FRead( ::Handle, @cBuff, 2 ) @@ -305,7 +304,7 @@ RETURN( IF( nBytes > 0, BIN2I(cBuff), -1 ) ) //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 METHOD ReadLong() CLASS FileBase //컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴 -LOCAL nRet, nBytes +LOCAL nBytes LOCAL cBuff := SPACE( 4 ) nBytes := FRead( ::Handle, @cBuff, 4 ) diff --git a/harbour/contrib/htmllib/ohtm.prg b/harbour/contrib/htmllib/ohtm.prg index 31c8f789c5..6f396fe07e 100644 --- a/harbour/contrib/htmllib/ohtm.prg +++ b/harbour/contrib/htmllib/ohtm.prg @@ -301,6 +301,10 @@ METHOD New( cFile, cTitle, cLinkTitle, cCharSet, aScriptSRC,; LOCAL i +HB_SYMBOL_UNUSED( cLinkClr ) +HB_SYMBOL_UNUSED( cVLinkClr ) +HB_SYMBOL_UNUSED( cALinkClr ) + DEFAULT cFile := "file1.htm" DEFAULT cTitle := "test HTML page" DEFAULT cLinkTitle := cTitle @@ -447,11 +451,10 @@ METHOD CGINew( cTitle, cLinkTitle, cCharSet, aScriptSRC,; cLinkClr, cVLinkClr, cALinkClr, ; cStyle, aImages, aServerSrc, ; cBaseURL, cBaseTarget,; - nRefresh, cRefreshURL,cStyleScr ,lNocache) CLASS Html + nRefresh, cRefreshURL, cStyleScr ,lNocache) CLASS Html LOCAL i - //DEFAULT lAuthenticate := .F. DEFAULT cTitle := "CGI HTML page" DEFAULT cLinkTitle := cTitle @@ -1631,6 +1634,7 @@ RETURN Self */ METHOD FormImage( cText, name, File ) CLASS Html +HB_SYMBOL_UNUSED( cText ) FWrite( ::nH, ''+CRLF() ) RETURN Self diff --git a/harbour/contrib/htmllib/oini.prg b/harbour/contrib/htmllib/oini.prg index c4d01affa3..f96ba092ee 100644 --- a/harbour/contrib/htmllib/oini.prg +++ b/harbour/contrib/htmllib/oini.prg @@ -221,7 +221,7 @@ RETURN Self */ METHOD Get( cSection, cEntry, uDefault ) CLASS oIni -LOCAL cRet, nPos, nSection, nEntry +LOCAL cRet, nSection, nEntry DEFAULT uDefault := "" @@ -263,7 +263,7 @@ RETURN( cRet ) METHOD Put( cSection, cEntry, uValue ) CLASS oIni LOCAL cRet := "" -LOCAL cComment, nPos, nSection, nEntry +LOCAL cComment, nSection, nEntry DEFAULT uValue := "" diff --git a/harbour/contrib/libnf/aading.prg b/harbour/contrib/libnf/aading.prg index 2ad5b9d7c9..a7e8c64df2 100644 --- a/harbour/contrib/libnf/aading.prg +++ b/harbour/contrib/libnf/aading.prg @@ -128,7 +128,7 @@ FUNCTION FT_AADDITION( aList1, aList2, lTrimmer, lCaseSens ) ALLTRIM( x ) == ; ALLTRIM( aList2[ nElement ]) } ELSE - bScanCode := { |x| ( aList2[ nElement ]) } + bScanCode := { |x| x == ( aList2[ nElement ]) } ENDIF ELSE // Ignore case. diff --git a/harbour/contrib/libnf/aredit.prg b/harbour/contrib/libnf/aredit.prg index fea8fd9f53..a227741b62 100644 --- a/harbour/contrib/libnf/aredit.prg +++ b/harbour/contrib/libnf/aredit.prg @@ -194,7 +194,7 @@ FUNCTION FT_ArEdit( nTop, nLeft, nBot, nRight, ; LOCAL exit_requested := .F., nKey, meth_no, ; cSaveWin, i, b, column - LOCAL nDim, nWorkRow, cType, cVal + LOCAL nDim, cType, cVal LOCAL tb_methods := ; { ; {K_DOWN, {|b| b:down()}}, ; diff --git a/harbour/contrib/libnf/clrsel.prg b/harbour/contrib/libnf/clrsel.prg index a00cfacd77..eb929d1e78 100644 --- a/harbour/contrib/libnf/clrsel.prg +++ b/harbour/contrib/libnf/clrsel.prg @@ -254,7 +254,7 @@ FUNCTION FT_ClrSel( aClrs, lColour, cChr ) LOCAL aClrOld := aClone( aClrs ) LOCAL aOptions -LOCAL nF, nB, nT, nL, nR +LOCAL nB, nT, nL, nR LOCAL nChoice := 1 LOCAL nLen := 0 LOCAL aPrompt := {} @@ -343,7 +343,7 @@ STATIC FUNCTION _ftColours( aOpt, aClrPal, lColour ) // Colour selection for specific type of colour setting // Return -> aOpt with modified colour strings -LOCAL nF, nB, nT, nL, nR +LOCAL nB, nT, nL, nR LOCAL nX := 0 LOCAL aClrs := {} LOCAL cClr := "" diff --git a/harbour/contrib/libnf/dispmsg.prg b/harbour/contrib/libnf/dispmsg.prg index d2cd02c945..40c670cb76 100644 --- a/harbour/contrib/libnf/dispmsg.prg +++ b/harbour/contrib/libnf/dispmsg.prg @@ -205,9 +205,7 @@ FUNCTION FT_DispMsg( aInfo, cKey, nBoxTop, nBoxLeft, cnBoxString, lShadow ) aPos := {}, ; nLeft, ; nTop, ; - aLeft, ; - cLeftMarker, ; - cRightMarker + aLeft FOR i := 1 TO LEN( aInfo[1] ) AADD( aPos, {} ) diff --git a/harbour/contrib/libnf/eltime.prg b/harbour/contrib/libnf/eltime.prg index e370ec775b..d12a0575a4 100644 --- a/harbour/contrib/libnf/eltime.prg +++ b/harbour/contrib/libnf/eltime.prg @@ -48,7 +48,7 @@ */ function FT_ELTIME(cTIME1,cTIME2) - local nTIME1, nTIME2, nDELSECS, nHRS, nMINS, nSECS, nSECS1, nSECS2 + local nDELSECS, nHRS, nMINS, nSECS, nSECS1, nSECS2 nSECS1 := (val(substr(cTIME1,1,2)) * 3600) +; (val(substr(cTIME1,4,2)) * 60) + (val(substr(cTIME1,7))) diff --git a/harbour/contrib/libnf/floptst.prg b/harbour/contrib/libnf/floptst.prg index 239849995f..50b2ddc6c5 100644 --- a/harbour/contrib/libnf/floptst.prg +++ b/harbour/contrib/libnf/floptst.prg @@ -119,7 +119,6 @@ RETURN FUNCTION FT_FLOPTST( ; // error code defined by ERR_* nDriveNum_i ; // letter of floppy drive. ) - LOCAL cDrive LOCAL cBuffer LOCAL nErrorCode LOCAL nRetCode diff --git a/harbour/contrib/libnf/menu1.prg b/harbour/contrib/libnf/menu1.prg index e29bbfca20..3cf235078b 100644 --- a/harbour/contrib/libnf/menu1.prg +++ b/harbour/contrib/libnf/menu1.prg @@ -308,7 +308,7 @@ STATIC NHPOS, NVPOS, NMAXROW, NMAXCOL FUNCTION FT_MENU1( aBar, aOptions, aColors, nTopRow, lShadow ) - LOCAL nTtlWid, nTtlUsed, i, j, nPad + LOCAL nTtlWid, nTtlUsed LOCAL sMainScrn, lCancMode, lLooping := .t. // column position for each item on the menu bar @@ -353,30 +353,30 @@ FUNCTION FT_MENU1( aBar, aOptions, aColors, nTopRow, lShadow ) aBarCol[1] := 0 nTtlUsed := LEN( aBar[1] ) + 1 AEVAL( aBar, ; - {|x,i| aBarcol[i]:= nTtlUsed,nTtlUsed+= (LEN(aBar[i]) +1 )}, ; + {|x,i| HB_SYMBOL_UNUSED( x ), aBarcol[i]:= nTtlUsed,nTtlUsed+= (LEN(aBar[i]) +1 )}, ; 2, LEN(aBar) -1 ) // calculates widest element for each pulldown menu // see below for _ftWidest() AFILL(aBarWidth,1) - AEVAL( aChoices, { |x,i| _ftWidest( @i, aChoices, @aBarWidth ) } ) + AEVAL( aChoices, { |x,i| HB_SYMBOL_UNUSED( x ), _ftWidest( @i, aChoices, @aBarWidth ) } ) // box location for each pulldown menu // see below for _ftLocat() - AEVAL( aChoices, { |x,i| _ftLocat( i, aBarCol, aBarWidth, @aBoxLoc, nMaxCol ) } ) + AEVAL( aChoices, { |x,i| HB_SYMBOL_UNUSED( x ), _ftLocat( i, aBarCol, aBarWidth, @aBoxLoc, nMaxCol ) } ) // valid keys for each pulldown menu // see below for _ftValKeys() - AEVAL( aChoices,{|x,i| AADD( aValidkeys,"" ),; + AEVAL( aChoices,{|x,i| HB_SYMBOL_UNUSED( x ), AADD( aValidkeys,"" ),; _ftValKeys( i,aChoices,@aValidKeys ) } ) // display the menu bar SETCOLOR( cBar ) @ nTopRow, 0 - AEVAL( aBar, { |x,i| Devpos(nTopRow, aBarCol[i]), Devout(aBar[i]) }) + AEVAL( aBar, { |x,i| HB_SYMBOL_UNUSED( x ), Devpos(nTopRow, aBarCol[i]), Devout(aBar[i]) }) // store inkey code for each item on menu bar to aBarKeys - AEVAL( aBarKeys, {|x,i| aBarKeys[i] := ; + AEVAL( aBarKeys, {|x,i| HB_SYMBOL_UNUSED( x ), aBarKeys[i] := ; aKeyCodes[ ASC( UPPER( LTRIM( aBar[i] ) ) ) - 64 ] } ) // disable Alt-C and Alt-D @@ -448,7 +448,7 @@ FUNCTION __ftAcUdf( nMode ) RETURN nRtnVal STATIC FUNCTION _ftWidest( i, aChoices, aBarWidth ) - AEVAL(aChoices[i,1],{|a,b| aBarWidth[i] := ; + AEVAL(aChoices[i,1],{|a,b| HB_SYMBOL_UNUSED( a ), aBarWidth[i] := ; MAX( aBarWidth[i],LEN(aChoices[i,1,b])) }) RETURN NIL @@ -458,7 +458,7 @@ STATIC FUNCTION _ftLocat( i, aBarCol, aBarWidth, aBoxLoc, nMaxCol ) RETURN NIL STATIC FUNCTION _ftBailOut( cBorder, cBox ) - LOCAL cOldColor, sOldScreen, nKeyPress, nOldCursor, nCenter + LOCAL cOldColor, sOldScreen, nKeyPress, nOldCursor nOldCursor := SETCURSOR( SCNONE ) sOldScreen := SAVESCREEN(nMaxRow/2-1, 24, nMaxRow/2+2, 55) cOldColor := SETCOLOR( cBorder ) diff --git a/harbour/contrib/libnf/pegs.prg b/harbour/contrib/libnf/pegs.prg index 07e7d798ad..830b5eeab5 100644 --- a/harbour/contrib/libnf/pegs.prg +++ b/harbour/contrib/libnf/pegs.prg @@ -109,7 +109,7 @@ xx := 1 setcolor('w/r') SINGLEBOX(22, 31, 24, 48) @ 23, 33 say "Your move:" -aeval(board_, { | a, x | drawbox(x) } ) +aeval(board_, { | a, x | HB_SYMBOL_UNUSED( a ), drawbox( x ) } ) do while lastkey() != K_ESC .and. moremoves() move := 1 setcolor('w/n') diff --git a/harbour/contrib/libnf/popadder.prg b/harbour/contrib/libnf/popadder.prg index 6dfb4efec6..ac780706b9 100644 --- a/harbour/contrib/libnf/popadder.prg +++ b/harbour/contrib/libnf/popadder.prg @@ -1400,6 +1400,10 @@ RETURN xVarVal FUNCTION _ftAdderTapeUDF(mode,cur_elem,rel_pos) LOCAL nKey,nRtnVal STATIC ac_exit_ok := .F. + + HB_SYMBOL_UNUSED( cur_elem ) + HB_SYMBOL_UNUSED( rel_pos ) + DO CASE CASE mode == AC_EXCEPT nKey := LASTKEY() diff --git a/harbour/contrib/libnf/savesets.prg b/harbour/contrib/libnf/savesets.prg index 0d492c3336..03e6133a99 100644 --- a/harbour/contrib/libnf/savesets.prg +++ b/harbour/contrib/libnf/savesets.prg @@ -70,7 +70,7 @@ FUNCTION FT_SAVESETS() LOCAL aOldSets := ARRAY(_SET_COUNT + FT_EXTRA_SETS) AEVAL(aOldSets, ; - { | xElement, nElementNo | ; + { | xElement, nElementNo | HB_SYMBOL_UNUSED( xElement ), ; aOldSets[nElementNo] := SET(nElementNo) } ) aOldSets[FT_SET_CENTURY] := FT_SETCENTURY() diff --git a/harbour/contrib/libnf/tbwhile.prg b/harbour/contrib/libnf/tbwhile.prg index 323c179ae1..98cd6d07dc 100644 --- a/harbour/contrib/libnf/tbwhile.prg +++ b/harbour/contrib/libnf/tbwhile.prg @@ -258,7 +258,7 @@ FUNCTION FT_BRWSWHL(aFields, bWhileCond, cKey, nFreeze, lSaveScrn, ; cColorList, cColorShad, nTop, nLeft, nBottom, nRight ) - LOCAL b, column, cType, i + LOCAL b, column, i LOCAL cHead, bField, lKeepScrn, cScrnSave LOCAL cColorSave, cColorBack, nCursSave LOCAL lMore, nKey, nPassRec diff --git a/harbour/contrib/libnf/xbox.prg b/harbour/contrib/libnf/xbox.prg index 1e08a289c2..ced5bb0ea2 100644 --- a/harbour/contrib/libnf/xbox.prg +++ b/harbour/contrib/libnf/xbox.prg @@ -143,7 +143,6 @@ FUNCTION FT_XBOX(cJustType,; // "L" = left, otherwise centered nTRow, ; nBRow, ; nLoop, ; - cSayStr, ; nSayRow, ; nSayCol, ; nNumRows, ; diff --git a/harbour/contrib/odbc/todbc.prg b/harbour/contrib/odbc/todbc.prg index f25bda5ff1..9e37bd79df 100644 --- a/harbour/contrib/odbc/todbc.prg +++ b/harbour/contrib/odbc/todbc.prg @@ -430,7 +430,6 @@ RETURN ( ( nRet == SQL_SUCCESS ) ) // Only executes the SQL Statement METHOD ExecSQL() CLASS TODBC - LOCAL lRet LOCAL xBuf LOCAL nRet @@ -502,7 +501,6 @@ RETURN ( xRet ) METHOD Fetch( nFetchType, nOffset ) CLASS TODBC LOCAL nRows - LOCAL nRowStatus LOCAL nResult LOCAL nPos:=NIL