From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Dec 2018 22:28:17 +0000 (+0000)
Subject: Make these tests run on svm1.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dc36ee5b855f5ec10cf9cd41a39eeaf250cfface;p=mit-scheme.git

Make these tests run on svm1.
---

diff --git a/tests/compiler/test-fasdump.scm b/tests/compiler/test-fasdump.scm
index 13e09b5ee..b458aea68 100644
--- a/tests/compiler/test-fasdump.scm
+++ b/tests/compiler/test-fasdump.scm
@@ -163,10 +163,21 @@ USA.
            (and (string-ci=? (car format) key)
                 (cadr format)))
          fasl-formats))
-  (or (try microcode-id/machine-type)
-      (try
-       (string-append microcode-id/machine-type
-                      (if (host-big-endian?) "be" "le")))))
+  (if (eq? 'svm1 microcode-id/compiled-code-type)
+      (cond ((= 4 (bytes-per-object))
+             (if (host-big-endian?)
+                 fasl-format:svm1-32be
+                 fasl-format:svm1-32le))
+            ((= 8 (bytes-per-object))
+             (if (host-big-endian?)
+                 fasl-format:svm1-64be
+                 fasl-format:svm1-64le))
+            (else
+             (error "What is this machine, Сетунь?")))
+      (or (try microcode-id/machine-type)
+          (try
+           (string-append microcode-id/machine-type
+                          (if (host-big-endian?) "be" "le"))))))
 
 (define-enumerated-test 'fasdump-invariance
   `(((1 . 2))