anchor.diff:           (retaddr (second ac-regs)))
       ;; comment this
       (codegen arg-count (dest-value ac) in-frame-base out-frame-base ac-regs out)
  -    (emit-lea out (dispmem 0 1 %bp ac) ac)
  -    (emit-mov out (dispmem 0 1 %bp) retaddr)
  +    (emit-scale-number out value-scale ac)
  +    (emit-lea out (dispmem 0 value-size %bp ac) ac)
  +    (emit-mov out (dispmem 0 value-size %bp) retaddr)
       (emit-mov out (mem %bp) %bp)
       (emit-mov out ac %sp)
       (emit-mov out retaddr (mem ac))
  
positive.code: (define-insn-0 emit-rep-movs "rep ; movs")
  (define-insn-0 emit-pushf "pushf")
  (define-insn-0 emit-popf "popf")
  
  ;;; Branching, jumping, and output handling
  
  
negative.code:         (emit-extend-sign-bit out %d)
          (emit-idiv out %c)
          (emit-convert-value out %d dest in-frame-base out-frame-base))))
  
  ;;; Strings and vectors
  
  