mathieu/granite-rust
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add more logging to copy/init paths.

Browse source
This commit is contained in:
Graydon Hoare 2010-07-01 11:11:34 -07:00
parent bb3aad72c4
commit ef61c458fa
1 changed files with 27 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/boot/me/trans.ml
View file

@ -2873,6 +2873,11 @@ let trans_visitor
iflog iflog
begin begin
fun _ -> fun _ ->
log cx "trans_copy_ty";
log cx " dst ty %a, src ty %a"
Ast.sprintf_ty dst_ty Ast.sprintf_ty src_ty;
log cx " dst cell %s, src cell %s"
(cell_str dst) (cell_str src);
annotate annotate
(Printf.sprintf "%sweight copy: %a <- %a" (Printf.sprintf "%sweight copy: %a <- %a"
weight weight
@ -3121,19 +3126,27 @@ let trans_visitor
(src:Il.cell) (src_ty:Ast.ty) (src:Il.cell) (src_ty:Ast.ty)
: unit = : unit =
let dst_ty = slot_ty dst_slot in let dst_ty = slot_ty dst_slot in
match (dst_slot.Ast.slot_mode, clone) with let _ =
(Ast.MODE_alias, CLONE_none) -> iflog (fun _ ->
mov dst (Il.Cell (alias (Il.Mem (need_mem_cell src)))) log cx "trans_init_slot_from_cell";
log cx " dst slot %a, src ty %a"
Ast.sprintf_slot dst_slot Ast.sprintf_ty src_ty;
log cx " dst cell %s, src cell %s"
(cell_str dst) (cell_str src))
in
match (dst_slot.Ast.slot_mode, clone) with
(Ast.MODE_alias, CLONE_none) ->
mov dst (Il.Cell (alias (Il.Mem (need_mem_cell src))))
| (Ast.MODE_local, CLONE_none) -> | (Ast.MODE_local, CLONE_none) ->
trans_copy_ty trans_copy_ty
ty_params true ty_params true
dst dst_ty src src_ty None dst dst_ty src src_ty None
| (Ast.MODE_alias, _) -> | (Ast.MODE_alias, _) ->
bug () "attempting to clone into alias slot" bug () "attempting to clone into alias slot"
| (_, CLONE_chan clone_task) -> | (_, CLONE_chan clone_task) ->
let clone = let clone =
if (type_contains_chan src_ty) if (type_contains_chan src_ty)
then CLONE_all clone_task then CLONE_all clone_task
@ -3143,8 +3156,8 @@ let trans_visitor
trans_init_slot_from_cell ty_params trans_init_slot_from_cell ty_params
clone dst dst_slot src src_ty clone dst dst_slot src src_ty
| (_, CLONE_all clone_task) -> | (_, CLONE_all clone_task) ->
clone_ty ty_params clone_task dst src src_ty None clone_ty ty_params clone_task dst src src_ty None
and trans_init_slot_from_atom and trans_init_slot_from_atom
@ -3354,6 +3367,8 @@ let trans_visitor
(arg_slot:Ast.slot) (arg_slot:Ast.slot)
(arg:Ast.atom) (arg:Ast.atom)
: unit = : unit =
log cx "trans_argN: arg slot %a, arg atom %a"
Ast.sprintf_slot arg_slot Ast.sprintf_atom arg;
trans_init_slot_from_atom clone arg_cell arg_slot arg trans_init_slot_from_atom clone arg_cell arg_slot arg
and code_of_cell (cell:Il.cell) : Il.code = and code_of_cell (cell:Il.cell) : Il.code =