* fixed warning and note while compiling RTL.

git-svn-id: trunk@4265 -

rtl/objpas/classes/streams.inc

@@ -756,11 +756,12 @@ destructor TResourceStream.Destroy;
     inherited destroy;
   end;
 
-
+{$warnings off}
 function TResourceStream.Write(const Buffer; Count: Longint): Longint;
   begin
     raise EStreamError.Create(SCantWriteResourceStreamError);
   end;
+{$warnings on}
 
 {****************************************************************************}
 {*                             TOwnerStream                                 *}

rtl/objpas/sysutils/dati.inc

@@ -433,8 +433,7 @@ var
 
    function GetElement: integer;
    var
-     j: integer;
-     c: word;
+     j, c: integer;
    begin
    result := -1;
    Inc(Current);