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

* getrange parameters from "var" to "out"

Browse Source 
git-svn-id: trunk@5786 -
This commit is contained in:
Jonas Maebe 2007-01-02 18:16:56 +00:00
parent 98d6014c73
commit 912e1e13eb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/defutil.pas
View File

@ -206,7 +206,7 @@ interface
{# Returns the range of def, where @var(l) is the low-range and @var(h) is
the high-range.
}
procedure getrange(def : tdef;var l : TConstExprInt;var h : TConstExprInt);
procedure getrange(def : tdef;out l, h : TConstExprInt);
{ type being a vector? }
function is_vector(p : tdef) : boolean;
@ -759,7 +759,7 @@ implementation
{ return the range from def in l and h }
procedure getrange(def : tdef;var l : TConstExprInt;var h : TConstExprInt);
procedure getrange(def : tdef;out l, h : TConstExprInt);
begin
case def.typ of
orddef :