File tree Expand file tree Collapse file tree 5 files changed +126
-126
lines changed Expand file tree Collapse file tree 5 files changed +126
-126
lines changed Original file line number Diff line number Diff line change @@ -178,7 +178,7 @@ let%diagn2_sexp to_low_level code =
178178 (* FIXME: NOT IMPLEMENTED YET - need to handle merge buffer access differently now *)
179179 Low_level. Get (tn, idcs)
180180 in
181- let set tn idcs llv =
181+ let set tn idcs llsc =
182182 if not (Array. length idcs = Array. length (Lazy. force tn.Tn. dims)) then
183183 [% log
184184 " set" ,
@@ -189,7 +189,7 @@ let%diagn2_sexp to_low_level code =
189189 (idcs : Indexing.axis_index array ),
190190 (Lazy. force tn.dims : int array )];
191191 assert (Array. length idcs = Array. length (Lazy. force tn.Tn. dims));
192- Low_level. Set { tn; idcs; llv ; debug = " " }
192+ Low_level. Set { tn; idcs; llsc ; debug = " " }
193193 in
194194 let rec loop_accum ~initialize_neutral ~accum ~op ~lhs ~rhses projections =
195195 let projections = Lazy. force projections in
Original file line number Diff line number Diff line change @@ -503,12 +503,12 @@ module C_syntax (B : C_syntax_config) = struct
503503 | Zero_out tn ->
504504 pp_ll
505505 (Low_level. loop_over_dims (Lazy. force tn.dims) ~body: (fun idcs ->
506- Set { tn; idcs; llv = Constant 0.0 ; debug = get_ident tn ^ " := 0" }))
507- | Set { tn; idcs; llv ; debug } ->
506+ Set { tn; idcs; llsc = Constant 0.0 ; debug = get_ident tn ^ " := 0" }))
507+ | Set { tn; idcs; llsc ; debug } ->
508508 let ident_doc = string (get_ident tn) in
509509 let dims = Lazy. force tn.dims in
510510 let prec = Lazy. force tn.prec in
511- let local_defs, val_doc = pp_float prec llv in
511+ let local_defs, val_doc = pp_float prec llsc in
512512 let offset_doc = pp_array_offset (idcs, dims) in
513513 let assignment =
514514 group
@@ -520,7 +520,7 @@ module C_syntax (B : C_syntax_config) = struct
520520 let num_typ = string (B. typ_of_prec prec) in
521521 let new_var = string " new_set_v" in
522522 let decl = num_typ ^^ space ^^ new_var ^^ string " = " ^^ val_doc ^^ semi in
523- let debug_val_doc, debug_args_docs = debug_float prec llv in
523+ let debug_val_doc, debug_args_docs = debug_float prec llsc in
524524 let debug_val_str = doc_to_string debug_val_doc in
525525 let pp_args_docs =
526526 List. map debug_args_docs ~f: (function
You can’t perform that action at this time.
0 commit comments