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

2002-01-19 06:11 UTC-0800 Ron Pinkas <ron@ronpinkas.com>

Browse Source 
* contrib/dot/pp_harb.ch
     + #ifdef __XHARBOUR__ to protect xHarbour fastitem reliance.
This commit is contained in:
Ron Pinkas
2002-01-23 23:07:31 +00:00
parent d6469d14ff
commit 3292075b00
2 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -9,6 +9,10 @@
*/
* tests/testpers.prg
2002-01-24 17:53 UTC+0000 Dave Pearson <davep@davep.org>
* include/hbpcode.h
* Fixed some spelling errors in the pcode comments.
2002-01-24 10:27 UTC+0000 Dave Pearson <davep@davep.org>
* source/rtl/profiler.prg
* HBProfileLowLevel:gatherOPCodes() wasn't making a call to
@@ -184,13 +188,13 @@ ed
2002-01-21 10:10 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/vm/hvm.c
* source/vm/memvars.c
2002-01-20 08:50 UTC+0800 Ron Pinkas <ron@ronpinkas.com>
* Added resetting of HB_IT_MEMOFLAG in functions:
hb_vmArrayPop(), hb_vmPopLocal(), hb_vmPopStatic(), hb_memvarSetValue()
* source/rdd/dbfntx/dbfntx1.c
* Added support of DBOI_POSITION and DBOI_KEYCOUNT to ntxOrderInfo()
and empty prototypes of hb_ntxTagKeyNo(), hb_ntxTagKeyCount()
2002-01-19 06:11 UTC+0800 Ron Pinkas <ron@ronpinkas.com>
2002-01-20 13:29 UTC+0100 Patrick Mast <email@patrickmast.com>
+ Added ChangeLog to the /contrib/apollo dir
+ contrib/apollo/test/apollo.ch
+ defines for function sx_SysProp

43
harbour/contrib/dot/pp_harb.ch
View File

@@ -96,18 +96,26 @@ RETURN nProcId > 0
#ifdef USE_C_BOOST
#ifdef __XHARBOUR__
#pragma BEGINDUMP
#define __XHARBOUR__
#pragma ENDDUMP
#endif
#pragma BEGINDUMP
#include <ctype.h>
#include "hbapi.h"
#include "hbfast.h"
#include "hbstack.h"
#include "hbapierr.h"
#include "hbapiitm.h"
#include "hbvm.h"
#include "hboo.ch"
#ifdef __XHARBOUR__
#include "hbfast.h"
#endif
static BOOL s_bArrayPrefix = FALSE;
//----------------------------------------------------------------------------//
@@ -576,8 +584,12 @@ static HB_FUNC( NEXTIDENTIFIER )
//printf( "\nIdentifier: '%s'\n", sIdentifier );
hb_retcAdopt( sIdentifier );
//hb_xfree( sIdentifier );
#ifdef __XHARBOUR__
hb_retcAdopt( sIdentifier );
#else
hb_retc( sIdentifier );
hb_xfree( sIdentifier );
#endif
}
else
{
@@ -622,7 +634,12 @@ HB_FUNC( EXTRACTLEADINGWS )
hb_itemPutCL( pWS, pTmp, i );
}
hb_retclenAdopt( pTmp, i );
#ifdef __XHARBOUR__
hb_retclenAdopt( pTmp, i );
#else
hb_retclen( pTmp, i );
hb_xfree( pTmp );
#endif
}
//----------------------------------------------------------------------------//
@@ -667,8 +684,12 @@ HB_FUNC( DROPTRAILINGWS )
hb_itemPutCPtr( pWS, pTmp, iLen - i );
}
hb_retclenAdopt( pString, i );
//hb_xfree( pString );
#ifdef __XHARBOUR__
hb_retclenAdopt( pString, i );
#else
hb_retclen( pString, i );
hb_xfree( pString );
#endif
}
//----------------------------------------------------------------------------//
@@ -704,8 +725,12 @@ HB_FUNC( DROPEXTRATRAILINGWS )
hb_itemPutCL( pLine, pString, i );
}
hb_retclenAdopt( pString, i );
//hb_xfree( pString );
#ifdef __XHARBOUR__
hb_retclenAdopt( pString, i );
#else
hb_retclen( pString, i );
hb_xfree( pString );
#endif
}
#pragma ENDDUMP