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

2003-10-22 13:55 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-10-22 09:57:05 +00:00
parent a8e297ad3f
commit 5f47f4e811
5 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-10-22 13:55 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* makefile.bc
* makefile.nt
* makefile.vc
* lang/msgsrwin.c and symbol.prg ( to makefile.nt only ) added.
* source/rdd/dbcmd.c
! Ordscope() fixed - first parameter is TOPSCOPE by default now.
2003-10-21 10:23 UTC-0800 Luis Krause Mantilla <lkrausem@shaw.ca>
* source/vm/codebloc.c
! Fixed detached local bug (borrowed from xharbour)

1
harbour/makefile.bc
View File

@@ -427,6 +427,7 @@ LANG_LIB_OBJS = \
$(OBJ_DIR)\msgslwin.obj \
$(OBJ_DIR)\msgsr852.obj \
$(OBJ_DIR)\msgsriso.obj \
$(OBJ_DIR)\msgsrwin.obj \
$(OBJ_DIR)\msgzhgb.obj \
$(OBJ_DIR)\msgzhb5.obj

2
harbour/makefile.nt
View File

@@ -413,6 +413,7 @@ RTL_LIB_OBJS = \
$(OBJ_DIR)\scrollbr.obj \
$(OBJ_DIR)\setfunc.obj \
$(OBJ_DIR)\setta.obj \
$(OBJ_DIR)\symbol.obj \
$(OBJ_DIR)\tbcolumn.obj \
$(OBJ_DIR)\tbrowse.obj \
$(OBJ_DIR)\tclass.obj \
@@ -480,6 +481,7 @@ LANG_LIB_OBJS = \
$(OBJ_DIR)\msgslwin.obj \
$(OBJ_DIR)\msgsr852.obj \
$(OBJ_DIR)\msgsriso.obj \
$(OBJ_DIR)\msgsrwin.obj \
$(OBJ_DIR)\msgzhgb.obj \
$(OBJ_DIR)\msgzhb5.obj

1
harbour/makefile.vc
View File

@@ -445,6 +445,7 @@ LANG_LIB_OBJS = \
$(OBJ_DIR)\msgslwin.obj \
$(OBJ_DIR)\msgsr852.obj \
$(OBJ_DIR)\msgsriso.obj \
$(OBJ_DIR)\msgsrwin.obj \
$(OBJ_DIR)\msgzhgb.obj \
$(OBJ_DIR)\msgzhb5.obj

4
harbour/source/rdd/dbcmd.c
View File

@@ -3043,12 +3043,12 @@ HB_FUNC( ORDSCOPE )
if( s_pCurrArea )
{
if( !ISNUM( 1 ) || (!ISNIL(2) && !( ISCHAR(2) || ISNUM(2) || ISDATE(2) || ISLOG(2) )))
if( (!ISNIL(2) && !( ISCHAR(2) || ISNUM(2) || ISDATE(2) || ISLOG(2) )))
{
hb_errRT_DBCMD( EG_ARG, EDBCMD_REL_BADPARAMETER, NULL, "ORDSCOPE" );
return;
}
sInfo.nScope = hb_parni( 1 );
sInfo.nScope = (ISNUM(1))? hb_parni( 1 ) : 0;
SELF_SCOPEINFO( ( AREAP ) s_pCurrArea->pArea, sInfo.nScope, pScopeValue );