diff options
| author | letouzey | 2010-10-06 15:48:15 +0000 |
|---|---|---|
| committer | letouzey | 2010-10-06 15:48:15 +0000 |
| commit | b36e75cca2ea910dead09864c4f10ba79b894a35 (patch) | |
| tree | bd2830f5635f091f04168acda4623d6c9a9afbea | |
| parent | 317700df92b77552dfe5709134e1a024cea97812 (diff) | |
Extraction: allow to use Extraction Inline / NoInline even from under a section.
in addition, a makefile entry pluginsopt for compiling only the .cmxs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13509 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | Makefile.build | 2 | ||||
| -rw-r--r-- | plugins/extraction/table.ml | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/Makefile.build b/Makefile.build index d65aa89154..d75051b20c 100644 --- a/Makefile.build +++ b/Makefile.build @@ -443,6 +443,8 @@ cc: $(CCVO) $(CCCMA) subtac: $(SUBTACCMA) rtauto: $(RTAUTOVO) $(RTAUTOCMA) +pluginsopt: $(PLUGINSOPT) + ########################################################################### # rules to make theories, plugins and states ########################################################################### diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index c1b488f350..c22bb17eae 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -482,6 +482,8 @@ let inline_extraction = cache_function = (fun (_,(b,l)) -> add_inline_entries b l); load_function = (fun _ (_,(b,l)) -> add_inline_entries b l); classify_function = (fun o -> Substitute o); + discharge_function = + (fun (_,(b,l)) -> Some (b, List.map pop_global_reference l)); subst_function = (fun (s,(b,l)) -> (b,(List.map (fun x -> fst (subst_global s x)) l))) } @@ -494,7 +496,6 @@ let _ = declare_summary "Extraction Inline" (* Grammar entries. *) let extraction_inline b l = - check_inside_section (); let refs = List.map Nametab.global l in List.iter (fun r -> match r with |