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

2008-06-17 23:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/tget.prg
     % Minor opt.

   * contrib/hbwhat32/_winkbrd.c
   * contrib/hbwhat32/_wintext.c
   * contrib/hbwhat32/_windc.c
   * contrib/hbwhat32/_winsys.c
   * contrib/hbwhat32/_windir.c
   * contrib/hbwhat32/_winmsg.c
   * contrib/hbwhat32/_winmisc.c
   * contrib/hbwhat32/_winfont.c
   * contrib/hbwhat32/_winreg.c
     ! Potential warning fixes.
This commit is contained in:
Viktor Szakats
2008-06-17 21:35:42 +00:00
parent dadeaeb416
commit d55c772ac7
11 changed files with 31 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/ChangeLog
View File

@@ -8,6 +8,21 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-06-17 23:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/tget.prg
% Minor opt.
* contrib/hbwhat32/_winkbrd.c
* contrib/hbwhat32/_wintext.c
* contrib/hbwhat32/_windc.c
* contrib/hbwhat32/_winsys.c
* contrib/hbwhat32/_windir.c
* contrib/hbwhat32/_winmsg.c
* contrib/hbwhat32/_winmisc.c
* contrib/hbwhat32/_winfont.c
* contrib/hbwhat32/_winreg.c
! Potential warning fixes.
2008-06-17 23:00 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* tests/rto_get.prg
* source/rtl/tget.prg

4
harbour/contrib/hbwhat32/_windc.c
View File

@@ -118,7 +118,7 @@ HB_FUNC( GETWINDOWDC )
HB_FUNC( CREATEDC )
{
DEVMODE *lpInitData ;
DEVMODE *lpInitData = NULL;
if ( ! ISNIL( 4 ) )
lpInitData = (DEVMODE *) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING)->item.asString.value ;
@@ -139,7 +139,7 @@ HB_FUNC( CREATEDC )
HB_FUNC( RESETDC )
{
DEVMODE *lpInitData ;
DEVMODE *lpInitData = NULL;
if ( ! ISNIL( 2 ) )
lpInitData = (DEVMODE *) hb_parc( 2 ); //hb_param( 2, HB_IT_STRING)->item.asString.value ;

2
harbour/contrib/hbwhat32/_windir.c
View File

@@ -177,7 +177,7 @@ HB_FUNC( SETVOLUMELABEL )
HB_FUNC( CREATEDIRECTORY )
{
SECURITY_ATTRIBUTES *sa ;
SECURITY_ATTRIBUTES *sa = NULL;
if (ISCHAR(2))
sa = (SECURITY_ATTRIBUTES *) hb_parc( 2 ); //hb_param(2, HB_IT_STRING)->item.asString.value;

2
harbour/contrib/hbwhat32/_winfont.c
View File

@@ -296,7 +296,7 @@ int CALLBACK GenericCallblockProc( LONG param1, LONG param2, int wParam, LPARAM
HB_FUNC( GETFONTDATA )
{
char *cBuffer ;
char *cBuffer == NULL;
DWORD dwRet ;
if ( ! ISNIL( 5 ) && ( hb_parnl( 5 ) > 0 ) )
cBuffer = (char *) hb_xgrab( hb_parnl(5));

2
harbour/contrib/hbwhat32/_winkbrd.c
View File

@@ -250,7 +250,7 @@ HB_FUNC( DESTROYACCELERATORTABLE )
HB_FUNC( COPYACCELERATORTABLE )
{
LPACCEL lpAccelDst ;
LPACCEL lpAccelDst = NULL;
int iCount = 0;
int iRet ;
PHB_ITEM aParam ;

2
harbour/contrib/hbwhat32/_winmisc.c
View File

@@ -507,7 +507,7 @@ int nCopyAnsiToWideChar (LPWORD lpWCStr, LPSTR lpAnsiIn)
HB_FUNC( CREATEMUTEX )
{
SECURITY_ATTRIBUTES *sa;
SECURITY_ATTRIBUTES *sa = NULL;
if( ISCHAR(1) )
{

4
harbour/contrib/hbwhat32/_winmsg.c
View File

@@ -64,7 +64,7 @@ HB_FUNC( POSTQUITMESSAGE )
HB_FUNC( POSTMESSAGE )
{
char *cText ;
char *cText = NULL;
if (ISBYREF(4))
{
@@ -92,7 +92,7 @@ HB_FUNC( POSTMESSAGE )
HB_FUNC( SENDMESSAGE )
{
char *cText ;
char *cText = NULL;
if( ISBYREF(4) )

2
harbour/contrib/hbwhat32/_winreg.c
View File

@@ -207,7 +207,7 @@ HB_FUNC( REGCREATEKEYEX )
HKEY hkResult ;
DWORD dwDisposition ;
LONG nErr ;
SECURITY_ATTRIBUTES *sa ;
SECURITY_ATTRIBUTES *sa = NULL;
if (ISCHAR(7))
sa = (SECURITY_ATTRIBUTES *) hb_parc( 7 ); //hb_param(7, HB_IT_STRING)->item.asString.value;

8
harbour/contrib/hbwhat32/_winsys.c
View File

@@ -931,7 +931,7 @@ HB_FUNC( HTMLHELP )
HB_FUNC( CREATEFILE )
{
SECURITY_ATTRIBUTES *sa ;
SECURITY_ATTRIBUTES *sa = NULL;
if( ISCHAR( 4 ) )
sa = ( SECURITY_ATTRIBUTES *) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING )->item.asString.value ;
@@ -972,7 +972,7 @@ HB_FUNC( READFILE )
char * Buffer = ( char * ) hb_xgrab( hb_parnl( 3 ) ) ;
DWORD nRead = 0 ;
BOOL bRet ;
OVERLAPPED *Overlapped ;
OVERLAPPED *Overlapped = NULL;
if( ISCHAR( 5 ) )
Overlapped = ( OVERLAPPED *) hb_parc( 5 ); //hb_param( 5, HB_IT_STRING )->item.asString.value ;
@@ -1006,8 +1006,8 @@ BOOL WriteFile(
HB_FUNC( WRITEFILE )
{
DWORD nWritten = 0 ;
OVERLAPPED *Overlapped ;
DWORD nWritten = 0;
OVERLAPPED *Overlapped = NULL;
if( ISCHAR( 4 ))
Overlapped = ( OVERLAPPED *) hb_parc( 4 ); //hb_param( 4, HB_IT_STRING )->item.asString.value ;

4
harbour/contrib/hbwhat32/_wintext.c
View File

@@ -72,7 +72,7 @@ HB_FUNC( POLYTEXTOUTA )
HB_FUNC( EXTTEXTOUT )
{
RECT rc ;
INT * lpDx ;
INT * lpDx = NULL;
BOOL rcOk ;
UINT iCount ;
UINT i ;
@@ -137,7 +137,7 @@ HB_FUNC( DRAWTEXTEX )
{
char *cText = (char *) hb_parcx( 2 );
RECT rc;
DRAWTEXTPARAMS *dtp ;
DRAWTEXTPARAMS *dtp = NULL;
if ( ISCHAR( 5 ))
dtp = (DRAWTEXTPARAMS *) hb_parc( 5 ); //hb_param( 5, HB_IT_STRING )->item.asString.value;

6
harbour/source/rtl/tget.prg
View File

@@ -972,11 +972,7 @@ METHOD pos( nPos ) CLASS Get
DO CASE
CASE nPos > ::nMaxLen
IF ::nMaxLen == 0
::nPos := 1
ELSE
::nPos := ::nMaxLen
ENDIF
::nPos := iif( ::nMaxLen == 0, 1, ::nMaxLen )
::typeOut := .T.
CASE nPos > 0