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