paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

suppress various warnings/hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1372 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-11-08 14:26:03 +00:00
parent eee543f190
commit 1c255f37a7
7 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/base_binary_formatter.pas
View File

@ -634,7 +634,6 @@ begin
AddObj(AOwner,Result);
Except
Freemem(Result,resLen);
Result := nil;
Raise;
End;
end;
@ -668,7 +667,6 @@ begin
AddObj(AOwner,Result);
Except
Freemem(Result,resLen);
Result := nil;
Raise;
End;
end;

1
wst/trunk/basex_encode.pas
View File

@ -337,6 +337,7 @@ begin
locInIndex := 0;
locAtualLen := 0;
locPadded := 0;
locInValue := 0;
locInLen := Length(AInBuffer);
SetLength(Result,locInLen);
locBuffer := @(AInBuffer[1]);

1
wst/trunk/indy_tcp_protocol.pas
View File

@ -141,7 +141,6 @@ begin
Connect();
FConnection.IOHandler.Write(buffStream,buffStream.Size,False);
bufferLen := 0;
bufferLen := FConnection.IOHandler.ReadLongInt(False);
bufferLen := Reverse_32(bufferLen);
if not HasFilter() then begin

1
wst/trunk/metadata_repository.pas
View File

@ -796,7 +796,6 @@ var
i : Integer;
rp : PServiceRepository;
begin
Result := nil;
i := FindInnerListIndex(ARepName);
if ( i < 0 ) then
i := InternalLoadRepository(ARepName);

2
wst/trunk/ws_helper/xsd_parser.pas
View File

@ -675,7 +675,7 @@ end;
procedure TCustomXsdSchemaParser.CreateImportParsers();
var
crsSchemaChild, typTmpCrs : IObjectCursor;
crsSchemaChild : IObjectCursor;
strFilter, locFileName, locNameSpace : string;
importNode : TDOMElement;
importDoc : TXMLDocument;

1
wst/trunk/wst_resources_imp.pas
View File

@ -219,7 +219,6 @@ Var
Function GetWSTResourceManager(Force : Boolean = True) : TWSTResourceManager;
begin
Result:=ResMGR;
If (ResMgr=Nil) and Force then
ResMGr:=TCollectionResourceManager.Create;
Result:=ResMGR;

12
wst/trunk/wst_rtti_filter/rtti_filters.pas
View File

@ -565,8 +565,10 @@ begin
nfoNotEqual : Result := ( GetOrdProp(AInstance,PropInfo) <> ComparedValue );
nfoGreaterOrEqual : Result := ( GetOrdProp(AInstance,PropInfo) >= ComparedValue );
nfoLesserOrEqual : Result := ( GetOrdProp(AInstance,PropInfo) <= ComparedValue );
else
else begin
Assert(False);
Result := False;
end;
end;
end;
@ -802,8 +804,10 @@ begin
sfoEqualCaseSensitive : Result := ( GetStrProp(AInstance,PropInfo) = ComparedValue );
sfoEqualCaseInsensitive : Result := AnsiSameText(GetStrProp(AInstance,PropInfo),ComparedValue);
sfoNotEqual : Result := ( GetStrProp(AInstance,PropInfo) <> ComparedValue);
else
else begin
Assert(False);
Result := False;
end;
end;
end;
@ -828,8 +832,10 @@ begin
sfoEqualCaseSensitive : Result := ( GetWideStrProp(AInstance,PropInfo) = ComparedValue );
sfoEqualCaseInsensitive : Result := ( LowerCase(GetWideStrProp(AInstance,PropInfo)) = LowerCase(ComparedValue) );
sfoNotEqual : Result := not SameText(GetWideStrProp(AInstance,PropInfo),ComparedValue);
else
else begin
Assert(False);
Result := False;
end;
end;
end;