From 3c3d74f39aef2835c0cf12e1eecce4c42ad6a929 Mon Sep 17 00:00:00 2001 From: Brian Hays Date: Fri, 21 Dec 2001 08:41:52 +0000 Subject: [PATCH] 2001-12-21 00:48 UTC-0800 Brian Hays --- harbour/ChangeLog | 8 +++++++- harbour/source/rtl/persist.prg | 8 ++++---- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9893bbad7c..9ac89892cf 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -7,6 +7,12 @@ For example: 2002-12-01 23:12 UTC+0100 Foo Bar */ + * source/rtl/Makefile +2001-12-21 00:48 UTC-0800 Brian Hays + * 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 * 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 * include/hbdefs.h * HB_EXPORT definition for Borland C diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg index fc24f82caa..bc58509cb2 100644 --- a/harbour/source/rtl/persist.prg +++ b/harbour/source/rtl/persist.prg @@ -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"