/dports/math/cln/cln-1.3.6/src/float/ffloat/elem/ |
H A D | cl_FF_plus.cc | 54 var uintL mant2; in operator +() 56 FF_decode(x2, { return x1; }, sign2=,exp2=,mant2=); in operator +() 62 swap(uintL, mant1,mant2); in operator +() 68 mant1 = mant1 << 3; mant2 = mant2 << 3; in operator +() 70 {var uintL mant2_last = mant2 & (bit(expdiff)-1); // letzte expdiff Bits von mant2 in operator +() 71 mant2 = mant2 >> expdiff; if (!(mant2_last==0)) { mant2 |= bit(0); } in operator +() 77 { if (mant1 > mant2) { mant1 = mant1 - mant2; goto norm_2; } in operator +() 78 if (mant1 == mant2) // Ergebnis 0 ? in operator +() 81 mant1 = mant2 - mant1; sign1 = sign2; goto norm_2; in operator +() 85 { mant1 = mant1 + mant2; } in operator +()
|
/dports/math/cln/cln-1.3.6/src/float/sfloat/elem/ |
H A D | cl_SF_plus.cc | 43 var uintL mant2; in operator +() local 45 SF_decode(x2, { return x1; }, sign2=,exp2=,mant2=); in operator +() 51 swap(uintL, mant1,mant2); in operator +() 57 mant1 = mant1 << 3; mant2 = mant2 << 3; in operator +() 59 {var uintL mant2_last = mant2 & (bit(expdiff)-1); // letzte expdiff Bits von mant2 in operator +() 60 mant2 = mant2 >> expdiff; if (!(mant2_last==0)) { mant2 |= bit(0); } in operator +() 66 { if (mant1 > mant2) { mant1 = mant1 - mant2; goto norm_2; } in operator +() 67 if (mant1 == mant2) // Ergebnis 0 ? in operator +() 70 mant1 = mant2 - mant1; sign1 = sign2; goto norm_2; in operator +() 74 { mant1 = mant1 + mant2; } in operator +()
|
H A D | cl_SF_mul.cc | 41 var uintL mant2; in operator *() local 43 SF_decode(x2, { return x2; }, sign2=,exp2=,mant2=); in operator *() 50 mantlo = mulu16(mant1,mant2); in operator *() 54 manthi = mulu16(low16(mant1),low16(mant2)); in operator *() 56 manthi = (uint32)(high16(manthi)) + (uint32)(low16(mant1)) + mant2; in operator *() 58 mulu24(mant1,mant2, manthi=,mantlo=); in operator *()
|
H A D | cl_SF_div.cc | 44 var uintL mant2; in operator /() local 45 SF_decode(x2, { throw division_by_0_exception(); }, sign2=,exp2=,mant2=); in operator /() 54 divu_6432_3232(mant1<<1,0, mant2<<(32-(SF_mant_len+1)), mant=,rest=); in operator /()
|
/dports/x11/xloadimage/xloadimage.4.1/tiff/ |
H A D | machdep.h | 84 unsigned mant2; member 113 (dp)->native.mant2 <<= 3; \ 129 unsigned mant2:16; member 136 unsigned mant2:16; member 162 t.native.mant2 = v;\ 172 t.native.mant2 = v;\ 193 unsigned mant2; member 198 unsigned mant2; 203 unsigned long mant2; 208 unsigned mant2; [all …]
|
H A D | tif_machdep.c | 39 u_long mant2; member 51 u_long mant2; member 74 (dp)->native.mant = ((dp)->ieee.mant<<3)|((dp)->native.mant2>>29); \ 75 (dp)->native.mant2 <<= 3; \ 84 u_long mant2; member 96 mant2 : 16; member 103 mant2 : 16; member 114 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 124 t.native.mant2 = v;\ 134 t.native.mant2 = v;\ [all …]
|
/dports/math/cln/cln-1.3.6/src/float/dfloat/elem/ |
H A D | cl_DF_plus.cc | 54 var uint64 mant2; in operator +() 56 DF_decode(x2, { return x1; }, sign2=,exp2=,mant2=); in operator +() 62 swap(uint64, mant1,mant2); in operator +() 68 mant1 = mant1 << 3; mant2 = mant2 << 3; in operator +() 70 {var uint64 mant2_last = mant2 & (bit(expdiff)-1); // letzte expdiff Bits von mant2 in operator +() 71 mant2 = mant2 >> expdiff; if (!(mant2_last==0)) { mant2 |= bit(0); } in operator +() 77 { if (mant1 > mant2) { mant1 = mant1 - mant2; goto norm_2; } in operator +() 78 if (mant1 == mant2) // Ergebnis 0 ? in operator +() 81 mant1 = mant2 - mant1; sign1 = sign2; goto norm_2; in operator +() 85 { mant1 = mant1 + mant2; } in operator +()
|
H A D | cl_DF_div.cc | 92 var uintD mant2 [64/intDsize]; in operator /() 96 arrayLSref(mant2,64/intDsize,0) = mantx2; in operator /() 102 set_32_Dptr(arrayMSDptr(mant2,64/intDsize),manthi2); in operator /() 103 set_32_Dptr(arrayMSDptr(mant2,64/intDsize) mspop 32/intDsize,mantlo2); in operator /() 112 ptr = arrayLSDptr(mant2,64/intDsize); in operator /() 128 arrayMSDptr(mant2,64/intDsize),64/intDsize,arrayLSDptr(mant2,64/intDsize), in operator /()
|
/dports/lang/sdcc/sdcc-4.0.0/device/lib/pic16/libsdcc/float/ |
H A D | fsadd.c | 57 long mant1, mant2; in __fsadd() local 79 mant2 = MANT (fl2.l); in __fsadd() 84 mant2 = -mant2; in __fsadd() 88 mant2 >>= exp1 - exp2; in __fsadd() 95 mant1 += mant2; in __fsadd()
|
H A D | fsdiv.c | 61 long mant1, mant2; in __fsdiv() local 89 mant2 = MANT (fl2.l); in __fsdiv() 92 if (mant1 < mant2) in __fsdiv() 103 if (mant1 >= mant2) in __fsdiv() 106 mant1 -= mant2; in __fsdiv()
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | sfloat.d | 277 var uintL mant2; in SF_SF_plus_SF() local 284 swap(uintL, mant1,mant2); in SF_SF_plus_SF() 290 mant1 = mant1 << 3; mant2 = mant2 << 3; in SF_SF_plus_SF() 293 var uintL mant2_last = mant2 & (bit(expdiff)-1); # letzte expdiff Bits von mant2 in SF_SF_plus_SF() 294 mant2 = mant2 >> expdiff; if (!(mant2_last==0)) { mant2 |= bit(0); } in SF_SF_plus_SF() 300 if (mant1 > mant2) { in SF_SF_plus_SF() 301 mant1 = mant1 - mant2; in SF_SF_plus_SF() 310 mant1 = mant1 + mant2; in SF_SF_plus_SF() 408 var uintL mant2; in SF_SF_mult_SF() local 478 # mant1/mant2 > 1/2, mant1/mant2 < 2; [all …]
|
H A D | ffloat.d | 348 var uintL mant2; in FF_FF_plus_FF() local 361 mant1 = mant1 << 3; mant2 = mant2 << 3; in FF_FF_plus_FF() 364 var uintL mant2_last = mant2 & (bit(expdiff)-1); # letzte expdiff Bits von mant2 in FF_FF_plus_FF() 365 mant2 = mant2 >> expdiff; in FF_FF_plus_FF() 367 mant2 |= bit(0); in FF_FF_plus_FF() 373 if (mant1 > mant2) { in FF_FF_plus_FF() 383 mant1 = mant1 + mant2; in FF_FF_plus_FF() 481 # 2^-24 * mant1 * 2^-24 * mant2 = 2^-48 * (mant1*mant2), 510 var uintL mant2; in FF_FF_mult_FF() local 572 # mant1/mant2 > 1/2, mant1/mant2 < 2; [all …]
|
H A D | dfloat.d | 594 var uint64 mant2; in DF_DF_plus_DF() local 607 mant1 = mant1 << 3; mant2 = mant2 << 3; in DF_DF_plus_DF() 611 mant2 = mant2 >> expdiff; if (mant2_last!=0) { mant2 |= bitQ(0); } in DF_DF_plus_DF() 891 var uint64 mant2; in DF_DF_mult_DF() local 893 manthi2 = (uint32)(mant2>>32); mantlo2 = (uint32)mant2; in DF_DF_mult_DF() 907 set_32_Dptr(mant2,manthi2); set_32_Dptr(&mant2[32/intDsize],mantlo2); in DF_DF_mult_DF() 1059 var uint64 mant2; in DF_DF_div_DF() local 1073 mant2 = mant2 << (64-(DF_mant_len+1)); in DF_DF_div_DF() 1075 manthi2 = (uint32)(mant2>>32); mantlo2 = (uint32)mant2; in DF_DF_div_DF() 1085 set_32_Dptr(mant2,manthi2); set_32_Dptr(&mant2[32/intDsize],mantlo2); in DF_DF_div_DF() [all …]
|
/dports/lang/sdcc/sdcc-4.0.0/device/lib/ |
H A D | _fsadd.c | 172 long mant1, mant2; in __fsadd() local 180 mant2 = MANT (*pfl2) << 4; in __fsadd() 182 mant2 = -mant2; in __fsadd() 211 mant2 >>= expd; in __fsadd() 213 mant1 += mant2; in __fsadd()
|
/dports/lang/sdcc/sdcc-4.0.0/device/lib/pic14/libsdcc/ |
H A D | _fsadd.c | 175 long mant1, mant2; in __fsadd() local 193 mant2 = MANT (_LONG(pfl2)) << 4; in __fsadd() 195 mant2 = -mant2; in __fsadd() 224 mant2 >>= expd; in __fsadd() 226 mant1 += mant2; in __fsadd()
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/TIFF/src/itktiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/x11-toolkits/wxgtk28-contrib/wxGTK-2.8.12/src/tiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/x11-toolkits/wxgtk28-contrib-common/wxGTK-2.8.12/src/tiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/x11-toolkits/wxgtk28/wxGTK-2.8.12/src/tiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/x11-toolkits/wxgtk28-common/wxGTK-2.8.12/src/tiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/math/vtk6/VTK-6.2.0/ThirdParty/tiff/vtktiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/graphics/megapov/megapov-1.2.1/libraries/tiff/libtiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/graphics/povray36/povray-3.6.1/libraries/tiff/libtiff/ |
H A D | tif_vms.c | 342 u_long mant2; /* fix NDR: full 8-byte swap */ member 362 mant2 : 16, member 370 mant2 : 16; member 439 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 451 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 504 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 506 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 522 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 532 t.native.mant2 = v;\
|
/dports/graphics/freeimage/FreeImage/Source/LibTIFF4/ |
H A D | tif_vms.c | 356 unsigned long mant2; /* fix NDR: full 8-byte swap */ member 376 mant2 : 16, member 384 mant2 : 16; member 453 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 465 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 518 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 520 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 536 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 546 t.native.mant2 = v;\
|
/dports/math/vtk8/VTK-8.2.0/ThirdParty/tiff/vtktiff/libtiff/ |
H A D | tif_vms.c | 358 unsigned long mant2; /* fix NDR: full 8-byte swap */ member 378 mant2 : 16, member 386 mant2 : 16; member 455 if (!(mant || source.ieee.mant2)) { /* zero */ in ieeetod() 467 ((double) source.ieee.mant2) / (((double) (1<<16)) * in ieeetod() 520 num.ieee.mant2 = (long) (x*((double) (1<<16)*(double) (1<<16))); in dtoieee() 522 if (!(num.ieee.mant || num.ieee.exp || num.ieee.mant2)) { in dtoieee() 538 t.ieee.mant = ((fp)->native.mant1<<16)|(fp)->native.mant2; \ 548 t.native.mant2 = v;\
|