From 2fee1a8c9a34db4ea0f74e550567809c24876c41 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Fri, 13 Mar 2020 12:18:56 -0400
Subject: [PATCH] Missed one place to flag the substrate extraction;  fixed
 now.

---
 extract/ExtSubtree.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/extract/ExtSubtree.c b/extract/ExtSubtree.c
index b3da7956..75418ec6 100644
--- a/extract/ExtSubtree.c
+++ b/extract/ExtSubtree.c
@@ -908,6 +908,7 @@ extSubstrateFunc(scx, ha)
 	    for (y = use->cu_ylo; y <= use->cu_yhi; y++)
 		extHierSubstrate(ha, use, x, y);
     }
+    use->cu_flags |= CU_SUB_EXTRACTED;
     return (2);
 }