| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /*---------------------------------------------------------------------------+ |
| 2 | | control_w.h | |
| 3 | | | |
| 4 | | Copyright (C) 1992,1993 | |
| 5 | | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, | |
| 6 | | Australia. E-mail billm@vaxc.cc.monash.edu.au | |
| 7 | | | |
| 8 | +---------------------------------------------------------------------------*/ |
| 9 | |
| 10 | #ifndef _CONTROLW_H_ |
| 11 | #define _CONTROLW_H_ |
| 12 | |
| 13 | #ifdef __ASSEMBLY__ |
| 14 | #define _Const_(x) $##x |
| 15 | #else |
| 16 | #define _Const_(x) x |
| 17 | #endif |
| 18 | |
| 19 | #define CW_RC _Const_(0x0C00) /* rounding control */ |
| 20 | #define CW_PC _Const_(0x0300) /* precision control */ |
| 21 | |
| 22 | #define CW_Precision Const_(0x0020) /* loss of precision mask */ |
| 23 | #define CW_Underflow Const_(0x0010) /* underflow mask */ |
| 24 | #define CW_Overflow Const_(0x0008) /* overflow mask */ |
| 25 | #define CW_ZeroDiv Const_(0x0004) /* divide by zero mask */ |
| 26 | #define CW_Denormal Const_(0x0002) /* denormalized operand mask */ |
| 27 | #define CW_Invalid Const_(0x0001) /* invalid operation mask */ |
| 28 | |
| 29 | #define CW_Exceptions _Const_(0x003f) /* all masks */ |
| 30 | |
| 31 | #define RC_RND _Const_(0x0000) |
| 32 | #define RC_DOWN _Const_(0x0400) |
| 33 | #define RC_UP _Const_(0x0800) |
| 34 | #define RC_CHOP _Const_(0x0C00) |
| 35 | |
| 36 | /* p 15-5: Precision control bits affect only the following: |
| 37 | ADD, SUB(R), MUL, DIV(R), and SQRT */ |
| 38 | #define PR_24_BITS _Const_(0x000) |
| 39 | #define PR_53_BITS _Const_(0x200) |
| 40 | #define PR_64_BITS _Const_(0x300) |
| 41 | #define PR_RESERVED_BITS _Const_(0x100) |
| 42 | /* FULL_PRECISION simulates all exceptions masked */ |
| 43 | #define FULL_PRECISION (PR_64_BITS | RC_RND | 0x3f) |
| 44 | |
| 45 | #endif /* _CONTROLW_H_ */ |