diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 7b30e018a9..ccb80697de 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19990604-16:20 CET Eddie Runia + * source/vm/initsymb.c; tests/working/run_exp.h + CDOW/ CMONTH were missing + Removal duplicate symbols from run_exp + 19990604-15:30 CET Patrick Mast * Release of Build #25 diff --git a/harbour/source/vm/initsymb.c b/harbour/source/vm/initsymb.c index 89f4afa132..5bf8fe53fb 100644 --- a/harbour/source/vm/initsymb.c +++ b/harbour/source/vm/initsymb.c @@ -15,10 +15,14 @@ HARBOUR AADD( void ); HARBOUR ABS( void ); HARBOUR ASC( void ); HARBOUR AT( void ); +HARBOUR CDOW( void ); HARBOUR CHR( void ); +HARBOUR COL( void ); +HARBOUR CMONTH( void ); HARBOUR CTOD( void ); HARBOUR DATE( void ); HARBOUR DAY( void ); +HARBOUR DOW( void ); HARBOUR DTOC( void ); HARBOUR DTOS( void ); HARBOUR EMPTY( void ); @@ -32,8 +36,11 @@ HARBOUR LTRIM( void ); HARBOUR MAX( void ); HARBOUR MIN( void ); HARBOUR MONTH( void ); +HARBOUR PCOL( void ); HARBOUR PCOUNT( void ); +HARBOUR PROW( void ); HARBOUR REPLICATE( void ); +HARBOUR ROW( void ); HARBOUR RTRIM( void ); HARBOUR SPACE( void ); HARBOUR SQRT( void ); @@ -55,17 +62,17 @@ static SYMBOL symbols[] = { { "AT" , FS_PUBLIC, AT , 0 }, { "BOF" , FS_PUBLIC, NULL , 0 }, { "BREAK" , FS_PUBLIC, NULL , 0 }, - { "CDOW" , FS_PUBLIC, NULL , 0 }, + { "CDOW" , FS_PUBLIC, CDOW , 0 }, { "CHR" , FS_PUBLIC, CHR , 0 }, - { "CMONTH" , FS_PUBLIC, NULL , 0 }, - { "COL" , FS_PUBLIC, NULL , 0 }, + { "CMONTH" , FS_PUBLIC, CMONTH , 0 }, + { "COL" , FS_PUBLIC, COL , 0 }, { "CTOD" , FS_PUBLIC, CTOD , 0 }, { "DATE" , FS_PUBLIC, DATE , 0 }, { "DAY" , FS_PUBLIC, DAY , 0 }, { "DELETED" , FS_PUBLIC, NULL , 0 }, { "DEVPOS" , FS_PUBLIC, NULL , 0 }, { "DO" , FS_PUBLIC, NULL , 0 }, - { "DOW" , FS_PUBLIC, NULL , 0 }, + { "DOW" , FS_PUBLIC, DOW , 0 }, { "DTOC" , FS_PUBLIC, DTOC , 0 }, { "DTOS" , FS_PUBLIC, DTOS , 0 }, { "EMPTY" , FS_PUBLIC, EMPTY , 0 }, @@ -87,16 +94,16 @@ static SYMBOL symbols[] = { { "MAX" , FS_PUBLIC, MAX , 0 }, { "MIN" , FS_PUBLIC, MIN , 0 }, { "MONTH" , FS_PUBLIC, MONTH , 0 }, - { "PCOL" , FS_PUBLIC, NULL , 0 }, + { "PCOL" , FS_PUBLIC, PCOL , 0 }, { "PCOUNT" , FS_PUBLIC, PCOUNT , 0 }, - { "PROW" , FS_PUBLIC, NULL , 0 }, + { "PROW" , FS_PUBLIC, PROW , 0 }, { "QSELF" , FS_PUBLIC, NULL , 0 }, { "RECCOUNT" , FS_PUBLIC, NULL , 0 }, { "RECNO" , FS_PUBLIC, NULL , 0 }, { "REPLICATE" , FS_PUBLIC, REPLICATE , 0 }, { "RLOCK" , FS_PUBLIC, NULL , 0 }, { "ROUND" , FS_PUBLIC, NULL , 0 }, - { "ROW" , FS_PUBLIC, NULL , 0 }, + { "ROW" , FS_PUBLIC, ROW , 0 }, { "RTRIM" , FS_PUBLIC, RTRIM , 0 }, { "SECONDS" , FS_PUBLIC, NULL , 0 }, { "SELECT" , FS_PUBLIC, NULL , 0 }, diff --git a/harbour/tests/working/run_exp.h b/harbour/tests/working/run_exp.h index a64003a605..c566f50672 100644 --- a/harbour/tests/working/run_exp.h +++ b/harbour/tests/working/run_exp.h @@ -51,8 +51,6 @@ HARBOUR BIN2W(); HARBOUR I2BIN(); HARBOUR L2BIN(); HARBOUR W2BIN(); -HARBOUR EXP(); -HARBOUR LOG(); HARBOUR MOD(); HARBOUR DEFAULT(); HARBOUR TOCHAR(); @@ -74,7 +72,6 @@ HARBOUR SPACE(); HARBOUR STUFF(); HARBOUR STRTRAN(); HARBOUR DATETIME(); -HARBOUR DOW(); HARBOUR __ASTATIC(); HARBOUR __STATIC(); HARBOUR __GLOBALSTACKLEN(); @@ -180,8 +177,6 @@ static SYMBOL symbols[] = { { "I2BIN", FS_PUBLIC, I2BIN , 0 }, { "L2BIN", FS_PUBLIC, L2BIN , 0 }, { "W2BIN", FS_PUBLIC, W2BIN , 0 }, -{ "EXP", FS_PUBLIC, EXP , 0 }, -{ "LOG", FS_PUBLIC, LOG , 0 }, { "MOD", FS_PUBLIC, MOD , 0 }, { "DEFAULT", FS_PUBLIC, DEFAULT , 0 }, { "TOCHAR", FS_PUBLIC, TOCHAR , 0 }, @@ -203,7 +198,6 @@ static SYMBOL symbols[] = { { "STUFF", FS_PUBLIC, STUFF , 0 }, { "STRTRAN", FS_PUBLIC, STRTRAN , 0 }, { "DATETIME", FS_PUBLIC, DATETIME , 0 }, -{ "DOW", FS_PUBLIC, DOW , 0 }, { "__ASTATIC", FS_PUBLIC, __ASTATIC , 0 }, { "__STATIC", FS_PUBLIC, __STATIC , 0 }, { "__GLOBALSTACKLEN", FS_PUBLIC, __GLOBALSTACKLEN, 0 },