very naive AOT half-baked compiler for unfinished Guile brand new Register VM. It's only a toy since the RTL branch is still is very experimental.

naive-aot.scm

(use-modules (ice-9 match))

(define test
  '((begin-program self1180 ())
    (label kentry1181)
    (begin-kw-arity (x y) () #f () #f 3 #f)
    (label kargs1182)
    (add 1 1 2)
    (label ktail1189)
    (return 1)
    (end-arity)
    (end-program)))

(define *regs*
  '("ax" "cx"))

(define (reg-get n)
  (list-ref *regs* (1- n)))

(define (emit-begin-program name)
  (format #t ".globl~8t.type ~a, @function~%" name)
  (format #t "~a:~%" name))

(define (emit-label id)
  (format #t "~a:~%" id))

(define (emit-nop)
  (format #t "~8tnop~%"))

;; very naive add asm only support registers
(define (emit-add/0 src1 src2)
  (format #t "~8tmov %~a,%ax~%" (reg-get src1))
  (format #t "~8tadd %~a,%ax~%" (reg-get src2)))

;; return from register
(define (emit-return/0 regn)
  (format #t "~8tmov %~a,%ax~%" (reg-get regn))
  (format #t "~8tret~%~%"))

(define (fetch-and-emit e)
  (match e
    (('begin-program name rest) (emit-begin-program name)) 
    (('label id) (emit-label id))
    (('begin-kw-arity a b c d e arity f) (emit-nop))
    (('add target src1 src2) (emit-add/0 src1 src2))
    (('return val) (emit-return/0 val))
    (('end-arity) (emit-nop))
    (('end-program) (emit-nop))
    (else (error "invalid instruction!" e))))

(define (emit-from-rtl rtl)
  (for-each fetch-and-emit rtl))

(emit-from-rtl test)
==>

.globl  .type self1180, @function
self1180:
kentry1181:
        nop
kargs1182:
        mov %ax,%ax
        add %cx,%ax
ktail1189:
        mov %ax,%ax
        ret

        nop
        nop