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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-09-11 06:18:24 +00:00
parent bdf32356e0
commit 2de3cd4a33
2 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
19990911-01:42 EDT Paul Tucker <ptucker@sympatico.ca>
* source/compiler/harbour.y
sz_Compare4() Change the length of the first compare to
Min( 4, len(string)) to account for strings shorter than 4.
Add 1 to the length in the second compare to include the trailing
null so that (ie:) SetPos and SetPosBS can be detected as unique.
19990910-18:45 EDT David G. Holm <dholm@jsd-llc.com>
* tests/working/rtl_test.prg
! Changed smart stringify token marker in TEST_LINE to regular

9
harbour/source/compiler/harbour.y
View File

@@ -437,12 +437,15 @@ static const char * _szReservedFun[] = {
*/
int EXTERNAL_LINKAGE sz_compare4( const void * pLookup, const void * pReserved )
{
int iCmp;
int iCmp, iSlen;
iCmp = strncmp( ( const char * ) pLookup, * ( ( const char * * ) pReserved ), 4 );
iSlen = strlen( ( const char * ) pLookup );
iCmp = strncmp( ( const char * ) pLookup, * ( ( const char * * ) pReserved ),
( iSlen && iSlen < 4 ) ? iSlen : 4 );
if( iCmp == 0 )
iCmp = strncmp( ( const char * ) pLookup, * ( ( const char * * ) pReserved ),
strlen( ( const char * ) pLookup ) );
iSlen + 1);
return iCmp;
}