impc:ir:compile:eval-var   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/llvmir.xtm

Implementation

(define impc:ir:compile:eval-var
  (lambda (var t)
    (let* ((os (make-string 0)))
      (let ((typestr (impc:ir:get-type-str t)))
        (emit (impc:ir:gname "val" typestr)
              " = load " typestr ", " typestr
              "* %" (symbol->string var) "Ptr\n" os)
        (impc:ir:strip-space os)))))


Back to Index