;;;; Cross compilation -*- mode: scheme; coding: utf-8; -*-
;;;;
-;;;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
+;;;; Copyright (C) 2010-2014 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
(string=? (native-os) (target-os)))
(native-word-size)
word-size))
- (bv (compile '(hello-world) #:to 'rtl)))
- (and=> (parse-elf bv)
+ (bv+constants (compile '(hello-world) #:to 'bytecode)))
+ (and=> (parse-elf (car bv+constants))
(lambda (elf)
(and (equal? (elf-byte-order elf) endian)
(equal? (elf-word-size elf) word-size)))))))))
(endianness little) 8)
(test-target "x86_64-unknown-linux-gnux32" ; x32 ABI (Debian tuplet)
(endianness little) 4)
+ (test-target "arm-unknown-linux-androideabi"
+ (endianness little) 4)
+ (test-target "armeb-unknown-linux-gnu"
+ (endianness big) 4)
+ (test-target "aarch64-linux-gnu"
+ (endianness little) 8)
+ (test-target "aarch64_be-linux-gnu"
+ (endianness big) 8)
(pass-if-exception "unknown target" exception:miscellaneous-error
(with-target "fcpu-unknown-gnu1.0"
(lambda ()
- (compile '(ohai) #:to 'rtl)))))
+ (compile '(ohai) #:to 'bytecode)))))
;; Local Variables:
;; eval: (put 'with-target 'scheme-indent-function 1)