From dc36ee5b855f5ec10cf9cd41a39eeaf250cfface Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 11 Dec 2018 22:28:17 +0000 Subject: [PATCH] Make these tests run on svm1. --- tests/compiler/test-fasdump.scm | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) 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)) -- 2.25.1