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

2004-01-26 8:30 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>

Browse Source
This commit is contained in:
Luis Krause
2004-01-26 16:39:39 +00:00
parent 152325f856
commit 41de14b021
2 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-01-26 8:30 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
* source/rtl/tget.prg
! Fixed bug in get class when using "@9" picture with strings
2004-01-26 11:45 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
* source/compiler/harbour.c
*fixed generation of codeblock's pcode with debugging info

14
harbour/source/rtl/tget.prg
View File

@@ -269,7 +269,7 @@ METHOD ParsePict( cPicture ) CLASS Get
else
::lCleanZero := .f.
endif
::cPicFunc := StrTran(::cPicFunc, "Z", "")
::cPicFunc := StrTran( ::cPicFunc, "Z", "" )
if ::cPicFunc == "@"
::cPicFunc := ""
@@ -307,12 +307,16 @@ METHOD ParsePict( cPicture ) CLASS Get
cNum := Str( ::VarGet() )
if ( nAt := At( iif( ::lDecRev, ",", "." ), cNum ) ) > 0
::cPicMask := Replicate( '9', nAt - 1 ) + iif( ::lDecRev, ",", "." )
::cPicMask += Replicate( '9', Len( cNum ) - Len( ::cPicMask ) )
::cPicMask := Replicate( "9", nAt - 1 ) + iif( ::lDecRev, ",", "." )
::cPicMask += Replicate( "9", Len( cNum ) - Len( ::cPicMask ) )
else
::cPicMask := Replicate( '9', Len( cNum ) )
::cPicMask := Replicate( "9", Len( cNum ) )
endif
case ::type == "C" .and. ::cPicFunc == "@9"
::cPicMask := Replicate( "9", Len( ::VarGet() ) )
::cPicFunc := ""
endcase
endif
@@ -340,7 +344,7 @@ METHOD ParsePict( cPicture ) CLASS Get
endif
endif
return ::cPicFunc + ' ' + ::cPicMask
return ::cPicFunc + " " + ::cPicMask
//---------------------------------------------------------------------------//