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

ChangeLog: 19990719-19:28

Browse Source
This commit is contained in:
Ryszard Glab
1999-07-19 17:38:01 +00:00
parent 614a76075f
commit 61ee6cab8b
2 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
19990719-19:28 GMT+2 Ryszard Glab <rglab@imid.med.pl>
*source/compiler/harbour.y
+added 'PushFunCall' function to push the name of function. This
function checks if passed name is an abbreviation of reserved
function. If the abbreviation is used then the full name is pushed.
19990719-18:33 Antonio Linares <alinares@fivetech.com>
* source/rtl/classes.c
* enhanced methods amount meanwhile DictRealloc() is built.

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

@@ -219,6 +219,7 @@ void MessageFix( char * szMsgName ); /* fix a generated message to an object
void MessageDupl( char * szMsgName ); /* fix a one generated message to an object and duplicate */
void PopId( char * szVarName ); /* generates the pcode to pop a value from the virtual machine stack onto a variable */
void PushDouble( double fNumber, BYTE bDec ); /* Pushes a number on the virtual machine stack */
void PushFunCall( char * ); /* generates the pcode to push function's call */
void PushId( char * szVarName ); /* generates the pcode to push a variable value to the virtual machine stack */
void PushIdByRef( char * szVarName ); /* generates the pcode to push a variable by reference to the virtual machine stack */
void PushInteger( int iNumber ); /* Pushes a integer number on the virtual machine stack */
@@ -607,7 +608,7 @@ FunCall : FunStart ')' { $$=0; CheckArgs( $1, $$ ); }
| FunStart ArgList ')' { $$=$2; CheckArgs( $1, $$ ); }
;
FunStart : IDENTIFIER '(' { StaticAssign(); PushSymbol( $1, 1 ); PushNil(); $$ = $1; }
FunStart : IDENTIFIER '(' { StaticAssign(); PushFunCall( $1 ); $$ = $1; }
;
MethCall : MethStart ')' { $$ = 0; }
@@ -3561,6 +3562,22 @@ void PushDouble( double dNumber, BYTE bDec )
}
}
void PushFunCall( char *szFunName )
{
char * *pFunction;
pFunction = (char * *)RESERVED_FUNC( szFunName );
if( pFunction )
{
/* Abbreviated function name was used - change it for whole name
*/
PushSymbol( yy_strdup( *pFunction ), 1 );
}
else
PushSymbol( szFunName, 1 );
PushNil();
}
/* generates the pcode to push a integer number on the virtual machine stack */
void PushInteger( int iNumber )
{