mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Recognize arm-* target triplets.

Browse source 
Reported by Sylvain Beucler <beuc@beuc.net>.

* module/system/base/target.scm (cpu-endianness): Add case where CPU is
  "arm".
* test-suite/tests/asm-to-bytecode.test ("cross-compilation")["arm-unknown-linux-androideabi"]:
  New test.
This commit is contained in:
Ludovic Courtès 2014-07-04 15:35:06 +02:00
parent c53b5d891f
commit df8c52e93d
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/target.scm
View file

@ -1,6 +1,6 @@
;;; Compilation targets ;;; Compilation targets
;; Copyright (C) 2011, 2012, 2013 Free Software Foundation, Inc. ;; Copyright (C) 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public
@ -72,6 +72,8 @@
(endianness big)) (endianness big))
((string-match "^arm.*el" cpu) ((string-match "^arm.*el" cpu)
(endianness little)) (endianness little))
((string=? "arm" cpu) ;ARMs are LE by default
(endianness little))
(else (else
(error "unknown CPU endianness" cpu))))) (error "unknown CPU endianness" cpu)))))

5
test-suite/tests/asm-to-bytecode.test
View file

@ -1,6 +1,6 @@
;;;; Assembly to bytecode compilation -*- mode: scheme; coding: utf-8; -*- ;;;; Assembly to bytecode compilation -*- mode: scheme; coding: utf-8; -*-
;;;; ;;;;
;;;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -205,6 +205,9 @@
(test-target "x86_64-unknown-linux-gnux32" ; x32 ABI (Debian tuplet) (test-target "x86_64-unknown-linux-gnux32" ; x32 ABI (Debian tuplet)
(endianness little) 4) (endianness little) 4)
(test-target "arm-unknown-linux-androideabi"
(endianness little) 4)
(pass-if-exception "unknown target" (pass-if-exception "unknown target"
exception:miscellaneous-error exception:miscellaneous-error
(call-with-values (lambda () (call-with-values (lambda ()