Commit cecbc7f5 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

For exception 98, used to signal an undefined function, use EDX rather

than ECX to carry the offending function name, since ECX isn't a GC root.
parent 5242eb8c
......@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Wed Apr 7 01:50:03 2004
;;;;
;;;; $Id: interrupt.lisp,v 1.1 2004/04/07 00:12:23 ffjeld Exp $
;;;; $Id: interrupt.lisp,v 1.2 2004/04/07 00:34:47 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -215,7 +215,7 @@
(70
(error "[EIP=~@Z] Index ~@Z out of bounds ~@Z for ~S." $eip $ecx $ebx (@ $eax)))
(98
(let ((name (@ $ecx)))
(let ((name (@ $edx)))
(when (symbolp name)
(error 'undefined-function :name name))))
(99
......
......@@ -9,7 +9,7 @@
;;;; Created at: Fri Nov 24 16:31:11 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: special-operators-cl.lisp,v 1.15 2004/04/13 13:07:40 ffjeld Exp $
;;;; $Id: special-operators-cl.lisp,v 1.16 2004/04/13 13:28:26 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -895,7 +895,7 @@ where zot is not in foo's scope, but _is_ in foo's extent."
(:globally (:cmpl (:edi (:edi-offset unbound-function))
,register))
(:je '(:sub-program ()
(:load-constant ,movitz-name :ecx)
(:load-constant ,movitz-name :edx)
(:int 98))))
:modifies nil
:functional-p t
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment