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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-07-26 19:41:25 +00:00
parent d91f268bbc
commit 5eaaa368ce
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990726-03:25 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/dbcmd.c
* memset(pWorkAreas,0,sizeof(AREA)); in rddInit
* a couple more (or maybe the same) casts to help msvc.
19990726-20:52 CET Victor Szel <info@szelvesz.hu>
* tests/working/rtl_test.prg - make use of the preproc
and thus it's more easy to expand it, and fewer human

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

@@ -112,6 +112,7 @@ void hb_rddInitialize( void )
szDefDriver = ( char * ) hb_xgrab( 1 );
szDefDriver[ 0 ] = '\0';
pWorkAreas = ( AREAP ) hb_xgrab( sizeof( AREA ) );
memset(pWorkAreas, 0, sizeof(AREA));
uiWorkAreas = 1;
}
@@ -392,7 +393,7 @@ HARBOUR HB_DBCREATE( void )
return;
}
pInfo.abName = szFileName;
pInfo.abName = (PBYTE)szFileName;
( * pFunction )( &pWorkAreas[ uiCurrArea - 1 ], &pInfo );
pWorkAreas[ uiCurrArea - 1 ].rddID = 0;
}
@@ -628,8 +629,8 @@ HARBOUR HB_DBUSEAREA( void )
szAlias = ISCHAR( 4 ) ? hb_parc( 4 ) : szFileName;
pInfo.uiArea = uiCurrArea;
pInfo.abName = szFileName;
pInfo.atomAlias = szAlias;
pInfo.abName = (PBYTE)szFileName;
pInfo.atomAlias = (PBYTE)szAlias;
pInfo.fShared = ISLOG( 5 ) ? hb_parl( 5 ) : !hb_set.HB_SET_EXCLUSIVE;
pInfo.fReadonly = ISLOG( 6 ) ? hb_parl( 6 ) : FALSE;
( * pFunction2 )( &pWorkAreas[ uiCurrArea - 1 ], &pInfo );