Hi, On Sat 01 Dec 2012 00:39, Stefan Israelsson Tampe <stefan.ita...@gmail.com> writes:
> (define-macro-assembler (toplevel asm dst sym) > (let ((s (emit-non-immediate asm sym)) > (d (emit-non-immediate asm (current-module))) > (v (intern-constant asm 0 #:slot #t))) > (emit-toplevel-ref asm dst v d s))) This intern-constant is really a hack. See the patch I pushed to wip-rtl for a more robust solution. > (define-macro-assembler (begin-program asm label . f-meta) > (emit-label asm label) > (let ((meta (make-meta label #f (asm-start asm) #f))) > (set-asm-meta! asm (cons meta (asm-meta asm))) > (emit asm 0) > (emit asm 0) > (emit asm 0) ;;Mark that we have a meta prefix I don't want to include metadata in the text of the procedure -- it should go in a different ELF section. Regards, Andy -- http://wingolog.org/
