/* This function uses the same code as s_copysign.S.  */