From fd38d29d165299be5aafc18f52ebbe575ac7103a Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Sat, 27 Nov 1999 21:34:13 +0000 Subject: [PATCH] IsNUM() -> ISNUMBER() in dbeval, and added to makefile.vc --- harbour/ChangeLog | 6 ++++++ harbour/makefile.vc | 7 +++++++ harbour/source/rdd/dbeval.prg | 2 +- 3 files changed, 14 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1f9236e191..2a86ce1aa5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19991127-15:57 EDT Paul Tucker + * source/rdd/dbeval.prg + * ISNUM() -> ISNUMBER + * makefile.vc + + dbeval.prg + 19991127-15:57 EST Paul Tucker * Clipper does _not_ quit if //noalert is specified and alert() is called. * source/rtl/alert.prg diff --git a/harbour/makefile.vc b/harbour/makefile.vc index 633acf458f..deec4c0c0c 100644 --- a/harbour/makefile.vc +++ b/harbour/makefile.vc @@ -200,6 +200,7 @@ RDD_OBJS = \ $(OBJ_DIR)\dbcmd.obj \ $(OBJ_DIR)\dbf0.obj \ $(OBJ_DIR)\dbf1.obj \ + $(OBJ_DIR)\dbeval.obj \ $(OBJ_DIR)\dbnubs.obj \ $(OBJ_DIR)\dbstrux.obj \ $(OBJ_DIR)\sdf0.obj \ @@ -891,6 +892,12 @@ $(OBJ_DIR)\dbf0.obj : $(RDD_DIR)\dbf0.c $(OBJ_DIR)\dbf1.obj : $(RDD_DIR)\dbf1.c $(CC) $(CLIBFLAGS) -Fo$@ $** +$(RDD_DIR)\dbeval.c : $(RDD_DIR)\dbeval.prg + $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$@ + +$(OBJ_DIR)\dbeval.obj : $(RDD_DIR)\dbeval.c + $(CC) $(CLIBFLAGS) -Fo$@ $** + $(OBJ_DIR)\dbnubs.obj : $(RDD_DIR)\dbnubs.c $(CC) $(CLIBFLAGS) -Fo$@ $** diff --git a/harbour/source/rdd/dbeval.prg b/harbour/source/rdd/dbeval.prg index d3413e3f33..f94462e8f9 100644 --- a/harbour/source/rdd/dbeval.prg +++ b/harbour/source/rdd/dbeval.prg @@ -108,7 +108,7 @@ FUNCTION dbEval( bBlock, bFor, bWhile, nNext, nRecord, lRest ) RETURN NIL ENDIF - IF ISNUM( nRecord ) + IF ISNUMBER( nRecord ) IF nRecord >= 1 .AND. nRecord <= LastRec() dbGoto( nRecord )