From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 8 Dec 2018 23:54:15 +0000 (+0000)
Subject: Define more arm variants: {le,be} x {32,64}.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~52
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=44a071d30b69e1a341499b31b85d26dae234f0ab;p=mit-scheme.git

Define more arm variants: {le,be} x {32,64}.
---

diff --git a/src/compiler/base/fasdump.scm b/src/compiler/base/fasdump.scm
index dceb63f5a..2dff5d1b7 100644
--- a/src/compiler/base/fasdump.scm
+++ b/src/compiler/base/fasdump.scm
@@ -218,7 +218,10 @@ USA.
 (define fasdump-format:alpha    (make-std64le-fasdump-format 18))
 (define fasdump-format:ppc32    (make-std32be-fasdump-format 20))
 (define fasdump-format:amd64    (make-std64le-fasdump-format 21))
-(define fasdump-format:arm32    (make-std32le-fasdump-format 24))
+(define fasdump-format:arm32le  (make-std32le-fasdump-format 24))
+(define fasdump-format:arm32be  (make-std32le-fasdump-format 24))
+(define fasdump-format:aarch64le (make-std64le-fasdump-format 25))
+(define fasdump-format:aarch64be (make-std64be-fasdump-format 25))
 
 #;
 (define fasdump-format:pdp10