---

yaml
---
r: 699
b: refs/heads/master
c: 8beb118
h: refs/heads/master
i:
  697: daed7e1
  695: 64b9beb
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: b549721a2ebb46174211630c5df3df257c1ae160
+refs/heads/master: 8beb118df442679c3afd2934b370c294a1df3046

trunk/src/boot/driver/main.ml

@@ -375,7 +375,10 @@ let main_pipeline _ =
   let process_code _ (code:Semant.code) : Asm.frag =
     let frag =
       match code.Semant.code_vregs_and_spill with
-          None -> select_insns code.Semant.code_quads
+          None ->
+            X86.log sess "selecting insns for %s"
+              code.Semant.code_fixup.fixup_name;
+            select_insns code.Semant.code_quads
         | Some (n_vregs, spill_fix) ->
             let (quads', n_spills) =
               (Session.time_inner "RA" sess
@@ -384,6 +387,10 @@ let main_pipeline _ =
                       code.Semant.code_quads
                       n_vregs abi))
             in
+            let _ =
+              X86.log sess "selecting insns for %s"
+                code.Semant.code_fixup.fixup_name
+            in
             let insns = select_insns quads' in
               begin
                 spill_fix.fixup_mem_sz <-