dt/int/sc_nbcommon.inc

52     sc_value_base(), sgn(), nbits(), ndigits(), digit()
54     sgn = default_sign();
71 // Create a copy of v with sgn s. v is of the same type.
73     sc_value_base(v), sgn(v.sgn), nbits(v.nbits), ndigits(v.ndigits), digit()
85     sc_value_base(v), sgn(v.sgn), nbits(num_bits(v.nbits)), ndigits(), digit()
102     sc_value_base(), sgn(), nbits(), ndigits(), digit()
105     sgn = default_sign();
123     sc_value_base(), sgn(), nbits(), ndigits(), digit()
126     sgn = default_sign();
144     sc_value_base(v), sgn(), nbits(), ndigits(), digit()
147     sgn = default_sign();
165     sc_value_base(v), sgn(), nbits(), ndigits(), digit()
168     sgn = default_sign();
186     sc_value_base(v), sgn(), nbits(), ndigits(), digit()
189     sgn = default_sign();
207     sc_value_base(v), sgn(), nbits(), ndigits(), digit()
210     sgn = default_sign();
241         sgn = v.sgn;
243         if (sgn == SC_ZERO)
256     sgn = v.sgn;
258     if (sgn == SC_ZERO)
303 // 3. if sgn(u) == sgn(v)
304 //    3.1 u + v = +(u + v) = sgn(u) * (u + v)
305 //    3.2 (-u) + (-v) = -(u + v) = sgn(u) * (u + v)
306 // 4. if sgn(u) != sgn(v)
307 //    4.1 u + (-v) = u - v = sgn(u) * (u - v)
308 //    4.2 (-u) + v = -(u - v) ==> sgn(u) * (u - v)
312 // 3. u + 1 = u + 1 = sgn(u) * (u + 1)
313 // 4. (-u) + 1 = -(u - 1) = sgn(u) * (u - 1)
320     if (sgn == SC_ZERO) // case 1
323     if (v.sgn == SC_ZERO) // case 2
327     add_on_help(sgn, nbits, ndigits, digit,
328                 v.sgn, v.nbits, v.ndigits, v.digit);
341     if (sgn == SC_ZERO) // case 1
344     if (v.sgn == SC_ZERO) // case 2
348     add_on_help(sgn, nbits, ndigits, digit,
349                 v.sgn, v.nbits, v.ndigits, v.digit);
376     small_type s = sgn;
391     if (sgn == SC_ZERO) // case 1
400     add_on_help(sgn, nbits, ndigits, digit,
414     if (sgn == SC_ZERO) // case 1
423     add_on_help(sgn, nbits, ndigits, digit,
437     if (sgn == SC_ZERO) // case 1
446     add_on_help(sgn, nbits, ndigits, digit,
460     if (sgn == SC_ZERO) // case 1
469     add_on_help(sgn, nbits, ndigits, digit,
485 // 3. if sgn(u) != sgn(v)
486 //    3.1 u - (-v) = u + v = sgn(u) * (u + v)
487 //    3.2 (-u) - v = -(u + v) ==> sgn(u) * (u + v)
488 // 4. if sgn(u) == sgn(v)
489 //    4.1 u - v = +(u - v) = sgn(u) * (u - v)
490 //    4.2 (-u) - (-v) = -(u - v) = sgn(u) * (u - v)
494 // 3. (-u) - 1 = -(u + 1) = sgn(u) * (u + 1)
495 // 4. u - 1 = u - 1 = sgn(u) * (u - 1)
501     if (v.sgn == SC_ZERO) // case 1
503     if (sgn == SC_ZERO) { // case 2
504         sgn = -v.sgn;
508         add_on_help(sgn, nbits, ndigits, digit,
509                   -v.sgn, v.nbits, v.ndigits, v.digit);
521     if (v.sgn == SC_ZERO) // case 1
523     if (sgn == SC_ZERO) { // case 2
524         sgn = -v.sgn;
528         add_on_help(sgn, nbits, ndigits, digit,
529                   -v.sgn, v.nbits, v.ndigits, v.digit);
552     small_type s = sgn;
565     if (sgn == SC_ZERO) // case 2
571     add_on_help(sgn, nbits, ndigits, digit,
590     if (sgn == SC_ZERO) // case 2
596     add_on_help(sgn, nbits, ndigits, digit,
612     if (sgn == SC_ZERO) // case 2
618     add_on_help(sgn, nbits, ndigits, digit,
637     if (sgn == SC_ZERO) // case 2
643     add_on_help(sgn, nbits, ndigits, digit,
667     sgn = mul_signs(sgn, v.sgn);
669     if (sgn == SC_ZERO) { // case 1
673         MUL_ON_HELPER(sgn,    nbits, ndigits, digit,
686     sgn = mul_signs(sgn, v.sgn);
688     if (sgn == SC_ZERO) { // case 1
692         MUL_ON_HELPER(sgn,    nbits, ndigits, digit,
705     sgn = mul_signs(sgn, get_sign(v));
707     if (sgn == SC_ZERO) { // case 1
711         MUL_ON_HELPER(sgn, nbits, ndigits, digit,
723     sgn = mul_signs(sgn, get_sign(v));
725     if (sgn == SC_ZERO) { // case 1
729         MUL_ON_HELPER(sgn,    nbits, ndigits, digit,
742     sgn = mul_signs(sgn, get_sign(v));
744     if (sgn == SC_ZERO) { // case 1
748         MUL_ON_HELPER(sgn,    nbits, ndigits, digit,
760     sgn = mul_signs(sgn, get_sign(v));
762     if (sgn == SC_ZERO) { // case 1
766         MUL_ON_HELPER(sgn,    nbits, ndigits, digit,
789     sgn = mul_signs(sgn, v.sgn);
791     if (sgn == SC_ZERO) {
792         div_by_zero(v.sgn); // case 1
795         DIV_ON_HELPER(sgn, nbits, ndigits, digit,
805     sgn = mul_signs(sgn, v.sgn);
807     if (sgn == SC_ZERO) {
808         div_by_zero(v.sgn); // case 1
811         DIV_ON_HELPER(sgn, nbits, ndigits, digit,
823     sgn = mul_signs(sgn, get_sign(v));
825     if (sgn == SC_ZERO) {
831         DIV_ON_HELPER(sgn, nbits, ndigits, digit,
843     sgn = mul_signs(sgn, get_sign(v));
845     if (sgn == SC_ZERO) {
851         DIV_ON_HELPER(sgn, nbits, ndigits, digit,
863     sgn = mul_signs(sgn, get_sign(v));
865     if (sgn == SC_ZERO) {
871         DIV_ON_HELPER(sgn,    nbits, ndigits, digit,
883     sgn = mul_signs(sgn, get_sign(v));
885     if (sgn == SC_ZERO) {
891         DIV_ON_HELPER(sgn,    nbits, ndigits, digit,
913     if ((sgn == SC_ZERO) || (v.sgn == SC_ZERO)) {
914         div_by_zero(v.sgn); // case 1
917         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
927     if ((sgn == SC_ZERO) || (v.sgn == SC_ZERO)) {
928         div_by_zero(v.sgn); // case 1
931         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
944     if ((sgn == SC_ZERO) || (vs == SC_ZERO)) {
950         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
960     if ((sgn == SC_ZERO) || (v == 0)) {
966         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
979     if ((sgn == SC_ZERO) || (vs == SC_ZERO)) {
985         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
995     if ((sgn == SC_ZERO) || (v == 0)) {
1001         MOD_ON_HELPER(sgn, nbits, ndigits, digit,
1014 // 2. u    &v => sgn = +
1015 // 3. (-u) & (-v) => sgn = -
1016 // 4. u & (-v) => sgn = +
1017 // 5. (-u)    &v => sgn = +
1023     if ((sgn == SC_ZERO) || (v.sgn == SC_ZERO)) { // case 1
1026         and_on_help(sgn, nbits, ndigits, digit,
1027                     v.sgn, v.nbits, v.ndigits, v.digit);
1039     if ((sgn == SC_ZERO) || (v.sgn == SC_ZERO)) { // case 1
1042         and_on_help(sgn, nbits, ndigits, digit,
1043                     v.sgn, v.nbits, v.ndigits, v.digit);
1054     if ((sgn == SC_ZERO) || (v == 0)) { // case 1
1058         and_on_help(sgn, nbits, ndigits, digit,
1070     if ((sgn == SC_ZERO) || (v == 0)) { // case 1
1074         and_on_help(sgn, nbits, ndigits, digit,
1087     if ((sgn == SC_ZERO) || (v == 0)) { // case 1
1091         and_on_help(sgn, nbits, ndigits, digit,
1104     if ((sgn == SC_ZERO) || (v == 0)) { // case 1
1108         and_on_help(sgn, nbits, ndigits, digit,
1123 // 3. u | v => sgn = +
1124 // 4. (-u) | (-v) => sgn = -
1125 // 5. u | (-v) => sgn = -
1126 // 6. (-u) | v => sgn = -
1131     if (v.sgn == SC_ZERO) // case 1
1133     if (sgn == SC_ZERO) // case 2
1136     or_on_help(sgn, nbits, ndigits, digit,
1137                v.sgn, v.nbits, v.ndigits, v.digit);
1146     if (v.sgn == SC_ZERO) // case 1
1148     if (sgn == SC_ZERO) // case 2
1151     or_on_help(sgn, nbits, ndigits, digit,
1152                v.sgn, v.nbits, v.ndigits, v.digit);
1163     if (sgn == SC_ZERO) // case 2
1167     or_on_help(sgn, nbits, ndigits, digit,
1179     if (sgn == SC_ZERO) // case 2
1183     or_on_help(sgn, nbits, ndigits, digit,
1195     if (sgn == SC_ZERO) // case 2
1199     or_on_help(sgn, nbits, ndigits, digit,
1211     if (sgn == SC_ZERO) // case 2
1215     or_on_help(sgn, nbits, ndigits, digit,
1230 // 3. u ^ v => sgn = +
1231 // 4. (-u) ^ (-v) => sgn = -
1232 // 5. u ^ (-v) => sgn = -
1233 // 6. (-u) ^ v => sgn = +
1239     if (v.sgn == SC_ZERO) // case 1
1241     if (sgn == SC_ZERO) // case 2
1244     xor_on_help(sgn, nbits, ndigits, digit,
1245                 v.sgn, v.nbits, v.ndigits, v.digit);
1255     if (v.sgn == SC_ZERO) // case 1
1257     if (sgn == SC_ZERO) // case 2
1260     xor_on_help(sgn, nbits, ndigits, digit,
1261                 v.sgn, v.nbits, v.ndigits, v.digit);
1272     if (sgn == SC_ZERO) // case 2
1276     xor_on_help(sgn, nbits, ndigits, digit,
1288     if (sgn == SC_ZERO) // case 2
1292     xor_on_help(sgn, nbits, ndigits, digit,
1304     if (sgn == SC_ZERO) // case 2
1308     xor_on_help(sgn, nbits, ndigits, digit,
1320     if (sgn == SC_ZERO) // case 2
1324     xor_on_help(sgn, nbits, ndigits, digit,
1338     small_type s = u.sgn;
1373     if (v.sgn == SC_ZERO)
1376     if (v.sgn == SC_NEG)
1386     if (v.sgn == SC_ZERO)
1389     if (v.sgn == SC_NEG)
1399     if (v.sgn == SC_ZERO)
1402     if (v.sgn == SC_NEG)
1458     if (u.sgn == SC_ZERO)
1472     convert_SM_to_2C(u.sgn, nd, d);
1493     if (sgn == SC_ZERO)
1509     if (v.sgn == SC_ZERO)
1512     if (v.sgn == SC_NEG)
1522     if (v.sgn == SC_ZERO)
1525     if (v.sgn == SC_NEG)
1535     if (v.sgn == SC_ZERO)
1538     if (v.sgn == SC_NEG)
1594     if (u.sgn == SC_ZERO)
1607     convert_SM_to_2C(u.sgn, nd, d);
1608     if (u.sgn == SC_NEG)
1631     if (sgn == SC_ZERO)
1636     if (sgn == SC_NEG)
1933 if (sgn == SC_ZERO) \
1939 if (sgn == SC_NEG) \
1972     if (sgn == SC_ZERO)
1979     if (sgn == SC_NEG) {
1986         convert_SM_to_2C_trimmed(IF_SC_SIGNED, sgn, nbits, ndigits, d);
2003     if (sgn == SC_ZERO)
2009     if (sgn == SC_NEG) {
2016         convert_SM_to_2C_trimmed(IF_SC_SIGNED, sgn, nbits, ndigits, d);
2033     if (sgn == SC_ZERO)
2038     if (sgn == SC_NEG) {
2045         convert_SM_to_2C_trimmed(IF_SC_SIGNED, sgn, nbits, ndigits, d);
2063     if (sgn == SC_ZERO)
2070     if (sgn == SC_NEG)
2086         if (sgn == SC_NEG)
2099     if (sgn == SC_NEG) {
2170     if (sgn == SC_ZERO)
2180     if (sgn == SC_POS) {
2183         // If sgn is negative, we have to convert digit to its 2's
2242 // Create a copy of v with sgn s.
2244     sc_value_base(v), sgn(s), nbits(v.nbits), ndigits(v.ndigits), digit()
2255     sc_value_base(v), sgn(s), nbits(num_bits(v.nbits)), ndigits(), digit()
2275     sc_value_base(), sgn(s), nbits(num_bits(nb)), ndigits(), digit()
2298         sc_value_base(), sgn(), nbits(), ndigits(), digit()
2321     if (u->sgn == SC_ZERO || nbits <= num_bits(0)) {
2322         sgn = SC_ZERO;
2350     if (u->sgn == SC_NEG)
2364     if (u->sgn == SC_NEG) {
2415         if (u->sgn == SC_NEG)
2437         sc_value_base(), sgn(), nbits(), ndigits(), digit()
2460     if (u->sgn == SC_ZERO || nbits <= num_bits(0)) {
2461         sgn = SC_ZERO;
2489     if (u->sgn == SC_NEG)
2503     if (u->sgn == SC_NEG) {
2555         if (u->sgn == SC_NEG)