diff options
author | Michael Schmidt <github@mschmidt.me> | 2015-10-14 15:07:48 +0200 |
---|---|---|
committer | Michael Schmidt <github@mschmidt.me> | 2015-10-14 15:07:48 +0200 |
commit | 60ab550a952c3d9719b2a91ec90c9b58769f6717 (patch) | |
tree | 523cf4eb5a35594b16a297b4bd7e29157f42b0fc /arm/Asmexpand.ml | |
parent | a479c280441b91007c379b0b63b907926d54f930 (diff) | |
download | compcert-60ab550a952c3d9719b2a91ec90c9b58769f6717.tar.gz compcert-60ab550a952c3d9719b2a91ec90c9b58769f6717.zip |
bug 17392: remove trailing whitespace in source files
Diffstat (limited to 'arm/Asmexpand.ml')
-rw-r--r-- | arm/Asmexpand.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/arm/Asmexpand.ml b/arm/Asmexpand.ml index 990f207d..a0a4fcc5 100644 --- a/arm/Asmexpand.ml +++ b/arm/Asmexpand.ml @@ -106,7 +106,7 @@ let memcpy_small_arg sz arg tmp = assert false let expand_builtin_memcpy_small sz al src dst = - let (tsrc, tdst) = + let (tsrc, tdst) = if dst <> BA (IR IR2) then (IR2, IR3) else (IR3, IR2) in let (rsrc, osrc) = memcpy_small_arg sz src tsrc in let (rdst, odst) = memcpy_small_arg sz dst tdst in @@ -142,7 +142,7 @@ let memcpy_big_arg arg tmp = let expand_builtin_memcpy_big sz al src dst = assert (sz >= al); assert (sz mod al = 0); - let (s, d) = + let (s, d) = if dst <> BA (IR IR2) then (IR2, IR3) else (IR3, IR2) in memcpy_big_arg src s; memcpy_big_arg dst d; |