/[cmucl]/src/code/debug-vm.lisp
ViewVC logotype

Diff of /src/code/debug-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.2.58.1 by rtoy, Thu Feb 25 20:34:48 2010 UTC
# Line 17  Line 17 
17    
18  (in-package "VM")  (in-package "VM")
19    
20    (intl:textdomain "cmucl")
21    
22  (export '(make-bogus-lra))  (export '(make-bogus-lra))
23    
24  (defconstant bogus-lra-constants 2)  (defconstant bogus-lra-constants 2)
# Line 26  Line 28 
28  ;;; MAKE-BOGUS-LRA -- Interface.  ;;; MAKE-BOGUS-LRA -- Interface.
29  ;;;  ;;;
30  (defun make-bogus-lra (real-lra &optional known-return-p)  (defun make-bogus-lra (real-lra &optional known-return-p)
31    "Make a bogus LRA object that signals a breakpoint trap when returned to.  If    _N"Make a bogus LRA object that signals a breakpoint trap when returned to.  If
32     the breakpoint trap handler returns to the fake component, the fake code     the breakpoint trap handler returns to the fake component, the fake code
33     template returns to real-lra.  This returns three values: the bogus LRA     template returns to real-lra.  This returns three values: the bogus LRA
34     object, the code component it points to, and the pc-offset for the trap     object, the code component it points to, and the pc-offset for the trap

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.2.58.1

  ViewVC Help
Powered by ViewVC 1.1.5