paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 18:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed warning and note while compiling RTL.

Browse Source 
git-svn-id: trunk@4265 -
This commit is contained in:
yury 2006-07-20 12:31:58 +00:00
parent 58cbcae50b
commit 82b74ffc64
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/streams.inc
View File

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

3
rtl/objpas/sysutils/dati.inc
View File

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