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

2009-08-11 15:35 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>

Browse Source 
* harbour/contrib/xhb/xcstr.prg
    ! fixed ValToPrgExp() to not use indexed strings
This commit is contained in:
Antonio Carlos Pantaglione
2009-08-11 18:29:58 +00:00
parent 6ca00081a7
commit 4765bee3fc
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-08-11 15:35 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>
* harbour/contrib/xhb/xcstr.prg
! fixed ValToPrgExp() to not use indexed strings
2009-08-11 17:46 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* config/global.cf
* config/dir.cf

3
harbour/contrib/xhb/xcstr.prg
View File

@@ -195,8 +195,7 @@ FUNCTION ValToPrg( xVal, cName, nPad, aObjs )
NEXT
/* We know for sure xVal isn't empty, and a last ',' is here */
cRet[ -2 ] := ' '
cRet[ -1 ] := '}'
cRet = SubStr( cRet, 1, Len( cRet ) - 2 ) + " }"
RETURN cRet
ENDIF