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

Suppress compiler warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-07-28 17:41:26 +00:00
parent 25a4ed79d5
commit 056046f530
5 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/base_service_intf.pas
View File

@ -2833,7 +2833,6 @@ begin
try try
if not Assigned(AObject) then if not Assigned(AObject) then
AObject := Create(); AObject := Create();
nativObj := nil;
nativObj := AObject as TBaseSimpleTypeArrayRemotable; nativObj := AObject as TBaseSimpleTypeArrayRemotable;
if ( len >= 0 ) then begin if ( len >= 0 ) then begin
nativObj.SetLength(len); nativObj.SetLength(len);
@ -4619,7 +4618,6 @@ var
s : shortstring; s : shortstring;
begin begin
neg := False; neg := False;
Result := 0;
while ( bufferPos <= bufferLen ) and ( buffer[bufferPos] < #33 ) do begin while ( bufferPos <= bufferLen ) and ( buffer[bufferPos] < #33 ) do begin
Inc(bufferPos); Inc(bufferPos);

3
wst/trunk/metadata_repository.pas
View File

@ -371,7 +371,6 @@ var
ps : PService; ps : PService;
begin begin
ARepository := nil; ARepository := nil;
Result := 0;
rdr := CreateBinaryReader(AStream); rdr := CreateBinaryReader(AStream);
buf := rdr.ReadStr(); buf := rdr.ReadStr();
if ( sWST_SIGNATURE <> buf ) then if ( sWST_SIGNATURE <> buf ) then
@ -393,11 +392,11 @@ begin
Inc(ps); Inc(ps);
end; end;
end; end;
Result := c;
except except
ClearRepositoryData(ARepository); ClearRepositoryData(ARepository);
raise; raise;
end; end;
Result := c;
end; end;

2
wst/trunk/record_rtti.pas
View File

@ -287,7 +287,7 @@ constructor TRecordRttiDataObject.Create(
); );
var var
locData : PRecordTypeData; locData : PRecordTypeData;
i : PtrInt; i : PtrUInt;
ls, s : string; ls, s : string;
begin begin
locData := AData; locData := AData;

2
wst/trunk/semaphore.pas
View File

@ -65,8 +65,10 @@ implementation
{ TSemaphoreObject } { TSemaphoreObject }
constructor TSemaphoreObject.Create(const ALimit: Integer); constructor TSemaphoreObject.Create(const ALimit: Integer);
{$IFDEF FPC_TM}
var var
i : PtrInt; i : PtrInt;
{$ENDIF}
begin begin
if ( ALimit < 1 ) then if ( ALimit < 1 ) then
raise ESemaphoreException.CreateFmt('Invalid semaphore maximum count : %d.',[ALimit]); raise ESemaphoreException.CreateFmt('Invalid semaphore maximum count : %d.',[ALimit]);

6
wst/trunk/service_intf.pas
View File

@ -392,7 +392,7 @@ Type
private private
FList : TObjectList; FList : TObjectList;
function IndexOf(Const AName : string ):Integer; function IndexOf(Const AName : string ):Integer;
procedure Clear(); //procedure Clear();
function GetCount():Integer; function GetCount():Integer;
function GetItem(const AIndex:Integer): TFormatterFactoryRegistryItem; function GetItem(const AIndex:Integer): TFormatterFactoryRegistryItem;
protected protected
@ -487,10 +487,10 @@ begin
Result := -1; Result := -1;
end; end;
procedure TFormatterRegistry.Clear(); {procedure TFormatterRegistry.Clear();
begin begin
FList.Clear(); FList.Clear();
end; end;}
function TFormatterRegistry.GetCount(): Integer; function TFormatterRegistry.GetCount(): Integer;
begin begin