pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Suppress warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@610 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-11-24 15:42:58 +00:00
parent a43bb35944
commit e2e80eac2d
2 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@ -256,7 +256,6 @@ begin
if not AEltNode.HasChildNodes() then begin; if not AEltNode.HasChildNodes() then begin;
raise EXsdParserException.Create('Invalid type definition, this element must have children.'); raise EXsdParserException.Create('Invalid type definition, this element must have children.');
end; end;
Result := nil;
typName := ATypeName; typName := ATypeName;
if IsStrEmpty(typName) then begin if IsStrEmpty(typName) then begin
typName := ExtractTypeName(); typName := ExtractTypeName();

1
wst/trunk/wst_delphi_rtti_utils.pas
View File

@ -12,7 +12,6 @@ function GetEnumNameCount(AEnumTypeInfo: PTypeInfo): Integer;
var var
T: PTypeData; T: PTypeData;
begin begin
Result := 0;
T := GetTypeData(AEnumTypeInfo); T := GetTypeData(AEnumTypeInfo);
Result := ( T^.MaxValue - T^.MinValue ) + 1; Result := ( T^.MaxValue - T^.MinValue ) + 1;
end; end;