paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +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 {# Returns the range of def, where @var(l) is the low-range and @var(h) is
the high-range. 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? } { type being a vector? }
function is_vector(p : tdef) : boolean; function is_vector(p : tdef) : boolean;
@ -759,7 +759,7 @@ implementation
{ return the range from def in l and h } { 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 begin
case def.typ of case def.typ of
orddef : orddef :