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

2009-06-20 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/mlcfunc.c
    ! Fixed after prev optimization. (some optimizations 
      were kept, but with no change of functionality)
This commit is contained in:
Viktor Szakats
2009-06-20 18:11:03 +00:00
parent 1773bd8474
commit 6e495cb274
2 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-06-20 20:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/mlcfunc.c
! Fixed after prev optimization. (some optimizations
were kept, but with no change of functionality)
2009-06-20 17:25 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* utils/hbmk2/hbmk2.prg
+ Added experimental filename escaping for *nix systems.

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

@@ -163,14 +163,16 @@ static PHB_EOL_INFO hb_mlGetEOLs( int iParam, int * piEOLs )
Clipper will ignore these parameters and use CRLF EOL hard
coded. [vszakats] */
#ifndef HB_C52_STRICT /* HB_EXTENSION */
ULONG ulLen = hb_parclen( iParam );
if( ulLen > 0 )
if( HB_ISCHAR( iParam ) )
{
pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
pEOLs->szEOL = hb_parc( iParam );
pEOLs->ulLen = ulLen;
iEOLs = 1;
ULONG ulLen = hb_parclen( iParam );
if( ulLen )
{
pEOLs = ( PHB_EOL_INFO ) hb_xgrab( sizeof( HB_EOL_INFO ) );
pEOLs->szEOL = hb_parc( iParam );
pEOLs->ulLen = ulLen;
iEOLs = 1;
}
}
else if( HB_ISARRAY( iParam ) )
{