File tree Expand file tree Collapse file tree 2 files changed +2
-13
lines changed Expand file tree Collapse file tree 2 files changed +2
-13
lines changed Original file line number Diff line number Diff line change @@ -106,15 +106,10 @@ let debug_case_info flags ci =
106
106
let ndecls = String. concat " ;" (List. map string_of_int (Array. to_list ci.ci_cstr_ndecls)) in
107
107
let nargs = String. concat " ;" (List. map string_of_int (Array. to_list ci.ci_cstr_nargs)) in
108
108
let pp_info x =
109
- let ind_tags = String. concat " ;" (List. map string_of_bool x.ind_tags) in
110
- let cstr_tags =
111
- String. concat " ," (List. map (fun tags -> String. concat " ;" (List. map string_of_bool tags))
112
- (Array. to_list x.cstr_tags))
113
- in
114
109
let string_of_style = match x.style with
115
110
LetStyle -> " LetStyle" | IfStyle -> " IfStyle" | LetPatternStyle -> " LetPatternStyle" | MatchStyle -> " MatchStyle" | RegularStyle -> " RegularStyle"
116
111
in
117
- Printf. sprintf " ind_tags = %s, cstr_tags = %s, style = %s" ind_tags cstr_tags string_of_style
112
+ Printf. sprintf " style = %s" string_of_style
118
113
in
119
114
debug_string flags
120
115
(Printf. sprintf " CASEINFO:inductive = %s.\n param = %d.\n ndecls = %s.\n nargs = %s.\n pp_info = %s\n .EOFCASEINFO"
Original file line number Diff line number Diff line change @@ -553,13 +553,7 @@ and translate_case_info order env ci =
553
553
}
554
554
555
555
and translate_case_printing order env cp =
556
- let translate_bool_list l =
557
- List. flatten (List. map (fun x -> range (fun _ -> x) (order + 1 )) l)
558
- in
559
- {
560
- ind_tags = (range (fun _ -> false ) order) @ translate_bool_list cp.ind_tags;
561
- cstr_tags = Array. map translate_bool_list cp.cstr_tags;
562
- style = translate_style cp.style }
556
+ { style = translate_style cp.style }
563
557
564
558
and translate_style x = x
565
559
You can’t perform that action at this time.
0 commit comments