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

2008-10-11 14:49 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/fnsplit.c
  * source/rtl/hbtoken.c
    ! HB_FNAMESPLIT(), HB_TOKENPTR() fixed to 
      reset parameters passed by reference in 
      error cases.
This commit is contained in:
Viktor Szakats
2008-10-11 12:49:45 +00:00
parent d93996a154
commit 42d5b4139c
3 changed files with 16 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-11 14:49 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/fnsplit.c
* source/rtl/hbtoken.c
! HB_FNAMESPLIT(), HB_TOKENPTR() fixed to
reset parameters passed by reference in
error cases.
2008-10-11 13:06 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/tget.prg
! fixed cursor positioning when new get item is added.

16
harbour/source/rtl/fnsplit.c
View File

@@ -55,17 +55,14 @@
HB_FUNC( HB_FNAMESPLIT )
{
if( ISCHAR( 1 ) )
{
PHB_FNAME pFileName = hb_fsFNameSplit( hb_parc( 1 ) );
PHB_FNAME pFileName = hb_fsFNameSplit( hb_parcx( 1 ) );
hb_storc( pFileName->szPath, 2 );
hb_storc( pFileName->szName, 3 );
hb_storc( pFileName->szExtension, 4 );
hb_storc( pFileName->szDrive, 5 );
hb_storc( pFileName->szPath, 2 );
hb_storc( pFileName->szName, 3 );
hb_storc( pFileName->szExtension, 4 );
hb_storc( pFileName->szDrive, 5 );
hb_xfree( pFileName );
}
hb_xfree( pFileName );
}
HB_FUNC( HB_FNAMEMERGE )
@@ -80,4 +77,3 @@ HB_FUNC( HB_FNAMEMERGE )
hb_retc( hb_fsFNameMerge( szFileName, &pFileName ) );
}

3
harbour/source/rtl/hbtoken.c
View File

@@ -276,7 +276,10 @@ HB_FUNC( HB_TOKENPTR )
hb_retclen( szToken, ulToken );
}
else
{
hb_stornl( 0, 2 );
hb_retc( NULL );
}
}
HB_FUNC( HB_ATOKENS )