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

See changelog. Thanks to Les

Browse Source
This commit is contained in:
Eddie Runia
1999-05-22 14:43:40 +00:00
parent 8a798ff9d6
commit 5e80471b2d
3 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990522-15:35 CET Eddie Runia
* tests/working/instr.prg, source/vm/hvm.c
Les Griffiths patch inserted
19990522-15:10 CET Eddie Runia
* include/test.ch
added

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

@@ -1058,13 +1058,11 @@ void Instring( void )
PITEM pItem1 = stack.pPos - 2;
PITEM pItem2 = stack.pPos - 1;
int iResult;
ULONG ul;
if( IS_STRING( pItem1 ) && IS_STRING( pItem2 ) )
{
for( iResult = 0, ul = 0; !iResult && ul < (ULONG) pItem1->wLength; ul++ )
iResult = hb_strAt( pItem1->value.szText + ul, 1,
pItem2->value.szText, pItem2->wLength );
iResult = hb_strAt( pItem1->value.szText, pItem1->wLength,
pItem2->value.szText, pItem2->wLength );
StackPop();
StackPop();
PushLogical( iResult == 0 ? 0 : 1 );

2
harbour/tests/working/instr.prg
View File

@@ -11,7 +11,7 @@ qout('"d" $ "BCDE" ', "d" $ "BCDE",.f.)
qout('"D" $ "bcde" ', "D" $ "bcde",.f.)
qout('"de" $ "bcde"', "de" $ "bcde",.t.)
qout('"bd" $ "bcde"', "bd" $ "bcde",.t.)
qout('"bd" $ "bcde"', "bd" $ "bcde",.f.)
qout('"BD" $ "bcde"', "BD" $ "bcde",.f.)
return nil