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

see changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-06-03 15:03:47 +00:00
parent 33f62c99ae
commit e7f9a7ea33
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
19990603-16:00 CET Eddie Runia
* source/rtl/classes.c
wLimit bug resolved
19990603-15:25 CET Eddie Runia
* source/compiler/harbour.y
<func>()[<index>] syntax added

14
harbour/source/rtl/classes.c
View File

@@ -367,7 +367,7 @@ HARBOUR CLASSADD() /* hClass, cMessage, pFunction, nType, xInit */
pMessage = GetDynSym( _parc( 2 ) );
wAt = ( ( ( unsigned ) pMessage ) % pClass->wHashKey ) * BUCKET;
wMask = pClass->wHashKey * BUCKET;
wLimit = ( wAt - 1 ) % wMask;
wLimit = wAt ? ( wAt - 1 ) : ( wMask - 1 );
if( pClass->wMethods > ( pClass->wHashKey * BUCKET * 2/3 ) )
DictRealloc( pClass );
@@ -375,7 +375,7 @@ HARBOUR CLASSADD() /* hClass, cMessage, pFunction, nType, xInit */
while( ( wAt != wLimit ) &&
pClass->pMethods[ wAt ].pMessage &&
( pClass->pMethods[ wAt ].pMessage != pMessage ) )
wAt = ( wAt + 1 ) % wMask;
wAt = ( wAt == wMask ) ? 0 : wAt + 1;
if( wAt != wLimit )
{
@@ -508,7 +508,7 @@ HARBOURFUNC GetMethod( PITEM pObject, PSYMBOL pMessage )
pClass = &pClasses[ wClass - 1 ];
wAt = ( ( ( unsigned ) pMsg ) % pClass->wHashKey ) * BUCKET;
wMask = pClass->wHashKey * BUCKET;
wLimit = ( wAt - 1 ) % wMask;
wLimit = wAt ? ( wAt - 1 ) : ( wMask - 1 );
pMethod = 0;
@@ -519,7 +519,7 @@ HARBOURFUNC GetMethod( PITEM pObject, PSYMBOL pMessage )
pMethod = &pClass->pMethods[ wAt ];
return pClass->pMethods[ wAt ].pFunction;
}
wAt = ( wAt + 1 ) % wMask;
wAt = ( wAt == wMask ) ? 0 : wAt + 1;
}
}
@@ -669,12 +669,12 @@ HARBOUR CLASSMOD() /* Modify message (only for INLINE and METHOD) */
pClass = pClasses + wClass - 1;
wAt = ( ( ( unsigned ) pMsg ) % pClass->wHashKey ) * BUCKET;
wMask = pClass->wHashKey * BUCKET;
wLimit = ( wAt - 1 ) % wMask;
wLimit = wAt ? ( wAt - 1 ) : ( wMask - 1 );
while( ( wAt != wLimit ) &&
( pClass->pMethods[ wAt ].pMessage &&
( pClass->pMethods[ wAt ].pMessage != pMsg ) ) )
wAt = ( wAt + 1 ) % wMask;
wAt = ( wAt == wMask ) ? 0 : wAt + 1;
if( wAt != wLimit )
{ /* Requested method found */
@@ -722,7 +722,7 @@ HARBOUR CLASSDEL() /* Delete message (only for INLINE and METHOD) */
while( ( wAt != wLimit ) &&
( pClass->pMethods[ wAt ].pMessage &&
( pClass->pMethods[ wAt ].pMessage != pMsg ) ) )
wAt = ( wAt + 1 ) % wMask;
wAt = ( wAt == wMask ) ? 0 : wAt + 1;
if( wAt != wLimit )
{ /* Requested method found */