From 8370b947a45e8d02012b6352507e639a273b86b1 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Thu, 1 Jul 2010 23:53:32 -0700 Subject: [PATCH] Wrap long lines. --- src/boot/me/trans.ml | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index fab9403db14..38b3ad8a53c 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -2974,8 +2974,12 @@ let trans_visitor begin let src_item = get_element_ptr src Abi.binding_field_item in let dst_item = get_element_ptr dst Abi.binding_field_item in - let src_binding = get_element_ptr src Abi.binding_field_binding in - let dst_binding = get_element_ptr dst Abi.binding_field_binding in + let src_binding = + get_element_ptr src Abi.binding_field_binding + in + let dst_binding = + get_element_ptr dst Abi.binding_field_binding + in mov dst_item (Il.Cell src_item); let null_jmp = null_check src_binding in (* Copy if we have a src binding. *)