Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    78eb5a7b
    Fix tracing for NetBSD. Function end breakpoints didn't seem to be · 78eb5a7b
    rtoy authored
    working when tracing, for example
    
    (declaim (ftype (function (double-float) double-float) fact))
    (defun fact (x)
      (declare (double-float x))
      (if (= x 1)
          1d0
          (* x (fact (1- x)))))
    
    
    lisp/x86-lispregs.h
    o NetBSD has access to the eflags register
    
    lisp/x86-arch.c:
    o Add some debugging prints (disabled).
    o The stuff near line 262 about pc-9 pointing to the pushf instruction
      should be conditioned on SC_EFLAGS because that's what decides
      whether we insert the pushf instructions for single stepping.
    78eb5a7b
    History
    Fix tracing for NetBSD. Function end breakpoints didn't seem to be
    rtoy authored
    working when tracing, for example
    
    (declaim (ftype (function (double-float) double-float) fact))
    (defun fact (x)
      (declare (double-float x))
      (if (= x 1)
          1d0
          (* x (fact (1- x)))))
    
    
    lisp/x86-lispregs.h
    o NetBSD has access to the eflags register
    
    lisp/x86-arch.c:
    o Add some debugging prints (disabled).
    o The stuff near line 262 about pc-9 pointing to the pushf instruction
      should be conditioned on SC_EFLAGS because that's what decides
      whether we insert the pushf instructions for single stepping.