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

@@ -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);

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;
 
 

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;

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]);

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