diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 13:42:04 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-13 13:42:04 +0000 |
| commit | decb8c16274487ce3cac1e7d5de529b46b6d68e3 (patch) | |
| tree | 02a41980403e4c3fbeab8259a95ea14ba1b80e65 /parsing/astterm.ml | |
| parent | 7dfacfe208a9fa5ad5f7669537c54609b4adf51e (diff) | |
- méthode load sur les Hints
- CAST pris en compte dans Astterm
- Coercin.lookup_path_to_sort_from protégé par un try/with
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@248 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/astterm.ml')
| -rw-r--r-- | parsing/astterm.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/parsing/astterm.ml b/parsing/astterm.ml index 68cd5482d..7dad63a00 100644 --- a/parsing/astterm.ml +++ b/parsing/astterm.ml @@ -315,6 +315,9 @@ let dbize k sigma = | Node(loc,("CONST"|"EVAR"|"MUTIND"|"MUTCONSTRUCT"|"SYNCONST" as key),l) -> dbize_global loc (key,l) + | Node(loc,"CAST", [c1;c2]) -> + RCast (loc,dbrec env c1,dbrec env c2) + | Node(loc,opn,tl) -> anomaly ("dbize found operator "^opn^" with "^ (string_of_int (List.length tl))^" arguments") |