From dc16333815d8c542d84abd8bcdd52b7e372b760b Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Tue, 7 Jul 2020 11:49:35 +0200
Subject: Recordops: unify struc_typ summary record and libobject entry
 struc_tuple

This requires updating the parameter count at section end, I felt it
was easier to do with rebuild_function but it could be done in
discharge if needed.

Incidentally fixes #12649.
---
 test-suite/bugs/closed/bug_12649.v | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 test-suite/bugs/closed/bug_12649.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/bug_12649.v b/test-suite/bugs/closed/bug_12649.v
new file mode 100644
index 0000000000..5547de84ff
--- /dev/null
+++ b/test-suite/bugs/closed/bug_12649.v
@@ -0,0 +1,11 @@
+
+
+Module Type A.
+
+  Record baz : Prop := B { }. (* any sort would do *)
+
+End A.
+
+Print A.
+Module Type UseA (c: A). End UseA.
+Print UseA. (* ANOMALY! Int.Map.get's assert false *)
-- 
cgit v1.2.3