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

2008-05-30 03:47 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/hbgtcore.c
    * removed unnecessary variable

  * harbour/contrib/hbw32/w32_ole.c
  * harbour/contrib/hbole/ole2.c
  * harbour/contrib/gtwvg/gtwvg.h
    ! use trick with HB_ID_REF() only for BCC and MSVC
      some other C++ compilers like OpenWatcom have different
      header files and does not need it.
This commit is contained in:
Przemyslaw Czerpak
2008-05-30 01:47:31 +00:00
parent 5472511ddc
commit 76b3f96d1d
5 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-05-30 03:47 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/hbgtcore.c
* removed unnecessary variable
* harbour/contrib/hbw32/w32_ole.c
* harbour/contrib/hbole/ole2.c
* harbour/contrib/gtwvg/gtwvg.h
! use trick with HB_ID_REF() only for BCC and MSVC
some other C++ compilers like OpenWatcom have different
header files and does not need it.
2008-05-30 02:48 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbvm.h
* harbour/source/vm/hvm.c

3
harbour/contrib/gtwvg/gtwvg.h
View File

@@ -172,7 +172,8 @@
#endif
#endif
#ifdef __cplusplus
#if defined( __cplusplus ) && \
( defined( __BORLANDC__ ) || defined( _MSC_VER ) )
# define HB_ID_REF( type, id ) id
#else
# define HB_ID_REF( type, id ) ( ( type ) &id )

3
harbour/contrib/hbole/ole2.c
View File

@@ -79,7 +79,8 @@
#define CINTERFACE 1
#endif
#ifdef __cplusplus
#if defined( __cplusplus ) && \
( defined( __BORLANDC__ ) || defined( _MSC_VER ) )
# define HB_ID_REF( type, id ) id
#else
# define HB_ID_REF( type, id ) ( ( type ) &id )

3
harbour/contrib/hbw32/w32_ole.c
View File

@@ -89,7 +89,8 @@
#define HB_LONG_LONG_OFF
#endif
#ifdef __cplusplus
#if defined( __cplusplus ) && \
( defined( __BORLANDC__ ) || defined( _MSC_VER ) )
# define HB_ID_REF( type, id ) id
#else
# define HB_ID_REF( type, id ) ( ( type ) &id )

7
harbour/source/rtl/hbgtcore.c
View File

@@ -1125,7 +1125,7 @@ static void hb_gt_def_ScrollArea( PHB_GT pGT, int iTop, int iLeft, int iBottom,
{
if( iRows || iCols )
{
int iColOld, iColNew, iColSize, iColClear, iClrs, iLength, iHeight, iWidth;
int iColNew, iColSize, iColClear, iClrs, iLength, iHeight, iWidth;
HB_GTSELF_GETSIZE( pGT, &iHeight, &iWidth );
if( iTop < 0 )
@@ -1139,20 +1139,19 @@ static void hb_gt_def_ScrollArea( PHB_GT pGT, int iTop, int iLeft, int iBottom,
iColSize = iRight - iLeft;
iLength = iColSize + 1;
iColOld = iColNew = iLeft;
iColNew = iLeft;
if( iCols >= 0 )
{
iColOld += iCols;
iColSize -= iCols;
iColClear = iColNew + iColSize + 1;
iClrs = iCols;
}
else
{
iColClear = iColNew;
iColNew -= iCols;
iColSize += iCols;
iColClear = iColOld;
iClrs = -iCols;
}