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

@@ -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();

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;