From e0bb0bd04f1c5a4a2958168fa9959e3301c78042 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 4 Oct 2010 10:30:19 +0000
Subject: [PATCH] suppress various warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1333 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_soap_formatter.pas   | 10 ++++++++--
 wst/trunk/base_xmlrpc_formatter.pas |  2 ++
 wst/trunk/config_objects.pas        |  2 +-
 wst/trunk/object_serializer.pas     |  6 ++++++
 4 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/wst/trunk/base_soap_formatter.pas b/wst/trunk/base_soap_formatter.pas
index bd08dce45..ab4849825 100644
--- a/wst/trunk/base_soap_formatter.pas
+++ b/wst/trunk/base_soap_formatter.pas
@@ -111,8 +111,9 @@ type
 
   TScopedArrayStackItem = class(TAbstractArrayStackItem)
   protected
-    destructor Destroy();override;
     function CreateList(const ANodeName : string):TDOMNodeList;override;
+  public
+    destructor Destroy();override;
   end;
 
   { TEmbeddedArrayStackItem }
@@ -643,8 +644,10 @@ begin
   case AStyle of
     asScoped  : Result := FStack.Push(TScopedArrayStackItem.Create(AScopeObject,stArray,AItemName)) as TStackItem;
     asEmbeded : Result := FStack.Push(TEmbeddedArrayStackItem.Create(AScopeObject,stArray,AItemName)) as TStackItem;
-    else
+    else begin
       Assert(False);
+      Result := nil;
+    end;
   end;
 end;
 
@@ -1480,6 +1483,7 @@ begin
   if ( AScopeType = stObject ) or
      ( ( AScopeType = stArray ) and ( AStyle = asScoped ) )
   then begin
+    addAtt := False;
     scpStr := AScopeName;
     hasNmspc := Not IsStrEmpty(ANameSpace);
     If hasNmspc Then Begin
@@ -1980,6 +1984,8 @@ begin
           otUWord : enumData := Word(AData);
           otSLong : enumData := LongInt(AData);
           otULong : enumData := LongWord(AData);
+          else
+            enumData := 0;   
         end;
         dataBuffer := IntToStr(enumData);
       end;
diff --git a/wst/trunk/base_xmlrpc_formatter.pas b/wst/trunk/base_xmlrpc_formatter.pas
index 11f94c511..3adb8f4f0 100644
--- a/wst/trunk/base_xmlrpc_formatter.pas
+++ b/wst/trunk/base_xmlrpc_formatter.pas
@@ -1600,6 +1600,8 @@ begin
           otUWord : enumData := Word(AData);
           otSLong : enumData := LongInt(AData);
           otULong : enumData := LongWord(AData);
+          else
+            enumData := 0;
         end;
         dataBuffer := IntToStr(enumData);
       end;
diff --git a/wst/trunk/config_objects.pas b/wst/trunk/config_objects.pas
index 8ac1737e9..f5916f0d8 100644
--- a/wst/trunk/config_objects.pas
+++ b/wst/trunk/config_objects.pas
@@ -171,12 +171,12 @@ var
   frmt : IFormatterBase;
   createdHere : Boolean;
 begin
+  createdHere := ( AConfigObj = nil );
   if ( AConfigObj <> nil ) then
     locObj := AConfigObj
   else
     locObj := wst_CreateDefaultConfigObject();
   try
-    createdHere := ( AConfigObj = nil );
     frmt := TSOAPBaseFormatter.Create();
     frmt.SetSerializationStyle(ssNodeSerialization);
     frmt.BeginObject(sAPPLICATION,TypeInfo(TWstConfigurationObject));
diff --git a/wst/trunk/object_serializer.pas b/wst/trunk/object_serializer.pas
index ef8f1227c..58ba39df5 100644
--- a/wst/trunk/object_serializer.pas
+++ b/wst/trunk/object_serializer.pas
@@ -197,6 +197,7 @@ implementation
 uses
   wst_consts;
 
+{$HINTS OFF}
 function ErrorFunc(
     AObject : TObject;
     APropInfo : TPropSerializationInfo;
@@ -214,6 +215,7 @@ procedure ErrorProc(
 begin
   raise Exception.CreateFmt(SERR_NoReaderProc,[APropInfo.Name,APropInfo.PropInfo^.Name]);
 end;
+{$HINTS ON}
 
 type
   TEnumBuffer = record
@@ -288,6 +290,7 @@ var
   floatDt : TFloatExtendedType;
   pt : PTypeInfo;
 begin
+  floatDt := 0;
   floatBuffer.ExtendedData := 0;
   propName := APropInfo.ExternalName;
   pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
@@ -343,6 +346,7 @@ var
   boolData : Boolean;
 {$ENDIF WST_DELPHI}
 begin
+  int64Data := 0;
   propName := APropInfo.ExternalName;
   pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
 {$IFDEF WST_DELPHI}
@@ -521,6 +525,7 @@ var
   floatDt : TFloatExtendedType;
   pt : PTypeInfo;
 begin
+  floatDt := 0;
   floatBuffer.ExtendedData := 0;
   propName := APropInfo.ExternalName;
   pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
@@ -592,6 +597,7 @@ var
   boolData : Boolean;
 {$ENDIF WST_DELPHI}
 begin
+  int64Data := 0;
   propName := APropInfo.ExternalName;
   pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
 {$IFDEF WST_DELPHI}