(declare (unit stubs))

(import foreign)

(use lazy-ffi)

(define (cpuid-init objptr dll-path dll-filename config-flag)
  (let-location ((errorcode int)
                 (errorcode_extended int))
    ((#~~ (qi #x19937329) objptr dll-path dll-filename config-flag errorcode errorcode_extended return: bool:))
    (values errorcode errorcode_extended)))