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-08-16 11:43:40 +00:00
parent 4c890ac167
commit a068a36283
4 changed files with 2355 additions and 2346 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
harbour/ChangeLog
View File

@@ -1,3 +1,12 @@
19990816-13:30 CET Eddie Runia <eddie@runia.com>
* source/compiler/harbour.y
EndProc error resolved.
PushDouble error resolved.
Padding problem resolved
* source/runner/runner.c; include/run_exp.h
First symbol should be executed. Main renamed to HB_RUN
Init symbol code fixed
19990816-13:20 GMT+1 Victor Szel <info@szelvesz.hu>
* source/rtl/Makefile
+ browdb.prg added
@@ -57,43 +66,43 @@
ClassCreate -> __clsNew
ClassInstance -> __clsInst
__InstSuper -> __clsInstSuper
ClassAdd -> __clsAddMsg
ClassDel -> __clsDelMsg
ClassMod -> __clsModMsg
ClassAdd -> __clsAddMsg
ClassDel -> __clsDelMsg
ClassMod -> __clsModMsg
WClsDatas -> __cls_CntClsData
__wDatas -> __cls_CntData
__wDatas -> __cls_CntData
__wDataDec -> __cls_DecData
__wDataInc -> __cls_IncData
aOMethod -> __objGetMethodList
aOData -> __objGetMsgList
aOGet -> __objGetValueList
aOSet -> __objSetValueList
oClone -> __objClone
aOMethod -> __objGetMethodList
aOData -> __objGetMsgList
aOGet -> __objGetValueList
aOSet -> __objSetValueList
oClone -> __objClone
ClassName -> __objGetClsName
oSend -> __objSendMsg
oSend -> __objSendMsg
isMessage -> __objHasMsg
IsData -> __objHasData
IsMethod -> __objHasMethod
IsData -> __objHasData
IsMethod -> __objHasMethod
oAddMethod -> __objAddMethod
oAddInline -> __objAddInLine
oAddData -> __objAddData
oAddData -> __objAddData
oModMethod -> __objModMethod
oModInline -> __objModInLine
oDelMethod -> __objDelMethod
oDelInline -> __objDelInLine
oDelData -> __objDelData
oDelData -> __objDelData
ClassH -> __msgClsH
ClassH -> __msgClsH
ClassName -> __msgClsName
ClassSel -> __msgClsSel
ClassSel -> __msgClsSel
SelectSuper -> __msgSuper
EvalInline -> __msgEvalInline
GetClassData -> __msgGetClsData
SetClassData -> __msgSetClsData
GetData -> __msgGetData
SetData -> __msgSetData
Virtual -> __msgVirtual
GetData -> __msgGetData
SetData -> __msgSetData
Virtual -> __msgVirtual
DictRealloc -> hb_clsDictRealloc
ReleaseClass -> hb_clsRelease
@@ -147,33 +156,33 @@
19990815-18:45 GMT+2 Ryszard Glab <rglab@imid.med.pl>
*source/rtl/hvm.c
* added 'hb_vm' prefix to alias/field related functions
* some functions declared 'static'
* added 'hb_vm' prefix to alias/field related functions
* some functions declared 'static'
*include/ctoharb.h
- removed declarations of internal virtual machine functions
- removed declarations of internal virtual machine functions
*source/compiler/harbour.y
* changed an error description for incorrect use of PARAMETERS
statement
* added type casting to compile under C++ compilers
* static frame is correctly generated if static variable
is used in a codeblock only
* changed an error description for incorrect use of PARAMETERS
statement
* added type casting to compile under C++ compilers
* static frame is correctly generated if static variable
is used in a codeblock only
*include/extend.h
- removed obsolete declaration of hb_memvarNewSymbol()
- removed obsolete declaration of hb_memvarNewSymbol()
*include/hb_vmpub.h
+ added definition of callback function HB_DYNS_FUNC used
to enumerate dynamic symbols
+ added definition of callback function HB_DYNS_FUNC used
to enumerate dynamic symbols
*source/vm/dynsym.c
+ new function hb_dynsymEval() that enumerates dynamic symbols
by calling specified HB_DYNS_FUNC * function
+ new function hb_dynsymEval() that enumerates dynamic symbols
by calling specified HB_DYNS_FUNC * function
*source/rtl/memvars.c
+ added __MVCLEAR function to release all PRIVATE and PUBLIC
variables (this function is used in CLEAR MEMORY statement)
+ added __MVCLEAR function to release all PRIVATE and PUBLIC
variables (this function is used in CLEAR MEMORY statement)
19990815-19:59 GMT+3 Alexander Kresin
* source/rtl/tbrowse.prg

2
harbour/include/run_exp.h
View File

@@ -77,7 +77,7 @@ HARBOUR HB___MVPRIVATE();
*/
HB_INIT_SYMBOLS_BEGIN( RUNNER )
{ "MAIN", FS_PUBLIC, HB_MAIN , 0 },
{ "HB_RUN", FS_PUBLIC, HB_HB_RUN , 0 },
{ "__AGLOBALSTACK", FS_PUBLIC, HB___AGLOBALSTACK , 0 },
{ "__APARAM", FS_PUBLIC, HB___APARAM , 0 },
{ "__ASTACK", FS_PUBLIC, HB___ASTACK , 0 },

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

File diff suppressed because it is too large Load Diff

16
harbour/source/runner/runner.c
View File

@@ -74,7 +74,7 @@ typedef struct
#define SYM_NOT_FOUND 0xFFFFFFFF /* Symbol not found.
FindSymbol */
HARBOUR HB_MAIN();
HARBOUR HB_HB_RUN();
static PASM_CALL CreateFun( PHB_SYMB, BYTE * ); /* Create a dynamic function*/
static ULONG FindSymbol( char *, PDYNFUNC, ULONG );
static void HRB_FileClose( FILE * );
@@ -110,7 +110,7 @@ ULONG ulSymEntry = 0; /* Link enhancement */
In due time it should also be able to collect the data from the
binary/executable itself
*/
HARBOUR HB_MAIN( void )
HARBOUR HB_HB_RUN( void )
{
char *szFileName;
@@ -202,15 +202,19 @@ HARBOUR HB_MAIN( void )
*/
for( ul = 0; ul < ulSymbols; ul++ ) /* Check INIT functions */
{
if( (pSymRead[ ul ].cScope & (FS_INIT|FS_EXIT)) == (FS_INIT|FS_EXIT) )
if( (pSymRead[ ul ].cScope & FS_INITEXIT == FS_INITEXIT )
{
if( pSymRead[ ul ].pFunPtr )
pSymRead[ ul ].pFunPtr();
hb_vmPushSymbol( pSymRead + ul );
hb_vmPushNil();
for( i = 0; i < (hb_pcount() - 1); i++ )
hb_vmPush( hb_param( i + 2, IT_ANY ) );
/* Push other cmdline params*/
hb_vmDo( hb_pcount() - 1 ); /* Run init function */
}
}
for( ul = 0; ul < ulSymbols; ul++ ) /* Check INIT functions */
{
if( (pSymRead[ ul ].cScope & (FS_INIT|FS_EXIT)) == FS_INIT )
if( (pSymRead[ ul ].cScope & FS_INITEXIT) == FS_INIT )
{
hb_vmPushSymbol( pSymRead + ul );
hb_vmPushNil();