pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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); AddObj(AOwner,Result);
Except Except
Freemem(Result,resLen); Freemem(Result,resLen);
Result := nil;
Raise; Raise;
End; End;
end; end;
@ -668,7 +667,6 @@ begin
AddObj(AOwner,Result); AddObj(AOwner,Result);
Except Except
Freemem(Result,resLen); Freemem(Result,resLen);
Result := nil;
Raise; Raise;
End; End;
end; end;

1
wst/trunk/basex_encode.pas
View File

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

1
wst/trunk/indy_tcp_protocol.pas
View File

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

1
wst/trunk/metadata_repository.pas
View File

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

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

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

1
wst/trunk/wst_resources_imp.pas
View File

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

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

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