Skip to content
Snippets Groups Projects
Commit 65048fc5 authored by dtc's avatar dtc
Browse files

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.
parent d48a4918
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment