From: ceriel <none@none>
Date: Fri, 8 Apr 1988 09:46:04 +0000 (+0000)
Subject: don't generate HOL's of zero size
X-Git-Tag: release-5-5~3482
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b671136060c209e0e120fe42fe7ac7c74cf14084;p=ack.git

don't generate HOL's of zero size
---

diff --git a/lang/pc/pem/pem.p b/lang/pc/pem/pem.p
index af5ff848f..77faff767 100644
--- a/lang/pc/pem/pem.p
+++ b/lang/pc/pem/pem.p
@@ -1392,7 +1392,9 @@ begin inita(fsp,negaddr(fsp));
 end;
 
 procedure genhol;
-begin gencst(ps_hol,posaddr(holeb,nil,false));
+  var sz: integer;
+begin sz := posaddr(holeb,nil,false); if sz = 0 then sz := sz_word;
+  gencst(ps_hol,sz);
   if sz_word = 4 then begin put1(sp_cst4); put1(0); put1(0); end
   else put1(sp_cst2);
   put1(0); put1(128);	 	{ 1000000000000000 pattern}