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-08-20 16:05:22 +00:00
parent e6e5845670
commit 2e002eec54
4 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
19990820-11:50 EDT Paul Tucker <ptucker@sympatico.ca>
* source/rtl/dir.c
* corrected case of iDirnameLen
* source/rtl/transfrm.c
* added casts as required
* makefile.vc
- remove HARBOUR_USE_GTAPI
19990820-15:05 GMT+2 Ryszard Glab <rglab@imid.med.pl>
*source/rtl/strings.c

2
harbour/makefile.vc
View File

@@ -31,7 +31,7 @@ OBJ_DIR=obj
#
CC=cl
CFLAGS=-w -I$(INCLUDE_DIR) -DHARBOUR_USE_GTAPI -DHARBOUR_USE_WIN_GTAPI
CFLAGS=-w -I$(INCLUDE_DIR) -DHARBOUR_USE_WIN_GTAPI
CLIBFLAGS=$(CFLAGS) -c /TP
CLIBFLAGSDEBUG=$(CFLAGS) -c -Zi /TP

4
harbour/source/rtl/dir.c
View File

@@ -179,7 +179,7 @@ HARBOUR HB_DIRECTORY( void )
long fsize;
time_t ftime;
char * pos;
int iDirnamelen;
int iDirnameLen;
PHB_ITEM pdir;
PHB_ITEM psubarray;
@@ -216,7 +216,7 @@ HARBOUR HB_DIRECTORY( void )
{
strcpy(dirname,".X");
dirname[1] = OS_PATH_DELIMITER;
iDirnamelen =2;
iDirnameLen =2;
}
if (strlen(pattern) > 0)

8
harbour/source/rtl/transfrm.c
View File

@@ -392,7 +392,7 @@ HARBOUR HB_TRANSFORM( void )
if( *szPic == '@' ) /* Function marker found */
{
wPicFlags = PictFunc( &szPic, &lPic ); /* Get length of function */
wPicFlags = PictFunc( &szPic, (ULONG*)&lPic ); /* Get length of function */
lPicStart = pPic->item.asString.length - lPic;
/* Get start of template */
}
@@ -528,7 +528,7 @@ HARBOUR HB_TRANSFORM( void )
case IT_INTEGER:
{
szResult = NumPicture( szPic + lPicStart, lPic, wPicFlags,
(double) pExp->item.asInteger.value, &lResultPos,
(double) pExp->item.asInteger.value, (ULONG*)&lResultPos,
pExp->item.asInteger.length, 0 );
hb_retclen( szResult, lResultPos );
hb_xfree( szResult );
@@ -537,7 +537,7 @@ HARBOUR HB_TRANSFORM( void )
case IT_LONG:
{
szResult = NumPicture( szPic + lPicStart, lPic, wPicFlags,
(double) pExp->item.asLong.value, &lResultPos,
(double) pExp->item.asLong.value, (ULONG *)&lResultPos,
pExp->item.asLong.length, 0 );
hb_retclen( szResult, lResultPos );
hb_xfree( szResult );
@@ -546,7 +546,7 @@ HARBOUR HB_TRANSFORM( void )
case IT_DOUBLE:
{
szResult = NumPicture( szPic + lPicStart, lPic, wPicFlags,
(double) pExp->item.asDouble.value, &lResultPos,
(double) pExp->item.asDouble.value, (ULONG *)&lResultPos,
pExp->item.asDouble.length, pExp->item.asDouble.decimal );
hb_retclen( szResult, lResultPos);
hb_xfree( szResult );