Custom Query (1030 matches)

See ​http://clozure.com/pipermail/openmcl-devel/2013-January/013968.html

Given

(defun baz (A G H)
  (LABELS ((%F14 (x y z)
             (IF (OR (< -1 -2 (DOTIMES (I 0 (FLET ((%F11 (F11-1 F11-2
                                                                F11-3) 48)) -16))
                                (RETURN-FROM %F14 5)))
                     nil)
               nil
               (COUNT (DPB (COUNT A '(16)) (BYTE 11 0) (RETURN-FROM %F14
                                                         1))
                      #(2)))))
    (%F14 1 0 0)))

calling

(baz 1 2 3)

in the REPL on x8664 reports that (non-volatile) registers were clobbered in the call.

This worked correctly in earlier releases; it seems to have broken around the time that the x86 backend started trying to "elide" speculative push/pop pairs.

See attached transcript, I think this is related to the changes made for 10.8 mentioned on the mailing list.

I tried r15564 which I think is current at the moment.

Clozure CL's documentation mentions a very useful option to trace, :inside

:inside outside-spec | ({outside-spec}*)

Inhibits all trace actions unless the current invocation of the function being traced is inside one of the outside-spec's, i.e. unless a function named by one of the outside-spec's is currently on the stack. outside-spec can name a function, a method, or a package, as above.

However, it doesn't work, neither in trunk nor in 1.8, tried on linuxx86 and darwinx86.

Welcome to Clozure Common Lisp Version 1.9-dev-r15573M-trunk  (DarwinX8632)!
? (defun a ())
A
? (defun b () (a))
B
? (trace :inside b a)
NIL
? (b)
> Error: Too many arguments in call to #<Compiled-function (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) (Non-Global)  #x49B1DDE>:
>        2 arguments provided, at most 1 accepted. 
> While executing: (:INTERNAL CCL::TRACE-INSIDE-FRAME-P), in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :B
*(605C4C) : 0 (FUNCALL #'#<(:INTERNAL CCL::TRACE-INSIDE-FRAME-P)> NIL -335179012) 5
 (605C88) : 1 (%MAP-CALL-FRAMES-INTERNAL #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) #xD0CEF5E> NIL 1578821 536870911 0 NIL) 311
 (605CB4) : 2 (MAP-CALL-FRAMES #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::TRACE-INSIDE-FRAME-P) #xD0CEF5E> :CONTEXT NIL :PROCESS NIL :ORIGIN NIL :COUNT 536870911 :START-FRAME-NUMBER 0 :TEST NIL) 495
 (605D14) : 3 (TRACE-INSIDE-FRAME-P B) 487
 (605D2C) : 4 (FUNCALL #'#<(CCL::TRACED A)>) 151
 (605D3C) : 5 (CALL-CHECK-REGS B) 247
 (605D58) : 6 (TOPLEVEL-EVAL (B) NIL) 711
 (605D98) : 7 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #xC33E06E> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #xC33DF96> :BREAK-LEVEL 0 :PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x44774C6>) 2039
 (605EBC) : 8 (RUN-READ-LOOP :BREAK-LEVEL 0) 183
 (605ED0) : 9 (TOPLEVEL-LOOP) 71
 (605ED8) : 10 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 71
 (605EE8) : 11 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 559
 (605F34) : 12 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #xC33D686> (#<COMPILED-LEXICAL-CLOSURE # #xC33D3BE>)) 639
 (605F78) : 13 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #xC33D686> (#<COMPILED-LEXICAL-CLOSURE # #xC33D3BE>)) 519
 (605FCC) : 14 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 255
1 >