Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

poteau sur max_tag 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4289 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2002-01-20 17:29:18 +00:00
parent c439510122
commit bd6601d913
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typing/typedecl.ml
View File

@ -108,7 +108,7 @@ let transl_declaration env (name, sdecl) id =
all_constrs := StringSet.add name !all_constrs) all_constrs := StringSet.add name !all_constrs)
cstrs; cstrs;
if List.length (List.filter (fun (name, args) -> args <> []) cstrs) if List.length (List.filter (fun (name, args) -> args <> []) cstrs)
> Config.max_tag then > (Config.max_tag + 1) then
raise(Error(sdecl.ptype_loc, Too_many_constructors)); raise(Error(sdecl.ptype_loc, Too_many_constructors));
Type_variant(List.map Type_variant(List.map
(fun (name, args) -> (fun (name, args) ->
@ -595,7 +595,7 @@ let report_error ppf = function
| Too_many_constructors -> | Too_many_constructors ->
fprintf ppf "Too many non-constant constructors -- \ fprintf ppf "Too many non-constant constructors -- \
maximum is %i non-constant constructors" maximum is %i non-constant constructors"
Config.max_tag (Config.max_tag + 1)
| Duplicate_label s -> | Duplicate_label s ->
fprintf ppf "Two labels are named %s" s fprintf ppf "Two labels are named %s" s
| Recursive_abbrev s -> | Recursive_abbrev s ->

2
utils/config.mli
View File

@ -66,7 +66,7 @@ val ast_impl_magic_number: string
(* Magic number for file holding an implementation syntax tree *) (* Magic number for file holding an implementation syntax tree *)
val max_tag: int val max_tag: int
(* Biggest tag that can be stored in the header of a block. *) (* Biggest tag that can be stored in the header of a regular block. *)
val max_young_wosize: int val max_young_wosize: int
(* Maximal size of arrays that are directly allocated in the (* Maximal size of arrays that are directly allocated in the
minor heap *) minor heap *)