From f84e72cb8f2f89c4830270b9513ec6b47338376b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 3 Jul 2020 12:22:12 +0200
Subject: [PATCH] Don't make final full dump when building for KA10 on Cirrus
 CI.

---
 .cirrus.yml     |  1 +
 build/build.tcl | 30 +++++++++++++++++-------------
 2 files changed, 18 insertions(+), 13 deletions(-)

diff --git a/.cirrus.yml b/.cirrus.yml
index c01f59c9..f8f6c1f2 100644
--- a/.cirrus.yml
+++ b/.cirrus.yml
@@ -12,6 +12,7 @@ task:
       - EMULATOR: simh
       - EMULATOR: klh10
       - EMULATOR: pdp10-ka
+        NODUMP: true
       # EMULATOR: pdp10-kl
   install_script: sh -ex build/dependencies.sh install_freebsd
   script: gmake its EMULATOR=$EMULATOR
diff --git a/build/build.tcl b/build/build.tcl
index fd6b6f9e..80460290 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -29,6 +29,9 @@ if {![info exists env(MACSYMA)]} {
     set env(MACSYMA) "yes"
 }
 
+# If the NODUMP environment variable is set, don't do the final full
+# dump.
+
 proc cleanup {} {
     global spawn_id
     close -i $spawn_id
@@ -193,19 +196,20 @@ respond "*" ":copy sys; ts ddt, dsk0: backup;\r"
 respond "*" ":copy sys; ts dump, dsk0: backup;\r"
 respond "*" ":copy sys; ts midas, dsk0: backup;\r"
 
-# make output.tape
-
-respond "*" $emulator_escape
-create_tape "$out/output.tape"
-type ":dump\r"
-respond "_" "dump links full list\r"
-respond "LIST DEV =" "tty\r"
-respond "TAPE NO=" "1\r"
-expect -timeout 6000 "REEL"
-respond "_" "rewind\r"
-respond "_" "icheck\r"
-expect -timeout 6000 "_"
-type "quit\r"
+if {![info exists env(NODUMP)]} {
+    # make output.tape
+    respond "*" $emulator_escape
+    create_tape "$out/output.tape"
+    type ":dump\r"
+    respond "_" "dump links full list\r"
+    respond "LIST DEV =" "tty\r"
+    respond "TAPE NO=" "1\r"
+    expect -timeout 6000 "REEL"
+    respond "_" "rewind\r"
+    respond "_" "icheck\r"
+    expect -timeout 6000 "_"
+    type "quit\r"
+}
 
 shutdown
 quit_emulator