From 056046f5308642c5152396a875b71cf5c91806c5 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 28 Jul 2008 17:41:26 +0000
Subject: [PATCH] Suppress compiler warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_service_intf.pas   | 2 --
 wst/trunk/metadata_repository.pas | 3 +--
 wst/trunk/record_rtti.pas         | 2 +-
 wst/trunk/semaphore.pas           | 2 ++
 wst/trunk/service_intf.pas        | 6 +++---
 5 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas
index a8faceefa..39861ed06 100644
--- a/wst/trunk/base_service_intf.pas
+++ b/wst/trunk/base_service_intf.pas
@@ -2833,7 +2833,6 @@ begin
     try
       if not Assigned(AObject) then
         AObject := Create();
-      nativObj := nil;
       nativObj := AObject as TBaseSimpleTypeArrayRemotable;
       if ( len >= 0 ) then begin
         nativObj.SetLength(len);
@@ -4619,7 +4618,6 @@ var
     s : shortstring;
   begin
     neg := False;
-    Result := 0;
 
     while ( bufferPos <= bufferLen ) and ( buffer[bufferPos] < #33 ) do begin
       Inc(bufferPos);
diff --git a/wst/trunk/metadata_repository.pas b/wst/trunk/metadata_repository.pas
index 4a9bef3e5..fccc70175 100644
--- a/wst/trunk/metadata_repository.pas
+++ b/wst/trunk/metadata_repository.pas
@@ -371,7 +371,6 @@ var
   ps : PService;
 begin
   ARepository := nil;
-  Result := 0;
   rdr := CreateBinaryReader(AStream);
   buf := rdr.ReadStr();
   if ( sWST_SIGNATURE <> buf ) then
@@ -393,11 +392,11 @@ begin
         Inc(ps);
       end;
     end;
-    Result := c;
   except
     ClearRepositoryData(ARepository);
     raise;
   end;
+  Result := c;
 end;
 
 
diff --git a/wst/trunk/record_rtti.pas b/wst/trunk/record_rtti.pas
index b57651f74..97d93f30a 100644
--- a/wst/trunk/record_rtti.pas
+++ b/wst/trunk/record_rtti.pas
@@ -287,7 +287,7 @@ constructor TRecordRttiDataObject.Create(
 );
 var
   locData : PRecordTypeData;
-  i : PtrInt;
+  i : PtrUInt;
   ls, s : string;
 begin
   locData := AData;
diff --git a/wst/trunk/semaphore.pas b/wst/trunk/semaphore.pas
index 6429128e7..94f5f1885 100644
--- a/wst/trunk/semaphore.pas
+++ b/wst/trunk/semaphore.pas
@@ -65,8 +65,10 @@ implementation
 { TSemaphoreObject }
 
 constructor TSemaphoreObject.Create(const ALimit: Integer);
+{$IFDEF FPC_TM}
 var
   i : PtrInt;
+{$ENDIF}  
 begin
   if ( ALimit < 1 ) then
     raise ESemaphoreException.CreateFmt('Invalid semaphore maximum count : %d.',[ALimit]);
diff --git a/wst/trunk/service_intf.pas b/wst/trunk/service_intf.pas
index 859e990c8..a1b5efd13 100644
--- a/wst/trunk/service_intf.pas
+++ b/wst/trunk/service_intf.pas
@@ -392,7 +392,7 @@ Type
   private
     FList : TObjectList;
     function IndexOf(Const AName : string ):Integer;
-    procedure Clear();
+    //procedure Clear();
     function GetCount():Integer;
     function GetItem(const AIndex:Integer): TFormatterFactoryRegistryItem;
   protected
@@ -487,10 +487,10 @@ begin
   Result := -1;
 end;
 
-procedure TFormatterRegistry.Clear();
+{procedure TFormatterRegistry.Clear();
 begin
   FList.Clear();
-end;
+end;}
 
 function TFormatterRegistry.GetCount(): Integer;
 begin