/* assign_parm_setup_block fix.  Handle 1 registers. */
int alloc_float(f)
 float f;
{
  union
    {
      float f;
      int i;
    }
  u;
  u.f=f;
  return u.i;
}