Make these tests run on svm1.

diff --git a/tests/compiler/test-fasdump.scm b/tests/compiler/test-fasdump.scm
index 13e09b5eed72ea5ac4960295bd1e621e463bd4ff..b458aea6869df491afeeba57b2a40002cbf01245 100644 (file)
--- 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))