d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

pem did not generate a register message for var-parameters of

Browse source 
array- or record type. The routine "treewalk" is modified.
It generates a register message for every var-parameter, even
if it has its noreg-flag set.
This commit is contained in:
bal 1984-09-12 13:21:43 +00:00
parent ebed9d4804
commit 68a6231d11
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lang/pc/pem/pem.p
View file

@ -1236,7 +1236,8 @@ begin
begin if not (used in fip^.iflag) then errid(-(+019),fip^.name);
if not (assigned in fip^.iflag) then errid(-(+020),fip^.name);
lsp:=fip^.idtype;
if level<>1 then if not (noreg in fip^.iflag) then
if level<>1 then
if (refer in fip^.iflag) or not (noreg in fip^.iflag) then
if (refer in fip^.iflag) or formof(lsp,[pointer]) then
genreg(sz_addr,fip^.vpos.ad,reg_pointer)
else