fabs.c
上传用户:jlfgdled
上传日期:2013-04-10
资源大小:33168k
文件大小:0k
源码类别:

Linux/Unix编程

开发平台:

Unix_Linux

  1. /*
  2.  * BK Id: SCCS/s.fabs.c 1.6 05/17/01 18:14:22 cort
  3.  */
  4. #include <linux/types.h>
  5. #include <linux/errno.h>
  6. #include <asm/uaccess.h>
  7. int
  8. fabs(u32 *frD, u32 *frB)
  9. {
  10. frD[0] = frB[0] & 0x7fffffff;
  11. frD[1] = frB[1];
  12. #ifdef DEBUG
  13. printk("%s: D %p, B %p: ", __FUNCTION__, frD, frB);
  14. dump_double(frD);
  15. printk("n");
  16. #endif
  17. return 0;
  18. }