paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 21:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use out parameter type for tppufile.getXXX methods

Browse Source 
git-svn-id: trunk@19586 -
This commit is contained in:
pierre 2011-11-03 11:09:34 +00:00
parent 362a3c8beb
commit 019ecd53fe
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/ppu.pas
View File

@ -290,14 +290,14 @@ type
{read}
function openfile:boolean;
procedure reloadbuf;
procedure readdata(var b;len:integer);
procedure readdata(out b;len:integer);
procedure skipdata(len:integer);
function readentry:byte;
function EndOfEntry:boolean;
function entrysize:longint;
function entryleft:longint;
procedure getdatabuf(var b;len:integer;var res:integer);
procedure getdata(var b;len:integer);
procedure getdatabuf(out b;len:integer;out res:integer);
procedure getdata(out b;len:integer);
function getbyte:byte;
function getword:word;
function getdword:dword;
@ -311,8 +311,8 @@ type
function getrealsize(sizeofreal : longint):ppureal;
function getstring:string;
function getansistring:ansistring;
procedure getnormalset(var b);
procedure getsmallset(var b);
procedure getnormalset(out b);
procedure getsmallset(out b);
function skipuntilentry(untilb:byte):boolean;
{write}
function createfile:boolean;
@ -528,7 +528,7 @@ begin
end;
procedure tppufile.readdata(var b;len:integer);
procedure tppufile.readdata(out b;len:integer);
var
p,pbuf : pchar;
left : integer;
@ -623,7 +623,7 @@ begin
end;
procedure tppufile.getdatabuf(var b;len:integer;var res:integer);
procedure tppufile.getdatabuf(out b;len:integer;out res:integer);
begin
if entryidx+len>entry.size then
res:=entry.size-entryidx
@ -634,7 +634,7 @@ begin
end;
procedure tppufile.getdata(var b;len:integer);
procedure tppufile.getdata(out b;len:integer);
begin
if entryidx+len>entry.size then
begin
@ -957,7 +957,7 @@ begin
end;
procedure tppufile.getsmallset(var b);
procedure tppufile.getsmallset(out b);
var
i : longint;
begin
@ -968,7 +968,7 @@ begin
end;
procedure tppufile.getnormalset(var b);
procedure tppufile.getnormalset(out b);
var
i : longint;
begin