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

2001-12-21 00:48 UTC-0800 Brian Hays <bhays@abacuslaw.com>

Browse Source
This commit is contained in:
Brian Hays
2001-12-21 08:41:52 +00:00
parent 95413dbde4
commit 3c3d74f39a
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -7,6 +7,12 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/rtl/Makefile
2001-12-21 00:48 UTC-0800 Brian Hays <bhays@abacuslaw.com>
* source/rtl/persist.prg
* added type test to SaveToText() to avoid errors on
non-initialized Properties
2001-12-20 15:40 UTC-0500 David G. Holm <dholm@jsd-llc.com>
* include/hbdefs.h
! RSXNT doesn't support any type of inline export declaration.
@@ -15,7 +21,7 @@
* include/hbdefs.h
* Added "&& defined( HB_OS_WIN_32 )" to the #elif that tests for
__GNUC__ when deciding how to #define HB_EXPORT.
2001-12-20 13:53 UTC+0100 Antonio Linares <alinares@fivetech.com>
* include/hbdefs.h
* HB_EXPORT definition for Borland C

8
harbour/source/rtl/persist.prg
View File

@@ -115,7 +115,7 @@ return .T.
METHOD SaveToText( cObjectName ) CLASS HBPersistent
local oNew := &( ::ClassName() + "()" ):CreateNew()
local aProperties, n, uValue, cObject, cType
local aProperties, n, uValue, uNewValue, cObject, cType
static nIndent := -3
@@ -130,10 +130,10 @@ METHOD SaveToText( cObjectName ) CLASS HBPersistent
for n := 1 to Len( aProperties )
uValue := __objSendMsg( Self, aProperties[ n ] )
uNewValue := __objSendMsg( oNew, aProperties[ n ] )
cType := ValType( uValue )
if ! uValue == __objSendMsg( oNew, aProperties[ n ] )
cType := ValType( uValue )
if cType == ValType( uNewValue ) .AND. ! uValue == uNewValue
do case
case cType == "A"