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:
Viktor Szakats
1999-05-08 14:22:33 +00:00
parent fdd7e0942a
commit 81c1976bcd
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
19990508-15:24 CET Victor Szel <info@szelvesz.hu>
* source/rtl/strings.c:
Fixed warning in PADR(), PADL(), PADC() (David G. Holm)
19990507-23:45 EDT David G. Holm <dholm@jsd-llc.com>
This update makes Harbour compatible with the IBM C++ compiler.
* include/init.h

15
harbour/source/rtl/strings.c
View File

@@ -164,11 +164,12 @@ HARBOUR ALLTRIM( void )
HARBOUR PADR( void )
{
char *szText = _parc(1);
if( _pcount() > 1 )
{
ULONG lLen = _parnl(2);
if( lLen >= (ULONG)_parclen(1) )
if( lLen > (ULONG)_parclen(1) )
{
char *szResult = (char *)_xgrab(lLen + 1);
ULONG lPos;
@@ -184,10 +185,8 @@ HARBOUR PADR( void )
_retclen(szResult, lLen);
_xfree(szResult);
}
else if( lLen >= 0 )
_retclen(szText, lLen);
else
_retc("");
_retclen(szText, lLen);
}
else
_retc("");
@@ -227,10 +226,8 @@ HARBOUR PADL( void )
_retclen(szResult, lLen);
_xfree(szResult);
}
else if( lLen >= 0 )
_retclen(szText, lLen);
else
_retc("");
_retclen(szText, lLen);
}
else
_retc("");
@@ -267,10 +264,8 @@ HARBOUR PADC( void )
_retclen(szResult, lLen);
_xfree(szResult);
}
else if( lLen >= 0 )
_retclen(szText, lLen);
else
_retc("");
_retclen(szText, lLen);
}
else
_retc("");