From 65048fc5be02ae423bf78d33ab04440b3a907ded Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 8 Feb 1997 21:35:06 +0000
Subject: [PATCH] VOPS make-unwind-block, and make-catch-block: the code slot
 is unused, so fill with 0 else random garbage will be seen when read.

---
 compiler/x86/nlx.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/x86/nlx.lisp b/compiler/x86/nlx.lisp
index 6cde54f1d..e27299c44 100644
--- a/compiler/x86/nlx.lisp
+++ b/compiler/x86/nlx.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.1 1997/01/18 14:31:22 ram Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.2 1997/02/08 21:35:06 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,7 @@
 ;;; Written by William Lott.
 ;;;
 ;;; Debugged by Paul F. Werkowski Spring/Summer 1995.
+;;; Enhancements/debugging by Douglas T. Crosher 1996.
 ;;;
 (in-package :x86)
 
@@ -100,6 +101,8 @@
     (load-symbol-value temp lisp::*current-unwind-protect-block*)
     (storew temp block unwind-block-current-uwp-slot)
     (storew ebp-tn block unwind-block-current-cont-slot)
+    ;; The code slot is unused - fill with 0.
+    (storew 0 block vm:unwind-block-current-code-slot)
     (inst lea temp (make-fixup nil :code-object entry-label))
     (storew temp block catch-block-entry-pc-slot)))
 
@@ -118,6 +121,8 @@
     (load-symbol-value temp lisp::*current-unwind-protect-block*)
     (storew temp block  unwind-block-current-uwp-slot)
     (storew ebp-tn block  unwind-block-current-cont-slot)
+    ;; The code slot is unused - fill with 0.
+    (storew 0 block vm:catch-block-current-code-slot)
     (inst lea temp (make-fixup nil :code-object entry-label))
     (storew temp block  catch-block-entry-pc-slot)
     (storew tag block catch-block-tag-slot)
-- 
GitLab