From 91b03e96aa882579658634fb0b6da9493b6907bd Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Tue, 8 Jun 1999 12:29:33 +0000 Subject: [PATCH] see changelog --- harbour/ChangeLog | 8 ++++++++ harbour/source/vm/initsymb.c | 3 ++- harbour/tests/working/run_exp.h | 4 +++- harbour/tests/working/runner.c | 15 ++++++--------- 4 files changed, 19 insertions(+), 11 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b86a2fe3db..0452808e99 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,11 @@ +19990608-13:25 CET Eddie Runia + * source/vm/initsymb.c + SECONDS added + * tests/working/runner.c + _FILEs removed. + * tests/working/run_exp.h + HB_SETFIXED added + 19990608-11:45 CET Eddie Runia * source/tools/debug.c even though it makes no difference hb_arrayClone is used in statics(), diff --git a/harbour/source/vm/initsymb.c b/harbour/source/vm/initsymb.c index def5a82b51..fc1d76ee70 100644 --- a/harbour/source/vm/initsymb.c +++ b/harbour/source/vm/initsymb.c @@ -41,6 +41,7 @@ HARBOUR MONTH( void ); HARBOUR PCOUNT( void ); HARBOUR REPLICATE( void ); HARBOUR RTRIM( void ); +HARBOUR SECONDS( void ); HARBOUR SPACE( void ); HARBOUR SQRT( void ); HARBOUR STR( void ); @@ -104,7 +105,7 @@ static SYMBOL symbols[] = { { "ROUND" , FS_PUBLIC, NULL , 0 }, { "ROW" , FS_PUBLIC, NULL , 0 }, { "RTRIM" , FS_PUBLIC, RTRIM , 0 }, - { "SECONDS" , FS_PUBLIC, NULL , 0 }, + { "SECONDS" , FS_PUBLIC, SECONDS , 0 }, { "SELECT" , FS_PUBLIC, NULL , 0 }, { "SETPOS" , FS_PUBLIC, NULL , 0 }, { "SPACE" , FS_PUBLIC, SPACE , 0 }, diff --git a/harbour/tests/working/run_exp.h b/harbour/tests/working/run_exp.h index b558c536ad..5d1920e320 100644 --- a/harbour/tests/working/run_exp.h +++ b/harbour/tests/working/run_exp.h @@ -118,6 +118,7 @@ HARBOUR MAXCOL(); HARBOUR SETPRC(); HARBOUR SCROLL(); HARBOUR VERSION(); +HARBOUR HB_SETFIXED(); /* Same story. @@ -237,7 +238,8 @@ static SYMBOL symbols[] = { { "MAXCOL", FS_PUBLIC, MAXCOL , 0 }, { "SETPRC", FS_PUBLIC, SETPRC , 0 }, { "SCROLL", FS_PUBLIC, SCROLL , 0 }, -{ "VERSION", FS_PUBLIC, VERSION , 0 } +{ "VERSION", FS_PUBLIC, VERSION , 0 }, +{ "HB_SETFIXED", FS_PUBLIC, HB_SETFIXED , 0 } }; diff --git a/harbour/tests/working/runner.c b/harbour/tests/working/runner.c index ac0928eea8..5ff5470ffe 100644 --- a/harbour/tests/working/runner.c +++ b/harbour/tests/working/runner.c @@ -1,6 +1,5 @@ #include "pcode.h" -#define FILE _FILE #include /* #if INTEL32 */ @@ -50,19 +49,17 @@ PASM_CALL CreateFun( PSYMBOL, PBYTE ); /* Create a dynamic function*/ void Do( WORD ); ULONG FindSymbol( char *, PDYNFUNC, ULONG ); HARBOUR HB_RUN(); -void HRB_FileClose( _FILE * ); -void HRB_FileRead ( char *, int, int, _FILE * ); -_FILE *HRB_FileOpen ( char * ); +void HRB_FileClose( FILE * ); +void HRB_FileRead ( char *, int, int, FILE * ); +FILE *HRB_FileOpen ( char * ); void Push( PHB_ITEM ); void PushNil( void ); void PushSymbol( PSYMBOL ); -BYTE ReadByte( _FILE * ); -char *ReadId ( _FILE * ); -long ReadLong( _FILE * ); +BYTE ReadByte( FILE * ); +char *ReadId ( FILE * ); +long ReadLong( FILE * ); -#undef FILE #include "run_exp.h" -#define FILE _FILE /* *