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

+ added method TCGPara.locations_count

Browse Source 
git-svn-id: trunk@24530 -
This commit is contained in:
nickysn 2013-05-19 18:37:55 +00:00
parent b9084a22ca
commit 3e22ec43b5
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/parabase.pas
View File

@ -72,6 +72,8 @@ unit parabase;
register : tregister);
end;
{ TCGPara }
TCGPara = object
Def : tdef; { Type of the parameter }
Location : PCGParalocation;
@ -88,6 +90,7 @@ unit parabase;
procedure check_simple_location;
function add_location:pcgparalocation;
procedure get_location(var newloc:tlocation);
function locations_count:integer;
procedure buildderef;
procedure deref;
@ -257,6 +260,20 @@ implementation
end;
function TCGPara.locations_count: integer;
var
hlocation: pcgparalocation;
begin
result:=0;
hlocation:=location;
while assigned(hlocation) do
begin
inc(result);
hlocation:=hlocation^.next;
end;
end;
procedure TCGPara.buildderef;
begin
defderef.build(def);