diff options
| author | herbelin | 2000-10-01 13:20:02 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-01 13:20:02 +0000 |
| commit | 9e6e6202c073fed0e2fc915d7f7e6ce927d55218 (patch) | |
| tree | ed17038b7fc77a5cba80c41616d4d18d66dd51f1 /parsing | |
| parent | afdb9b7fa4a6ce1165b270ffdae4574897aa7c40 (diff) | |
Disparition du type oper mais nouveau type global_reference
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@620 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/pretty.ml | 7 | ||||
| -rw-r--r-- | parsing/printer.ml | 4 |
2 files changed, 5 insertions, 6 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index cbfacf1388..b2b0da9456 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -414,10 +414,9 @@ let print_name name = with Not_found -> try match fst (Declare.global_operator CCI name) with - | Const sp -> print_constant true " = " sp - | MutInd (sp,_) -> print_inductive sp - | MutConstruct((sp,_),_) -> print_inductive sp - | _ -> assert false + | ConstRef sp -> print_constant true " = " sp + | IndRef (sp,_) -> print_inductive sp + | ConstructRef ((sp,_),_) -> print_inductive sp with Not_found -> try let (c,typ) = Global.lookup_var name in diff --git a/parsing/printer.ml b/parsing/printer.ml index da78f8352e..b7d38651cb 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -38,10 +38,10 @@ let globpr gt = match gt with pr_qualified_path sp (basename (section_path sl s)) | Node(_,"MUTIND",[Path(_,sl,s); Num(_,tyi)]) -> let sp = section_path sl s in - pr_qualified_path sp (Global.id_of_global (MutInd (sp,tyi))) + pr_qualified_path sp (Global.id_of_global (IndRef (sp,tyi))) | Node(_,"MUTCONSTRUCT",[Path(_,sl,s); Num(_,tyi); Num(_,i)]) -> let sp = section_path sl s in - pr_qualified_path sp (Global.id_of_global (MutConstruct ((sp,tyi),i))) + pr_qualified_path sp (Global.id_of_global (ConstructRef ((sp,tyi),i))) (* | Node(_,"EVAR", (Num (_,ev))::_) -> if !print_arguments then dfltpr gt |