(label garbage::L2) (push.l (:reg 5 :ebp :bp)) (move.l (:reg 4 :esp :sp) (:reg 5 :ebp :bp)) (push.l (:reg 6 :esi :si)) (sub.l (im (:final-frame-size 56 -4)) (:reg 4 :esp :sp)) (fmove.d (d -10 (:reg 2 :edx :dx :dl)) (:freg 1 "st(1)")) (fmove.d (d -10 (:reg 0 :eax :ax :al)) (:freg 2 "st(2)")) (fmove.d (:freg 1 "st(1)") (:flocal 0)) (label garbage::L1) (move.l (:iparam 2) (:reg 0 :eax :ax :al)) (fmove.d (:freg 2 "st(2)") (:flocal 1)) (move.l (d 18 (:reg 6 :esi :si)) (:reg 3 :ebx :bx :bl)) (move.b (im 1) (:reg 1 :ecx :cx :cl)) ;; is this the call to fstcw? ;; (bcc :t (pc (:reg 7 :edi :di)) :link) (fstcw (:flocal 3)) ; ? (fmove.d (:flocal 1) (:freg 1 "st(1)")) (fmove.d (:flocal 0) (:freg 2 "st(2)")) (mul.d (:freg 2 "st(2)") (:freg 1 "st(1)") (:freg 1 "st(1)")) (fmove.d (:freg 1 "st(1)") (:flocal 2)) (move.l (:iparam 2) (:reg 0 :eax :ax :al)) (move.l (d 22 (:reg 6 :esi :si)) (:reg 3 :ebx :bx :bl)) (move.b (im 1) (:reg 1 :ecx :cx :cl)) (bcc :t (pc (:reg 7 :edi :di)) :link) (fmove.d (:flocal 2) (:freg 1 "st(1)")) (fmove.d (:freg 1 "st(1)") (:freg 0 "st(0)")) (move.l (im 0) (:reg 1 :ecx :cx :cl)) ;;; (bcc :t (pc (d 531 (:reg 7 :edi :di))) :link) (fldcw (:flocal 3)) ; ? (clc) (leave) (move.l (d -4 (:reg 5 :ebp :bp)) (:reg 6 :esi :si)) (return)