From e2e80eac2db005331f6a06a34123268bae3169ee Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 24 Nov 2008 15:42:58 +0000
Subject: [PATCH] Suppress warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/ws_parser_imp.pas | 1 -
 wst/trunk/wst_delphi_rtti_utils.pas   | 1 -
 2 files changed, 2 deletions(-)

diff --git a/wst/trunk/ws_helper/ws_parser_imp.pas b/wst/trunk/ws_helper/ws_parser_imp.pas
index a2f7bca52..79d4bcbe8 100644
--- a/wst/trunk/ws_helper/ws_parser_imp.pas
+++ b/wst/trunk/ws_helper/ws_parser_imp.pas
@@ -256,7 +256,6 @@ begin
   if not AEltNode.HasChildNodes() then begin;
     raise EXsdParserException.Create('Invalid type definition, this element must have children.');
   end;
-  Result := nil;
   typName := ATypeName;
   if IsStrEmpty(typName) then begin
     typName := ExtractTypeName();
diff --git a/wst/trunk/wst_delphi_rtti_utils.pas b/wst/trunk/wst_delphi_rtti_utils.pas
index b4862744e..0470412b1 100644
--- a/wst/trunk/wst_delphi_rtti_utils.pas
+++ b/wst/trunk/wst_delphi_rtti_utils.pas
@@ -12,7 +12,6 @@ function GetEnumNameCount(AEnumTypeInfo: PTypeInfo): Integer;
 var
   T: PTypeData;
 begin
-  Result := 0;
   T :=  GetTypeData(AEnumTypeInfo);
   Result := ( T^.MaxValue - T^.MinValue ) + 1;
 end;