paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:51:56 +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;
end;
{$warnings off}
function TResourceStream.Write(const Buffer; Count: Longint): Longint;
begin
raise EStreamError.Create(SCantWriteResourceStreamError);
end;
{$warnings on}
{****************************************************************************}
{* TOwnerStream *}

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

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