Home
last modified time | relevance | path

Searched refs:mant2 (Results 1 – 25 of 42) sorted by relevance

12

/dports/math/cln/cln-1.3.6/src/float/ffloat/elem/
H A Dcl_FF_plus.cc54 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 Dcl_SF_plus.cc43 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 Dcl_SF_mul.cc41 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 Dcl_SF_div.cc44 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 Dmachdep.h84 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 Dtif_machdep.c39 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 Dcl_DF_plus.cc54 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 Dcl_DF_div.cc92 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 Dfsadd.c57 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 Dfsdiv.c61 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 Dsfloat.d277 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 Dffloat.d348 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 Ddfloat.d594 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.c172 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.c175 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c342 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 Dtif_vms.c356 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 Dtif_vms.c358 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;\

12