From 8454a7de187eb1de3afe658ddeb2b42f0fbc32dc Mon Sep 17 00:00:00 2001 From: Andi Jahja Date: Fri, 21 Dec 2001 20:31:03 +0000 Subject: [PATCH] Andi Jahja --- harbour/ChangeLog | 6 ++++++ harbour/include/hbinit.h | 2 +- harbour/source/rtl/filesys.c | 12 ++++++------ 3 files changed, 13 insertions(+), 7 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 83c90a00fe..a88b34ac6e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,12 @@ For example: 2002-12-01 23:12 UTC+0100 Foo Bar */ + calls. + + * include/hbapi.h + * include/hbundoc.api + * Some compatibility #defines moved to its place. + 2001-12-22 11:30 UTC+0100 Antonio Linares * source/vm/dynlibhb.c diff --git a/harbour/include/hbinit.h b/harbour/include/hbinit.h index f4878c0044..bce795211a 100644 --- a/harbour/include/hbinit.h +++ b/harbour/include/hbinit.h @@ -59,7 +59,7 @@ extern "C" { #endif -extern void hb_vmProcessSymbols( PHB_SYMB pSymbols, USHORT uiSymbols ); /* statics symbols initialization */ +extern void HB_EXPORT hb_vmProcessSymbols( PHB_SYMB pSymbols, USHORT uiSymbols ); /* statics symbols initialization */ #if defined(HARBOUR_STRICT_ANSI_C) diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c index b0f51551cd..5dc24adb11 100644 --- a/harbour/source/rtl/filesys.c +++ b/harbour/source/rtl/filesys.c @@ -1031,7 +1031,7 @@ BOOL hb_fsDelete( BYTE * pFilename ) #if defined(HB_OS_WIN_32) bResult = ( DeleteFile( ( char * ) pFilename ) == 0 ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HAVE_POSIX_IO) @@ -1064,7 +1064,7 @@ BOOL hb_fsRename( BYTE * pOldName, BYTE * pNewName ) #if defined(HB_OS_WIN_32) bResult = ( MoveFile( ( char * ) pOldName, ( char * ) pNewName ) == 0 ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HB_FS_FILE_IO) @@ -1307,7 +1307,7 @@ BOOL hb_fsMkDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) bResult = ( CreateDirectory( ( char * ) pDirname, NULL ) == 0 ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1340,7 +1340,7 @@ BOOL hb_fsChDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) bResult = ( SetCurrentDirectory( ( char * ) pDirname ) == 0 ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1367,7 +1367,7 @@ BOOL hb_fsRmDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) bResult = ( RemoveDirectory( ( char * ) pDirname ) == 0 ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1413,7 +1413,7 @@ USHORT hb_fsCurDirBuff( USHORT uiDrive, BYTE * pbyBuffer, ULONG ulLen ) #if defined(HB_OS_WIN_32) GetCurrentDirectory( ulLen, ( char * ) pbyBuffer ); - s_uiErrorLast = GetLastError(); + s_uiErrorLast = (USHORT) GetLastError(); #elif defined(HAVE_POSIX_IO)