Re: Compaq(DEC) Tru64 UNIX - simpler patch

[W . Northcott]

This seems to work

diff -c -r ../swarm-2001-01-24/libobjc/sendmsg.c
../swarm-2001-01-24a/libobjc/sendmsg.c
*** ../swarm-2001-01-24/libobjc/sendmsg.c       Tue Jan 23 11:42:59 2001
--- ../swarm-2001-01-24a/libobjc/sendmsg.c      Tue Jan 30 17:05:29 2001
***************
*** 514,534 ****
  __objc_double_forward (id rcv, SEL op, ...)
  {
    void *args, *res;

    args = __builtin_apply_args ();
    res = __objc_forward (rcv, op, args);
! #ifndef __alpha__
!   __builtin_return (res);
  #else
!   /* Emprically determined -- very fragile! -mgd */
!   {
!     const char *type = sel_get_type (op);
!
!     if (*type == _C_FLT)
!       return ((float *) res)[38];
!     else
!       return ((double *) res)[19];
!   }
  #endif
  }

--- 514,529 ----
  __objc_double_forward (id rcv, SEL op, ...)
  {
    void *args, *res;
+   double *resf;

    args = __builtin_apply_args ();
    res = __objc_forward (rcv, op, args);
! #ifdef __alpha__
!   /* Stuff the answer where we can find it - wjn */
!   asm ("stt $f0 ,%0" : "=g" (*resf) );
!   return (resf)[0];
  #else
!   __builtin_return (res);
  #endif
  }



                  ==================================
   Swarm-Support is for discussion of the technical details of the day
   to day usage of Swarm.  For list administration needs (esp.
   [un]subscribing), please send a message to <address@hidden>
   with "help" in the body of the message.