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

2000-06-16 21:28 UTC+0100 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-06-16 19:28:03 +00:00
parent 4787227a72
commit 1d676139ac
3 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,10 +1,18 @@
2000-06-16 21:28 UTC+0100 Victor Szakats <info@szelvesz.hu>
* source/rtl/transfrm.c
! Fixed GCC -O2 warnings.
* source/vm/classes.c
! Fixed GCC -O2 warning in __SENDER()
2000-06-16 10:55 UTC-0800 Ron Pinkas <Ron@Profit-Master.com>
* source/pp/ppcore.c
! Removed 1 // comment.
2000-06-16 18:45 UTC+0100 Victor Szakats <info@szelvesz.hu>
* source/rtl/classes.c
* source/vm/classes.c
! Formatting, warnings fixed.
* hb_itemCopy( &hb_stack.return, ... ) -> hb_itemReturn( ... )
@@ -51,6 +59,7 @@
* makefile.bc
% Removed some more redundant -I$(INCLUDE_DIR)s
% Removed redundant -I$(LANG_DIR)s
* include/hbclass.ch
! Minor cleanups (#includes moved after the self-guards, nil->NIL,

5
harbour/source/rtl/transfrm.c
View File

@@ -80,8 +80,8 @@ HB_FUNC( TRANSFORM )
ULONG ulPicLen = hb_itemGetCLen( pPic );
USHORT uiPicFlags; /* Function flags */
ULONG ulParamS;
BYTE byParamL;
ULONG ulParamS = 0; /* To avoid GCC -O2 warning */
BYTE byParamL = '\0'; /* To avoid GCC -O2 warning */
char * szResult;
ULONG ulResultPos;
@@ -529,6 +529,7 @@ HB_FUNC( TRANSFORM )
else
{
szResult = NULL; /* To avoid GCC -O2 warning */
ulResultPos = 0; /* To avoid GCC -O2 warning */
bError = TRUE;
}

6
harbour/source/vm/classes.c
View File

@@ -1718,7 +1718,7 @@ HB_FUNC( __CLSPARENT )
HB_FUNC( __SENDER )
{
PHB_ITEM pBase = hb_stack.pBase;
PHB_ITEM oSender;
PHB_ITEM oSender = NULL;
USHORT iLevel = 3;
while( iLevel > 0 && pBase != hb_stack.pItems )
@@ -1726,11 +1726,11 @@ HB_FUNC( __SENDER )
pBase = hb_stack.pItems + pBase->item.asSymbol.stackbase;
oSender = pBase + 1;
if( ( iLevel-- == 2 && ( oSender )->type != HB_IT_BLOCK ) || ( oSender )->type == HB_IT_NIL )
if( ( iLevel-- == 2 && oSender->type != HB_IT_BLOCK ) || ( oSender )->type == HB_IT_NIL )
break;
}
if( iLevel == 0 && ( oSender )->type == HB_IT_OBJECT )
if( iLevel == 0 && oSender != NULL && oSender->type == HB_IT_OBJECT )
hb_itemReturn( oSender );
}