1 require_extension('D'); 2 require_fp; 3 bool less = f64_lt_quiet(f64(FRS1), f64(FRS2)) || 4 (f64_eq(f64(FRS1), f64(FRS2)) && (f64(FRS1).v & F64_SIGN)); 5 if (isNaNF64UI(f64(FRS1).v) && isNaNF64UI(f64(FRS2).v)) 6 WRITE_FRD(f64(defaultNaNF64UI)); 7 else 8 WRITE_FRD(less || isNaNF64UI(f64(FRS2).v) ? FRS1 : FRS2); 9 set_fp_exceptions; 10