diff options
| author |  pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-05 23:13:10 +0000 |
|---|---|---|
| committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-05 23:13:10 +0000 |
| commit | 5b56756cfd2a3211e5b267d41be4a22679b78a4b (patch) | |
| tree | e4a3c1d42babc9636911367341b028b90b848a8e /plugins/extraction/table.ml | |
| parent | 1707245588f08b3ea6f4335271deef468ca7a930 (diff) | |
Dump references
Patch by Adam Chilipala.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15679 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 62ce89896..886a19e94 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -842,6 +842,7 @@ let extract_constant_inline inline r ids s = let extract_inductive r s l optstr = check_inside_section (); let g = Smartlocate.global_with_alias r in + Dumpglob.add_glob (loc_of_reference r) g; match g with | IndRef ((kn,i) as ip) -> let mib = Global.lookup_mind kn in |