From b671136060c209e0e120fe42fe7ac7c74cf14084 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 8 Apr 1988 09:46:04 +0000
Subject: [PATCH] don't generate HOL's of zero size

---
 lang/pc/pem/pem.p | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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}
-- 
2.34.1