From 68a6231d1195253905bc11b4c97cbcbf9cc2cf74 Mon Sep 17 00:00:00 2001 From: bal Date: Wed, 12 Sep 1984 13:21:43 +0000 Subject: [PATCH] pem did not generate a register message for var-parameters of 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. --- lang/pc/pem/pem.p | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lang/pc/pem/pem.p b/lang/pc/pem/pem.p index 14f98c912..9c4472fd0 100644 --- a/lang/pc/pem/pem.p +++ b/lang/pc/pem/pem.p @@ -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 -- 2.34.1