paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 02:59:21 +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} {read}
function openfile:boolean; function openfile:boolean;
procedure reloadbuf; procedure reloadbuf;
procedure readdata(var b;len:integer); procedure readdata(out b;len:integer);
procedure skipdata(len:integer); procedure skipdata(len:integer);
function readentry:byte; function readentry:byte;
function EndOfEntry:boolean; function EndOfEntry:boolean;
function entrysize:longint; function entrysize:longint;
function entryleft:longint; function entryleft:longint;
procedure getdatabuf(var b;len:integer;var res:integer); procedure getdatabuf(out b;len:integer;out res:integer);
procedure getdata(var b;len:integer); procedure getdata(out b;len:integer);
function getbyte:byte; function getbyte:byte;
function getword:word; function getword:word;
function getdword:dword; function getdword:dword;
@ -311,8 +311,8 @@ type
function getrealsize(sizeofreal : longint):ppureal; function getrealsize(sizeofreal : longint):ppureal;
function getstring:string; function getstring:string;
function getansistring:ansistring; function getansistring:ansistring;
procedure getnormalset(var b); procedure getnormalset(out b);
procedure getsmallset(var b); procedure getsmallset(out b);
function skipuntilentry(untilb:byte):boolean; function skipuntilentry(untilb:byte):boolean;
{write} {write}
function createfile:boolean; function createfile:boolean;
@ -528,7 +528,7 @@ begin
end; end;
procedure tppufile.readdata(var b;len:integer); procedure tppufile.readdata(out b;len:integer);
var var
p,pbuf : pchar; p,pbuf : pchar;
left : integer; left : integer;
@ -623,7 +623,7 @@ begin
end; end;
procedure tppufile.getdatabuf(var b;len:integer;var res:integer); procedure tppufile.getdatabuf(out b;len:integer;out res:integer);
begin begin
if entryidx+len>entry.size then if entryidx+len>entry.size then
res:=entry.size-entryidx res:=entry.size-entryidx
@ -634,7 +634,7 @@ begin
end; end;
procedure tppufile.getdata(var b;len:integer); procedure tppufile.getdata(out b;len:integer);
begin begin
if entryidx+len>entry.size then if entryidx+len>entry.size then
begin begin
@ -957,7 +957,7 @@ begin
end; end;
procedure tppufile.getsmallset(var b); procedure tppufile.getsmallset(out b);
var var
i : longint; i : longint;
begin begin
@ -968,7 +968,7 @@ begin
end; end;
procedure tppufile.getnormalset(var b); procedure tppufile.getnormalset(out b);
var var
i : longint; i : longint;
begin begin