Sall
Sall(sgl_value) = \
(unsigned)(Sall(sgl_value) << SGL_EXP_LENGTH)>>(31 - exponent)
{Sall(sgl_value) <<= SGL_EXP_LENGTH; /* left-justify */ \
Dintp2(dresultB) = (unsigned)Sall(sgl_value) >> (31 - exponent); \
Dintp1(dresultA) = Sall(sgl_value) >> (63 - exponent); \
Dintp2(dresultB) = Sall(sgl_value) << (exponent - 31); \
Sall(sgl_value)++
Duintp2(duint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
Sall(result) = (unsigned)(Sall(src) << SGL_EXP_LENGTH)>>(31 - exponent)
{unsigned int val = Sall(sgl_value) << SGL_EXP_LENGTH; \
(Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) : FALSE)
Sall(sgl_value)++
Dintp2(dint_valueB) || Slow(sgl_value)) Sall(sgl_value)++
((Sall(sgl_value) << (SGL_EXP_LENGTH + 1 + exponent)) >> 31)
Sall(sgl_value) << (SGL_EXP_LENGTH + 2 + exponent) : FALSE)
# define Sgl_decrement(sgl_value) Sall(sgl_value)--
if (Sbit28(opnd1)) Sall(opnd3) += (Sall(opnd2) << 3);
if (Sbit29(opnd1)) Sall(opnd3) += (Sall(opnd2) << 2);
if (Sbit30(opnd1)) Sall(opnd3) += (Sall(opnd2) << 1);
if (Sbit31(opnd1)) Sall(opnd3) += Sall(opnd2);
(Sall(sgl_op1) < Sall(sgl_op2))
(Sall(sgl_op1) > Sall(sgl_op2))
(Sall(sgl_op1) >= Sall(sgl_op2))
(Sall(sgl_op1) == Sall(sgl_op2))
Sall(sgl_value) <<= 8
Sall(sgl_value) <<= 4
Sall(sgl_value) <<= 3
Sall(sgl_value) <<= 2
Sall(sgl_value) <<= 1
Sall(sgl_value) >>= 1
Sall(sgl_value) >>= 4
Sall(sgl_value) >>= 8
#define Sgl_firstword(value) Sall(value)
Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH)))
Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) \
Sall(sgl_value) = (SGL_INFINITY_EXPONENT << (32-(1+SGL_EXP_LENGTH))) | \
#define Sgl_setzero_sign(sgl_value) Sall(sgl_value) &= 0x7fffffff
#define Sgl_setzero_exponent(sgl_value) Sall(sgl_value) &= 0x807fffff
#define Sgl_setzero_mantissa(sgl_value) Sall(sgl_value) &= 0xff800000
#define Sgl_setzero_exponentmantissa(sgl_value) Sall(sgl_value) &= 0x80000000
#define Sgl_setzero(sgl_value) Sall(sgl_value) = 0
#define Sgl_setnegativezero(sgl_value) Sall(sgl_value) = (unsigned int)1 << 31
Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
Sall(sgl_value) = \
Sall(sgl_value) = (unsigned int)sign << 31 | \
Sall(sgl_value) = Sall(sgl_value) & ((unsigned int)1<<31) | \
Extall(extent) = Sall(srcdst) << (32-(shift)); \
Sall(srcdst) >>= shift; \
Extall(extent) = Sall(srcdst); \
Sall(srcdst) = 0; \
Sall(sgl_result) = Sall(sgl_left) - Sall(sgl_right)
Sall(result) = Sall(result)-1
Sall(sgl_result) = Sall(sgl_left) + Sall(sgl_right)
result = Sall(left) XOR Sall(right);
Sall(result) = left XOR Sall(right)
#define Sgl_all(object) Sall(object)
Sall(dest) = ((SGL_EMAX+SGL_BIAS)+1)<< (32-(1+SGL_EXP_LENGTH)) \
Sall(dest) = ((SGL_EMAX+SGL_BIAS)+1)<< (32-(1+SGL_EXP_LENGTH)) \
Sall(src1dst) = (Sall(src2)|~((unsigned int)1<<31)) & Sall(src1dst)
guard = (Sall(opnd) >> -exponent) & 1; \
if (exponent < 0) sticky |= Sall(opnd) << (32+exponent); \
Sall(opnd) >>= (1-exponent); \
sticky |= Sall(opnd); \
Sall(src1dst) = (Sall(src2)&((unsigned int)1<<31)) | Sall(src1dst)
Sextallp1(dest1) = Sall(src1); Sextallp2(dest2) = 0
#define Sgl_clear_sign(srcdst) Sall(srcdst) &= ~((unsigned int)1<<31)
#define Sgl_clear_signexponent(srcdst) Sall(srcdst) &= 0x007fffff
Sall(srcdst) >>= varamount
Sall(srcdst) <<= varamount
Sall(srcdst) = \
(Sall(srcdst) & ((unsigned int)1<<31))
Shiftdouble(Sall(left),Extall(right),31,Sall(result))
Shiftdouble(Sall(left),Extall(right),1,Extall(right))
Sall(srcdst) = (int)Sall(srcdst) >> 1
#define Sgl_increment(sgl_value) Sall(sgl_value) += 1
#define Sgl_decrement(sgl_value) Sall(sgl_value) -= 1
#define Sgl_isnotzero(sgl_value) (Sall(sgl_value)!=0)
#define Sgl_iszero(sgl_value) (Sall(sgl_value)==0)