diff options
| author | Michael Schmidt <github@mschmidt.me> | 2015-10-14 15:26:56 +0200 |
|---|---|---|
| committer | Michael Schmidt <github@mschmidt.me> | 2015-10-14 15:26:56 +0200 |
| commit | f5bb397acd12292f6b41438778f2df7391d6f2fe (patch) | |
| tree | b5964ca4c395b0db639565d0d0fddc9c44e34cf1 /powerpc/Asmgen.v | |
| parent | fd83d08d27057754202c575ed8a42d01b1af54c5 (diff) | |
| download | compcert-kvx-f5bb397acd12292f6b41438778f2df7391d6f2fe.tar.gz compcert-kvx-f5bb397acd12292f6b41438778f2df7391d6f2fe.zip | |
bug 17392: remove trailing whitespace in source files
Diffstat (limited to 'powerpc/Asmgen.v')
| -rw-r--r-- | powerpc/Asmgen.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/powerpc/Asmgen.v b/powerpc/Asmgen.v index fe3a6441..4ad5e2f9 100644 --- a/powerpc/Asmgen.v +++ b/powerpc/Asmgen.v @@ -126,7 +126,7 @@ Definition accessind {A: Type} (instr1: A -> constant -> ireg -> instruction) (instr2: A -> ireg -> ireg -> instruction) (base: ireg) (ofs: int) (r: A) (k: code) := - if Int.eq (high_s ofs) Int.zero + if Int.eq (high_s ofs) Int.zero then instr1 r (Cint ofs) base :: k else loadimm GPR0 ofs (instr2 r base GPR0 :: k). @@ -522,7 +522,7 @@ Definition int_temp_for (r: mreg) := Definition transl_memory_access (mk1: constant -> ireg -> instruction) (mk2: ireg -> ireg -> instruction) - (addr: addressing) (args: list mreg) + (addr: addressing) (args: list mreg) (temp: ireg) (k: code) := match addr, args with | Aindexed ofs, a1 :: nil => @@ -649,12 +649,12 @@ Definition transl_instr (f: Mach.function) (i: Mach.instruction) OK (Pmtctr r1 :: Plwz GPR0 (Cint f.(fn_retaddr_ofs)) GPR1 :: Pmtlr GPR0 :: - Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: + Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: Pbctr sig :: k) | Mtailcall sig (inr symb) => OK (Plwz GPR0 (Cint f.(fn_retaddr_ofs)) GPR1 :: Pmtlr GPR0 :: - Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: + Pfreeframe f.(fn_stacksize) f.(fn_link_ofs) :: Pbs symb sig :: k) | Mbuiltin ef args res => OK (Pbuiltin ef (List.map (map_builtin_arg preg_of) args) (map_builtin_res preg_of res) :: k) |