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

hb_vmArrayGen() - Microsoft C 64 bits required fix

Browse Source
This commit is contained in:
Antonio Linares
2005-04-17 11:02:45 +00:00
parent 971da5e61e
commit 51671e6848
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -3216,7 +3216,7 @@ static void hb_vmArrayGen( ULONG ulElements ) /* generates an ulElements Array a
itArray.type = HB_IT_NIL;
hb_arrayNew( &itArray, ulElements );
for( ulPos = 0; ulPos < ulElements; ulPos++ )
hb_itemCopy( itArray.item.asArray.value->pItems + ulPos, hb_stackItemFromTop( ulPos - ulElements ) );
hb_itemCopy( itArray.item.asArray.value->pItems + ulPos, hb_stackItemFromTop( ( signed ) ( ulPos - ulElements ) ) );
for( ulPos = 0; ulPos < ulElements; ulPos++ )
hb_stackPop();