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

20000503-19:25 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

Browse Source 
* source/compiler/harbour.c
     * Corrcetd pVars->iUsed = 1 to pVars->iUsed |= 1 in hb_compVariableGetPos() so it won't override -1 value from StrongType()
This commit is contained in:
Ron Pinkas
2000-05-04 02:27:03 +00:00
parent ba32c1fa9d
commit f6cc8be651
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
20000503-19:25 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/compiler/harbour.c
* Corrcetd pVars->iUsed = 1 to pVars->iUsed |= 1 in hb_compVariableGetPos() so it won't override -1 value from StrongType()
20000503-22:43 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/rtl/filesys.c

6
harbour/source/compiler/harbour.c
View File

@@ -1099,10 +1099,8 @@ USHORT hb_compVariableGetPos( PVAR pVars, char * szVarName ) /* returns the orde
{
if( pVars->szName && ! strcmp( pVars->szName, szVarName ) )
{
/* TODO: This is not the best place to push the variable type
* in some cases it will be called two times for the same variable
*/
pVars->iUsed = 1;
/* Might be set to -1 by StrongType if so leave without change, otherwise set to 1. */
pVars->iUsed |= 1;
return wVar;
}
else