(emit "not %rcx") ; -%rcx = strlen + 1
(emit "dec %rcx")
- (case target
- ('darwin
(emit "movq %rbx, %rsi") ; string addr
(emit "movq %rcx, %rdx") ; num bytes
(emit "movq $1, %rdi") ; file handle (stdout)
- (emit "movq $0x2000004, %rax")) ; syscall 4 (write)
- ('linux
- (emit "mov %rbx, %rsi") ; string addr
- (emit "mov %rcx, %rdx") ; num bytes
- (emit "mov $1, %rax") ; file handle (stdout)
- (emit "mov $1, %rdi"))) ; syscall 1 (write)
+ (case target
+ ('darwin (emit "mov $0x2000004, %rax")) ; syscall 4 (write)
+ ('linux (emit "mov $1, %rax"))) ; syscall 1 (write)
(emit "syscall"))
(define (range s n)
(else (error #f "don't know how to codegen this"))))
-(define (fold-map f x) (fold-left append '() (map f x)))
(define (free-vars prog)
(define bound '())