paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

- Removed unused variable

Browse Source 
- Removed inline directive (formal arguments are unsupported and only cause compiler noise)

git-svn-id: trunk@17988 -
This commit is contained in:
sergei 2011-07-13 22:14:39 +00:00
parent b156dc5ad9
commit 35a2ed9a6c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/lnfodwrf.pp
View File

@ -213,7 +213,6 @@ end;
function ReadNext() : Longint; inline; function ReadNext() : Longint; inline;
var var
bytesread : SizeInt; bytesread : SizeInt;
b : Byte;
begin begin
ReadNext := -1; ReadNext := -1;
if EBufPos >= EBufCnt then begin if EBufPos >= EBufCnt then begin
@ -236,7 +235,7 @@ end;
{ Reads the next size bytes into dest. Returns true if successful, { Reads the next size bytes into dest. Returns true if successful,
false otherwise. Note that dest may be partially overwritten after false otherwise. Note that dest may be partially overwritten after
returning false. } returning false. }
function ReadNext(var dest; size : SizeInt) : Boolean; inline; function ReadNext(var dest; size : SizeInt) : Boolean;
var var
bytesread, totalread : SizeInt; bytesread, totalread : SizeInt;
r: Boolean; r: Boolean;