From: bal <none@none>
Date: Wed, 12 Sep 1984 13:21:43 +0000 (+0000)
Subject: pem did not generate a register message for var-parameters of
X-Git-Tag: release-5-5~6098
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=68a6231d1195253905bc11b4c97cbcbf9cc2cf74;p=ack.git

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.
---

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