Commit da4eb716 authored by Andrei Paskevich's avatar Andrei Paskevich

Dexpr: remove dval_decl

parent 5f0f3b62
......@@ -374,9 +374,6 @@ and drec_defn = { fds : dfun_defn list }
and dfun_defn = preid * ghost * rs_kind *
dbinder list * dspec later * variant list later * dexpr
type dval_decl = preid * ghost * rs_kind *
dbinder list * dspec later * dity
(** Environment *)
type denv = {
......@@ -883,6 +880,7 @@ let cty_of_spec env bl dsp dity =
let xq = create_xpost dsp.ds_xpost in
create_cty bl p q xq rds eff ity
(*
let val_decl env (id,ghost,kind,bl,dsp,dity) =
let ity = ity_of_dity dity in match kind with
| RKlocal -> invalid_arg "Dexpr.val_decl"
......@@ -913,6 +911,7 @@ let val_decl env (id,ghost,kind,bl,dsp,dity) =
"Mutable top-level variables cannot be logical predicates"
| RKlemma -> Loc.errorm
"Mutable top-level variables cannot be logical lemmas"
*)
(** Expressions *)
......@@ -1147,9 +1146,11 @@ and expr_fun ~keep_loc uloc env pvl dsp de =
let xq = create_xpost dsp.ds_xpost in
e_fun pvl p q xq e, dsp, env
(*
let val_decl ?(keep_loc=true) (id,_,_,_,_,_ as vald) =
reunify_regions ();
Loc.try2 ?loc:id.pre_loc val_decl env_empty vald
*)
let rec_defn ?(keep_loc=true) drdf =
reunify_regions ();
......
......@@ -122,9 +122,6 @@ and drec_defn = private { fds : dfun_defn list }
and dfun_defn = preid * ghost * rs_kind *
dbinder list * dspec later * variant list later * dexpr
type dval_decl = preid * ghost * rs_kind *
dbinder list * dspec later * dity
(** Environment *)
type denv
......@@ -158,6 +155,5 @@ val drec_defn : denv -> pre_fun_defn list -> denv * drec_defn
val expr : ?keep_loc:bool -> dexpr -> expr
val val_decl : ?keep_loc:bool -> dval_decl -> val_decl
val let_defn : ?keep_loc:bool -> dlet_defn -> let_defn
val rec_defn : ?keep_loc:bool -> drec_defn -> rec_defn
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment