xtm-dump-asm   macro


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/udis86.xtm

Implementation

(define-macro (xtm-dump-asm fname)
  (if (string? fname) (set! fname (string->symbol fname)))
  (let ((n (llvm:get-closure-work-name (symbol->string fname))))
    (if n
        `(xtm_asm_dump ,n 1024)
        `(begin (println "No such XTM function") #f))))


Back to Index