Suppress warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-11-24 15:42:58 +00:00
parent a43bb35944
commit e2e80eac2d
2 changed files with 0 additions and 2 deletions
--- 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;