Explorar o código

* Small fix in GetConversionInfo (result was not fully cleared)

sg %!s(int64=21) %!d(string=hai) anos
pai
achega
f1ed1952b2
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      fcl/net/mkxmlrpc.pp

+ 5 - 2
fcl/net/mkxmlrpc.pp

@@ -250,7 +250,7 @@ type
     s: String;
     s: String;
     ArraySizeProp: TPasProperty;
     ArraySizeProp: TPasProperty;
   begin
   begin
-    SetLength(Result.ConverterName, 0);
+    FillChar(Result, SizeOf(Result), 0);
     Result.ArgIsParent := False;
     Result.ArgIsParent := False;
 
 
     if Element.ClassType = TPasProperty then
     if Element.ClassType = TPasProperty then
@@ -871,7 +871,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2003-11-22 12:08:32  sg
+  Revision 1.5  2004-02-02 16:53:07  sg
+  * Small fix in GetConversionInfo (result was not fully cleared)
+
+  Revision 1.4  2003/11/22 12:08:32  sg
   * Better error reporting with line numbers
   * Better error reporting with line numbers
   * Array properties: The size property now can just match the name of the
   * Array properties: The size property now can just match the name of the
     array property as well; so it now also works without a plural "s" after
     array property as well; so it now also works without a plural "s" after