paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 07:19:26 +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;
var
bytesread : SizeInt;
b : Byte;
begin
ReadNext := -1;
if EBufPos >= EBufCnt then begin
@ -236,7 +235,7 @@ end;
{ Reads the next size bytes into dest. Returns true if successful,
false otherwise. Note that dest may be partially overwritten after
returning false. }
function ReadNext(var dest; size : SizeInt) : Boolean; inline;
function ReadNext(var dest; size : SizeInt) : Boolean;
var
bytesread, totalread : SizeInt;
r: Boolean;