操作系统开发

开发平台：

WINDOWS

LIB.PS：源码内容

(18721)210 648 A
(SINGLE)252 1026 A
(src;)168 1362 A
4680 V
(18722)210 648 A
1026({)S
4770 V
(18723)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
4860 V
(18724)210 648 A
4950 V
(18725)210 648 A
(extend(&src,&buf,sizeof(SINGLE));)1386 1362 A
3042(/*)S
3168(no)S
(matter)252 3294 A
(what)168 3588 A
3798(*/)S
5040 V
(18726)210 648 A
(compact(&buf,)546 1362 A
(&src,sizeof(DOUBLE));)882 1950 A
5130 V
(18727)210 648 A
1026(})S
8418 V
EP
%%Page: 165 165
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2051(File:)S
(src/lib/float/cfi.c)740 2284 A
12 B
(165)180 4248 A
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/cfi.c)798 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(18800)210 648 A
1026(/*)S
1440 V
(18801)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(18802)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(18803)210 648 A
1026(*/)S
1710 V
(18804)210 648 A
1800 V
(18805)210 648 A
1026(/*)S
($Header:)336 1152 A
(cfi.c,v)294 1530 A
(1.5)126 1866 A
(93/01/05)336 2034 A
(12:03:48)336 2412 A
(ceriel)252 2790 A
(Exp)126 3084 A
3252($)S
3336(*/)S
1890 V
(18806)210 648 A
1980 V
(18807)210 648 A
1026(/*)S
2070 V
(18808)210 648 A
(CONVERT)294 1698 A
(FLOAT)210 2034 A
2286(TO)S
(SIGNED)252 2412 A
((CFI)168 2706 A
2916(m)S
3000(n))S
2160 V
(18809)210 648 A
2250 V
(18810)210 648 A
(N.B.)168 1698 A
(The)126 1908 A
(caller)252 2076 A
(must)168 2370 A
(know)168 2580 A
(what)168 2790 A
3000(it)S
3126(is)S
(getting.)336 3252 A
2340 V
(18811)210 648 A
1908(A)S
(LONG)168 1992 A
2202(is)S
(always)252 2328 A
(returned.)378 2622 A
3042(If)S
3168(it)S
3294(is)S
3420(an)S
2430 V
(18812)210 648 A
(integer)294 1908 A
(the)126 2244 A
(high)168 2412 A
(byte)168 2622 A
2832(is)S
(cleared)294 2958 A
(first.)252 3294 A
2520 V
(18813)210 648 A
1026(*/)S
2610 V
(18814)210 648 A
2700 V
(18815)210 648 A
(#include)336 1026 A
("FP_trap.h")462 1404 A
2790 V
(18816)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2880 V
(18817)210 648 A
(#include)336 1026 A
("FP_shift.h")504 1404 A
2970 V
(18818)210 648 A
3060 V
(18819)210 648 A
(long)168 1026 A
3150 V
(18820)210 648 A
(cfi(ds,ss,src))588 1026 A
3240 V
(18821)210 648 A
(int)126 1026 A
(ds;)126 1362 A
1698(/*)S
(destination)462 1824 A
(size)168 2328 A
2538((2)S
2664(or)S
2790(4))S
2916(*/)S
3330 V
(18822)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2538((4)S
2664(or)S
2790(8))S
2916(*/)S
3420 V
(18823)210 648 A
(DOUBLE)252 1026 A
(src;)168 1362 A
1698(/*)S
(assume)252 1824 A
(worst)210 2118 A
(case)168 2370 A
2580(*/)S
3510 V
(18824)210 648 A
1026({)S
3600 V
(18825)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
3690 V
(18826)210 648 A
(long)168 1362 A
(new;)168 1698 A
3780 V
(18827)210 648 A
(short)210 1362 A
(max_exp;)336 1698 A
3870 V
(18828)210 648 A
3960 V
(18829)210 648 A
(extend(&src.d[0],&buf,ss);)1092 1362 A
2706(/*)S
(get)126 2832 A
(extended)336 3000 A
(format)252 3378 A
3672(*/)S
4050 V
(18830)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(<)S
1950(0))S
2076({)S
2370(/*)S
2496(no)S
(conversion)420 2622 A
(needed)252 3084 A
3378(*/)S
4140 V
(18831)210 648 A
(src.d[ss)336 1698 A
2076(==)S
2202(8])S
2328(=)S
(0L;)126 2412 A
4230 V
(18832)210 648 A
(return(0L);)462 1698 A
4320 V
(18833)210 648 A
1362(})S
4410 V
(18834)210 648 A
(max_exp)294 1362 A
1698(=)S
((ds)126 1782 A
1950(<<)S
2076(3))S
2202(-)S
2286(2;)S
2706(/*)S
(signed)252 2832 A
(numbers)294 3126 A
3462(*/)S
4500 V
(18835)210 648 A
2370(/*)S
(have)168 2496 A
(more)168 2706 A
(limited)294 2916 A
(max_exp)294 3252 A
3588(*/)S
4590 V
(18836)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(>)S
(max_exp))336 1950 A
2328({)S
4680 V
(18837)210 648 A
1698(if)S
((buf.exp)336 1824 A
2202(==)S
(max_exp+1)378 2328 A
2748(&&)S
(buf.sign)336 2874 A
3252(&&)S
(buf.m1)252 3378 A
3672(==)S
(NORMBIT)294 3798 A
4134(&&)S
4770 V
(18838)210 648 A
(buf.m2)252 1866 A
2160(==)S
(0L))126 2286 A
2454({)S
4860 V
(18839)210 648 A
1698(})S
4950 V
(18840)210 648 A
(else)168 1698 A
1908({)S
5040 V
(18841)210 648 A
(trap(EIOVFL);)546 2034 A
2706(/*)S
(integer)294 2832 A
(overflow)336 3168 A
3714(*/)S
5130 V
(18842)210 648 A
(buf.exp)294 2034 A
2370(%=)S
(max_exp;)336 2496 A
2874(/*)S
(truncate)336 3000 A
3378(*/)S
5220 V
(18843)210 648 A
1698(})S
5310 V
(18844)210 648 A
1362(})S
5400 V
(18845)210 648 A
(new)126 1362 A
1530(=)S
(buf.m1)252 1614 A
1908(>>)S
((31-buf.exp);)546 2034 A
5490 V
(18846)210 648 A
1362(if)S
((buf.sign))420 1488 A
5580 V
(18847)210 648 A
(new)126 1698 A
1866(=)S
(-new;)210 1950 A
5670 V
(18848)210 648 A
(done:)210 1026 A
5760 V
(18849)210 648 A
(src.d[ss)336 1362 A
1740(==)S
1866(8])S
1992(=)S
(new;)168 2076 A
5850 V
(18850)210 648 A
(return(new);)504 1362 A
5940 V
(18851)210 648 A
1026(})S
8418 V
EP
%%Page: 166 166
BP
/slant 0 def
/height 0 def
630 V
12 B
(166)180 648 A
11 R
2039(File:)S
(src/lib/float/cfu.c)764 2272 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/cfu.c)798 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(18900)210 648 A
1026(/*)S
1440 V
(18901)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(18902)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(18903)210 648 A
1026(*/)S
1710 V
(18904)210 648 A
1800 V
(18905)210 648 A
1026(/*)S
($Header:)336 1152 A
(cfu.c,v)294 1530 A
(1.5)126 1866 A
(93/01/05)336 2034 A
(12:03:55)336 2412 A
(ceriel)252 2790 A
(Exp)126 3084 A
3252($)S
3336(*/)S
1890 V
(18906)210 648 A
1980 V
(18907)210 648 A
1026(/*)S
2070 V
(18908)210 648 A
(CONVERT)294 1698 A
(FLOAT)210 2034 A
2286(TO)S
(UNSIGNED)336 2412 A
((CFU)168 2790 A
3000(m)S
3084(n))S
2160 V
(18909)210 648 A
2250 V
(18910)210 648 A
(N.B.)168 1698 A
(The)126 1908 A
(caller)252 2076 A
(must)168 2370 A
(know)168 2580 A
(what)168 2790 A
3000(it)S
3126(is)S
(getting.)336 3252 A
2340 V
(18911)210 648 A
1908(A)S
(LONG)168 1992 A
2202(is)S
(always)252 2328 A
(returned.)378 2622 A
3042(If)S
3168(it)S
3294(is)S
3420(an)S
2430 V
(18912)210 648 A
(integer)294 1908 A
(the)126 2244 A
(high)168 2412 A
(byte)168 2622 A
2832(is)S
(cleared)294 2958 A
(first.)252 3294 A
2520 V
(18913)210 648 A
1026(*/)S
2610 V
(18914)210 648 A
2700 V
(18915)210 648 A
(#include)336 1026 A
("FP_trap.h")462 1404 A
2790 V
(18916)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2880 V
(18917)210 648 A
2970 V
(18918)210 648 A
(long)168 1026 A
3060 V
(18919)210 648 A
(cfu(ds,ss,src))588 1026 A
3150 V
(18920)210 648 A
(int)126 1026 A
(ds;)126 1362 A
1698(/*)S
(destination)462 1824 A
(size)168 2328 A
2538((2)S
2664(or)S
2790(4))S
2916(*/)S
3240 V
(18921)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2538((4)S
2664(or)S
2790(8))S
2916(*/)S
3330 V
(18922)210 648 A
(DOUBLE)252 1026 A
(src;)168 1362 A
1698(/*)S
(assume)252 1824 A
(worst)210 2118 A
(case)168 2370 A
2580(*/)S
3420 V
(18923)210 648 A
1026({)S
3510 V
(18924)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
3600 V
(18925)210 648 A
(long)168 1362 A
(new;)168 1698 A
3690 V
(18926)210 648 A
(short)210 1362 A
(newint,)294 1698 A
(max_exp;)336 2034 A
3780 V
(18927)210 648 A
3870 V
(18928)210 648 A
(extend(&src.d[0],&buf,ss);)1092 1362 A
2706(/*)S
(get)126 2832 A
(extended)336 3000 A
(format)252 3378 A
3714(*/)S
3960 V
(18929)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(<)S
1950(0))S
2076({)S
2370(/*)S
2496(no)S
(conversion)420 2622 A
(needed)252 3084 A
3378(*/)S
4050 V
(18930)210 648 A
(src.d[ss)336 1698 A
2076(==)S
2202(8])S
2328(=)S
(0L;)126 2412 A
4140 V
(18931)210 648 A
(return(0L);)462 1698 A
4230 V
(18932)210 648 A
1362(})S
4320 V
(18933)210 648 A
(max_exp)294 1362 A
1698(=)S
((ds)126 1782 A
1950(<<)S
2076(3))S
2202(-)S
2286(1;)S
4410 V
(18934)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(>)S
(max_exp))336 1950 A
2328({)S
4500 V
(18935)210 648 A
(trap(EIOVFL);)546 1698 A
2370(/*)S
(integer)294 2496 A
(overflow)336 2832 A
3378(*/)S
4590 V
(18936)210 648 A
(buf.exp)294 1698 A
2034(%=)S
(max_exp;)336 2160 A
4680 V
(18937)210 648 A
1362(})S
4770 V
(18938)210 648 A
(new)126 1362 A
1530(=)S
(buf.m1)252 1614 A
1908(>>)S
((31-buf.exp);)546 2034 A
4860 V
(18939)210 648 A
(done:)210 1026 A
4950 V
(18940)210 648 A
(src.d[ss)336 1362 A
1740(==)S
1866(8])S
1992(=)S
(new;)168 2076 A
5040 V
(18941)210 648 A
(return(new);)504 1362 A
5130 V
(18942)210 648 A
1026(})S
8418 V
EP
%%Page: 167 167
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2024(File:)S
(src/lib/float/cif4.c)795 2257 A
12 B
(167)180 4248 A
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/cif4.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(19000)210 648 A
1026(/*)S
1440 V
(19001)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(19002)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(19003)210 648 A
1026(*/)S
1710 V
(19004)210 648 A
1800 V
(19005)210 648 A
1026(/*)S
($Header:)336 1152 A
(cif4.c,v)336 1530 A
(1.5)126 1908 A
(93/01/05)336 2076 A
(12:04:01)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(19006)210 648 A
1980 V
(19007)210 648 A
1026(/*)S
2070 V
(19008)210 648 A
(CONVERT)294 1362 A
(INTEGER)294 1698 A
2034(TO)S
(SINGLE)252 2160 A
((CIF)168 2454 A
2664(n)S
2748(4))S
2160 V
(19009)210 648 A
2250 V
(19010)210 648 A
(THIS)168 1362 A
(ROUTINE)294 1572 A
(WORKS)210 1908 A
2160(BY)S
(FILLING)294 2286 A
2622(AN)S
(EXTENDED)336 2748 A
2340 V
(19011)210 648 A
(WITH)168 1362 A
(THE)126 1572 A
(INTEGER)294 1740 A
(VALUE)210 2076 A
2328(IN)S
(EXTENDED)336 2454 A
(FORMAT)252 2832 A
2430 V
(19012)210 648 A
(AND)126 1362 A
(USES)168 1530 A
(COMPACT())378 1740 A
2160(TO)S
(PUT)126 2286 A
2454(IT)S
(INTO)168 2580 A
(THE)126 2790 A
(PROPER)252 2958 A
2520 V
(19013)210 648 A
(FLOATING)336 1362 A
(POINT)210 1740 A
(PRECISION.)420 1992 A
2610 V
(19014)210 648 A
1026(*/)S
2700 V
(19015)210 648 A
2790 V
(19016)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2880 V
(19017)210 648 A
2970 V
(19018)210 648 A
(void)168 1026 A
3060 V
(19019)210 648 A
(cif4(ss,src))504 1026 A
3150 V
(19020)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2328(*/)S
3240 V
(19021)210 648 A
(long)168 1026 A
(src;)168 1362 A
1698(/*)S
(largest)294 1824 A
(possible)336 2160 A
(integer)294 2538 A
2874(to)S
(convert)294 3000 A
3336(*/)S
3330 V
(19022)210 648 A
1026({)S
3420 V
(19023)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
3510 V
(19024)210 648 A
(short)210 1362 A
(*ipt;)210 1698 A
3600 V
(19025)210 648 A
(long)168 1362 A
(i_src;)252 1698 A
3690 V
(19026)210 648 A
(SINGLE)252 1362 A
(*result;)336 1698 A
3780 V
(19027)210 648 A
3870 V
(19028)210 648 A
(zrf_ext(&buf);)588 1362 A
3960 V
(19029)210 648 A
1362(if)S
((ss)126 1488 A
1656(==)S
(sizeof(long)))546 1782 A
2370({)S
4050 V
(19030)210 648 A
(buf.exp)294 1698 A
2034(=)S
(31;)126 2118 A
4140 V
(19031)210 648 A
(i_src)210 1698 A
1950(=)S
(src;)168 2034 A
4230 V
(19032)210 648 A
(result)252 1698 A
1992(=)S
((SINGLE)294 2076 A
2412(*))S
(&src;)210 2538 A
4320 V
(19033)210 648 A
1362(})S
4410 V
(19034)210 648 A
(else)168 1362 A
1698({)S
4500 V
(19035)210 648 A
(ipt)126 1698 A
1866(=)S
((short)252 1950 A
2244(*))S
(&src;)210 2370 A
4590 V
(19036)210 648 A
(i_src)210 1698 A
1950(=)S
((long))252 2034 A
(*ipt;)210 2328 A
4680 V
(19037)210 648 A
(buf.exp)294 1698 A
2034(=)S
(15;)126 2118 A
4770 V
(19038)210 648 A
(result)252 1698 A
1992(=)S
((SINGLE)294 2076 A
2412(*))S
(&ss;)168 2538 A
4860 V
(19039)210 648 A
1362(})S
4950 V
(19040)210 648 A
1362(if)S
((i_src)252 1488 A
1782(==)S
1908(0))S
2034({)S
5040 V
(19041)210 648 A
(*result)294 1698 A
2034(=)S
((SINGLE))336 2118 A
(0L;)126 2496 A
5130 V
(19042)210 648 A
(return;)294 1698 A
5220 V
(19043)210 648 A
1362(})S
5310 V
(19044)210 648 A
2034(/*)S
(ESTABLISHED)462 2160 A
(THAT)168 2664 A
(src)126 2874 A
3042(!=)S
3168(0)S
3378(*/)S
5400 V
(19045)210 648 A
2034(/*)S
(adjust)252 2160 A
(exponent)336 2454 A
(field)210 2832 A
3378(*/)S
5490 V
(19046)210 648 A
(buf.sign)336 1362 A
1740(=)S
((i_src)252 1824 A
2118(<)S
2202(0))S
2328(?)S
(0x8000)252 2412 A
2706(:)S
2790(0;)S
5580 V
(19047)210 648 A
2034(/*)S
(clear)210 2160 A
(sign)168 2412 A
(bit)126 2622 A
2790(of)S
(integer)294 2916 A
3378(*/)S
5670 V
(19048)210 648 A
2034(/*)S
(move)168 2160 A
2370(to)S
(mantissa)336 2496 A
(field)210 2874 A
3378(*/)S
5760 V
(19049)210 648 A
(buf.m1)252 1362 A
1656(=)S
((i_src)252 1740 A
2034(<)S
2118(0))S
2244(?)S
(-i_src)252 2328 A
2622(:)S
(i_src;)252 2706 A
5850 V
(19050)210 648 A
2034(/*)S
(adjust)252 2160 A
(mantissa)336 2454 A
(field)210 2832 A
3378(*/)S
5940 V
(19051)210 648 A
1362(if)S
((ss)126 1488 A
1656(!=)S
(sizeof(long)))546 1782 A
6030 V
(19052)210 648 A
(buf.m1)252 1698 A
(<<=)126 1992 A
(16;)126 2160 A
6120 V
(19053)210 648 A
(nrm_ext(&buf);)588 1362 A
2370(/*)S
(adjust)252 2496 A
(mantissa)336 2790 A
(field)210 3168 A
3714(*/)S
6210 V
(19054)210 648 A
(compact(&buf,)546 1362 A
(result,sizeof(SINGLE));)966 1950 A
3042(/*)S
(put)126 3168 A
3336(on)S
(stack)210 3462 A
3714(*/)S
8418 V
EP
%%Page: 168 168
BP
/slant 0 def
/height 0 def
630 V
12 B
(168)180 648 A
11 R
2024(File:)S
(src/lib/float/cif4.c)795 2257 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(19055)210 648 A
1026(})S
1440 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1530 V
(src/lib/float/cif8.c)840 1698 A
1620 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1800 V
(19100)210 648 A
1026(/*)S
1890 V
(19101)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1980 V
(19102)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
2070 V
(19103)210 648 A
1026(*/)S
2160 V
(19104)210 648 A
2250 V
(19105)210 648 A
1026(/*)S
($Header:)336 1152 A
(cif8.c,v)336 1530 A
(1.5)126 1908 A
(93/01/05)336 2076 A
(12:04:07)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
2340 V
(19106)210 648 A
2430 V
(19107)210 648 A
1026(/*)S
2520 V
(19108)210 648 A
(CONVERT)294 1362 A
(INTEGER)294 1698 A
2034(TO)S
(FLOAT)210 2160 A
((CIF)168 2412 A
2622(n)S
2706(8))S
2610 V
(19109)210 648 A
2700 V
(19110)210 648 A
(THIS)168 1362 A
(ROUTINE)294 1572 A
(WORKS)210 1908 A
2160(BY)S
(FILLING)294 2286 A
2622(AN)S
(EXTENDED)336 2748 A
2790 V
(19111)210 648 A
(WITH)168 1362 A
(THE)126 1572 A
(INTEGER)294 1740 A
(VALUE)210 2076 A
2328(IN)S
(EXTENDED)336 2454 A
(FORMAT)252 2832 A
2880 V
(19112)210 648 A
(AND)126 1362 A
(USES)168 1530 A
(COMPACT())378 1740 A
2160(TO)S
(PUT)126 2286 A
2454(IT)S
(INTO)168 2580 A
(THE)126 2790 A
(PROPER)252 2958 A
2970 V
(19113)210 648 A
(FLOATING)336 1362 A
(POINT)210 1740 A
(PRECISION.)420 1992 A
3060 V
(19114)210 648 A
1026(*/)S
3150 V
(19115)210 648 A
3240 V
(19116)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
3330 V
(19117)210 648 A
3420 V
(19118)210 648 A
(void)168 1026 A
3510 V
(19119)210 648 A
(cif8(ss,src))504 1026 A
3600 V
(19120)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2328(*/)S
3690 V
(19121)210 648 A
(long)168 1026 A
(src;)168 1362 A
1698(/*)S
(largest)294 1824 A
(possible)336 2160 A
(integer)294 2538 A
2874(to)S
(convert)294 3000 A
3336(*/)S
3780 V
(19122)210 648 A
1026({)S
3870 V
(19123)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
3960 V
(19124)210 648 A
(DOUBLE)252 1362 A
(*result;)336 1698 A
2370(/*)S
(for)126 2496 A
(return)252 2664 A
(value)210 2958 A
3210(*/)S
4050 V
(19125)210 648 A
(short)210 1362 A
(*ipt;)210 1698 A
4140 V
(19126)210 648 A
(long)168 1362 A
(i_src;)252 1698 A
4230 V
(19127)210 648 A
4320 V
(19128)210 648 A
(result)252 1362 A
1656(=)S
((DOUBLE)294 1740 A
2076(*))S
(((void)252 2202 A
2496(*))S
(&ss);)210 2622 A
3042(/*)S
(always)252 3168 A
3462(*/)S
4410 V
(19129)210 648 A
(zrf_ext(&buf);)588 1362 A
4500 V
(19130)210 648 A
1362(if)S
((ss)126 1488 A
1656(==)S
(sizeof(long)))546 1782 A
2370({)S
4590 V
(19131)210 648 A
(buf.exp)294 1698 A
2034(=)S
(31;)126 2118 A
4680 V
(19132)210 648 A
(i_src)210 1698 A
1950(=)S
(src;)168 2034 A
4770 V
(19133)210 648 A
1362(})S
4860 V
(19134)210 648 A
(else)168 1362 A
1698({)S
4950 V
(19135)210 648 A
(ipt)126 1698 A
1866(=)S
((short)252 1950 A
2244(*))S
(&src;)210 2370 A
5040 V
(19136)210 648 A
(i_src)210 1698 A
1950(=)S
((long))252 2034 A
(*ipt;)210 2328 A
5130 V
(19137)210 648 A
(buf.exp)294 1698 A
2034(=)S
(15;)126 2118 A
5220 V
(19138)210 648 A
1362(})S
5310 V
(19139)210 648 A
1362(if)S
((i_src)252 1488 A
1782(==)S
1908(0))S
2034({)S
5400 V
(19140)210 648 A
(zrf8(result);)546 1698 A
5490 V
(19141)210 648 A
(return;)294 1698 A
5580 V
(19142)210 648 A
1362(})S
5670 V
(19143)210 648 A
2034(/*)S
(ESTABLISHED)462 2160 A
(THAT)168 2664 A
(src)126 2874 A
3042(!=)S
3168(0)S
3378(*/)S
5760 V
(19144)210 648 A
2034(/*)S
(adjust)252 2160 A
(exponent)336 2454 A
(field)210 2832 A
3378(*/)S
5850 V
(19145)210 648 A
(buf.sign)336 1362 A
1740(=)S
((i_src)252 1824 A
2118(<)S
2202(0))S
2328(?)S
(0x8000)252 2412 A
2706(:)S
2790(0;)S
5940 V
(19146)210 648 A
2034(/*)S
(clear)210 2160 A
(sign)168 2412 A
(bit)126 2622 A
2790(of)S
(integer)294 2916 A
3378(*/)S
6030 V
(19147)210 648 A
2034(/*)S
(move)168 2160 A
2370(to)S
(mantissa)336 2496 A
(field)210 2874 A
3378(*/)S
6120 V
(19148)210 648 A
(buf.m1)252 1362 A
1656(=)S
((i_src)252 1740 A
2034(<)S
2118(0))S
2244(?)S
(-i_src)252 2328 A
2622(:)S
(i_src;)252 2706 A
6210 V
(19149)210 648 A
2034(/*)S
(adjust)252 2160 A
(mantissa)336 2454 A
(field)210 2832 A
3378(*/)S
8418 V
EP
%%Page: 169 169
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2024(File:)S
(src/lib/float/cif8.c)795 2257 A
12 B
(169)180 4248 A
900 V
7 LST
(19150)210 648 A
1362(if)S
((ss)126 1488 A
1656(!=)S
(sizeof(long)))546 1782 A
990 V
(19151)210 648 A
(buf.m1)252 1698 A
(<<=)126 1992 A
(16;)126 2160 A
1080 V
(19152)210 648 A
(nrm_ext(&buf);)588 1362 A
1170 V
(19153)210 648 A
(compact(&buf,&result->d[0],8);)1260 1362 A
1260 V
(19154)210 648 A
1026(})S
1890 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1980 V
(src/lib/float/cmf4.c)840 1698 A
2070 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2250 V
(19200)210 648 A
1026(/*)S
2340 V
(19201)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
2430 V
(19202)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
2520 V
(19203)210 648 A
1026(*/)S
2610 V
(19204)210 648 A
2700 V
(19205)210 648 A
1026(/*)S
($Header:)336 1152 A
(cmf4.c,v)336 1530 A
(1.6)126 1908 A
(93/01/05)336 2076 A
(12:04:14)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
2790 V
(19206)210 648 A
2880 V
(19207)210 648 A
1026(/*)S
2970 V
(19208)210 648 A
(COMPARE)294 1362 A
(SINGLES)294 1698 A
((CMF)168 2034 A
2244(4))S
3060 V
(19209)210 648 A
1026(*/)S
3150 V
(19210)210 648 A
3240 V
(19211)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
3330 V
(19212)210 648 A
(#include)336 1026 A
("get_put.h")462 1698 A
3420 V
(19213)210 648 A
3510 V
(19214)210 648 A
(int)126 1026 A
3600 V
(19215)210 648 A
(cmf4(f1,f2))462 1026 A
3690 V
(19216)210 648 A
(SINGLE)252 1026 A
(f1,f2;)252 1362 A
3780 V
(19217)210 648 A
1026({)S
3870 V
(19218)210 648 A
1698(/*)S
3960 V
(19219)210 648 A
1740(*)S
(return)252 1824 A
(((f1)168 2118 A
2328(<)S
(f2))126 2412 A
2580(?)S
2664(1)S
2748(:)S
((f1)126 2832 A
3000(-)S
(f2)))168 3084 A
4050 V
(19220)210 648 A
1740(*/)S
4140 V
(19221)210 648 A
(#define)294 1026 A
(SIGN(x))294 1362 A
((((x))210 1698 A
1950(<)S
2034(0))S
2160(?)S
2244(-1)S
2370(:)S
2454(1))S
4230 V
(19222)210 648 A
(int)126 1362 A
(sign1,sign2;)504 1698 A
4320 V
(19223)210 648 A
(long)168 1362 A
(l1,l2;)252 1698 A
4410 V
(19224)210 648 A
4500 V
(19225)210 648 A
1362(l1)S
1488(=)S
(get4((char)420 1572 A
2034(*))S
(&f1);)210 2160 A
4590 V
(19226)210 648 A
1362(l2)S
1488(=)S
(get4((char)420 1572 A
2034(*))S
(&f2);)210 2160 A
4680 V
(19227)210 648 A
4770 V
(19228)210 648 A
1362(if)S
((l1)126 1488 A
1656(==)S
(l2))126 1782 A
(return)252 1950 A
2244(0;)S
4860 V
(19229)210 648 A
4950 V
(19230)210 648 A
(sign1)210 1362 A
1614(=)S
(SIGN(l1);)378 1698 A
5040 V
(19231)210 648 A
(sign2)210 1362 A
1614(=)S
(SIGN(l2);)378 1698 A
5130 V
(19232)210 648 A
1362(if)S
((sign1)252 1488 A
1782(!=)S
(sign2))252 1908 A
2202({)S
5220 V
(19233)210 648 A
1698(if)S
(((l1)168 1824 A
2034(&)S
(0x7fffffff))462 2118 A
2622(==)S
2748(0)S
2832(&&)S
5310 V
(19234)210 648 A
((l2)126 1866 A
2034(&)S
(0x7fffffff))462 2118 A
2622(==)S
2748(0))S
(return)252 2874 A
3168(0;)S
5400 V
(19235)210 648 A
(return)252 1698 A
(((sign1)294 1992 A
2328(>)S
2412(0))S
2538(?)S
2622(-1)S
2748(:)S
(1);)126 2832 A
5490 V
(19236)210 648 A
1362(})S
5580 V
(19237)210 648 A
5670 V
(19238)210 648 A
(return)252 1362 A
((sign1)252 1656 A
1950(*)S
(((l1)168 2034 A
2244(<)S
(l2))126 2328 A
2496(?)S
2580(1)S
2664(:)S
(-1));)210 2748 A
5760 V
(19239)210 648 A
1026(})S
8418 V
EP
%%Page: 170 170
BP
/slant 0 def
/height 0 def
630 V
12 B
(170)180 648 A
11 R
1996(File:)S
(src/lib/float/cmf8.c)850 2229 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/cmf8.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(19300)210 648 A
1026(/*)S
1440 V
(19301)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(19302)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(19303)210 648 A
1026(*/)S
1710 V
(19304)210 648 A
1800 V
(19305)210 648 A
1026(/*)S
($Header:)336 1152 A
(cmf8.c,v)336 1530 A
(1.9)126 1908 A
(93/01/05)336 2076 A
(12:04:22)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(19306)210 648 A
1980 V
(19307)210 648 A
1026(/*)S
2070 V
(19308)210 648 A
(COMPARE)294 1362 A
(DOUBLES)294 1698 A
((CMF)168 2034 A
2244(8))S
2160 V
(19309)210 648 A
1026(*/)S
2250 V
(19310)210 648 A
2340 V
(19311)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
2430 V
(19312)210 648 A
(#include)336 1026 A
("get_put.h")462 1698 A
2520 V
(19313)210 648 A
2610 V
(19314)210 648 A
(int)126 1026 A
2700 V
(19315)210 648 A
(cmf8(d1,d2))462 1026 A
2790 V
(19316)210 648 A
(DOUBLE)252 1026 A
(d1,d2;)252 1362 A
2880 V
(19317)210 648 A
1026({)S
2970 V
(19318)210 648 A
(#define)294 1026 A
(SIGN(x))294 1362 A
((((x))210 1698 A
1950(<)S
2034(0))S
2160(?)S
2244(-1)S
2370(:)S
2454(1))S
3060 V
(19319)210 648 A
1698(/*)S
3150 V
(19320)210 648 A
1740(*)S
(return)252 1824 A
(((d1)168 2118 A
2328(<)S
(d2))126 2412 A
2580(?)S
2664(1)S
2748(:)S
((d1)126 2832 A
3000(>)S
(d2))126 3084 A
3252(?)S
3336(-1)S
3462(:)S
(0)))126 3546 A
3240 V
(19321)210 648 A
1740(*/)S
3330 V
(19322)210 648 A
(long)168 1362 A
(l1,l2;)252 1698 A
3420 V
(19323)210 648 A
(int)126 1362 A
(sign1,sign2;)504 1698 A
3510 V
(19324)210 648 A
(int)126 1362 A
(rv;)126 1698 A
3600 V
(19325)210 648 A
3690 V
(19326)210 648 A
(#if)126 1026 A
(FL_MSL_AT_LOW_ADDRESS)882 1194 A
3780 V
(19327)210 648 A
1362(l1)S
1488(=)S
(get4((char)420 1572 A
(*)&d1);)294 2034 A
3870 V
(19328)210 648 A
1362(l2)S
1488(=)S
(get4((char)420 1572 A
(*)&d2);)294 2034 A
3960 V
(19329)210 648 A
(#else)210 1026 A
4050 V
(19330)210 648 A
1362(l1)S
1488(=)S
(get4(((char)462 1572 A
(*)&d1+4));)420 2076 A
4140 V
(19331)210 648 A
1362(l2)S
1488(=)S
(get4(((char)462 1572 A
(*)&d2+4));)420 2076 A
4230 V
(19332)210 648 A
(#endif)252 1026 A
4320 V
(19333)210 648 A
(sign1)210 1362 A
1614(=)S
(SIGN(l1);)378 1698 A
4410 V
(19334)210 648 A
(sign2)210 1362 A
1614(=)S
(SIGN(l2);)378 1698 A
4500 V
(19335)210 648 A
1362(if)S
((sign1)252 1488 A
1782(!=)S
(sign2))252 1908 A
2202({)S
4590 V
(19336)210 648 A
1698(l1)S
1824(&=)S
(0x7fffffff;)462 1950 A
4680 V
(19337)210 648 A
1698(l2)S
1824(&=)S
(0x7fffffff;)462 1950 A
4770 V
(19338)210 648 A
1698(if)S
((l1)126 1824 A
1992(!=)S
2118(0)S
2202(||)S
2328(l2)S
2454(!=)S
2580(0))S
2706({)S
4860 V
(19339)210 648 A
(return)252 2034 A
(((sign1)294 2328 A
2664(>)S
2748(0))S
2874(?)S
2958(-1)S
3084(:)S
(1);)126 3168 A
4950 V
(19340)210 648 A
1698(})S
5040 V
(19341)210 648 A
1362(})S
5130 V
(19342)210 648 A
1362(if)S
((l1)126 1488 A
1656(!=)S
(l2))126 1782 A
2034({)S
2370(/*)S
2496(we)S
(can)126 2622 A
(decide)252 2790 A
(here)168 3084 A
3294(*/)S
5220 V
(19343)210 648 A
1698(rv)S
1824(=)S
1908(l1)S
2034(<)S
2118(l2)S
2244(?)S
2328(1)S
2412(:)S
(-1;)126 2496 A
5310 V
(19344)210 648 A
1362(})S
5400 V
(19345)210 648 A
(else)168 1362 A
1698({)S
2370(/*)S
(decide)252 2496 A
2790(in)S
(2nd)126 2916 A
(half)168 3084 A
3294(*/)S
5490 V
(19346)210 648 A
(unsigned)336 1698 A
(long)168 2076 A
(u1,)126 2286 A
(u2;)126 2454 A
5580 V
(19347)210 648 A
(#if)126 1026 A
(FL_MSL_AT_LOW_ADDRESS)882 1194 A
5670 V
(19348)210 648 A
1698(u1)S
1824(=)S
(get4(((char)462 1908 A
(*)&d1)210 2412 A
2664(+)S
(4));)168 2748 A
5760 V
(19349)210 648 A
1698(u2)S
1824(=)S
(get4(((char)462 1908 A
(*)&d2)210 2412 A
2664(+)S
(4));)168 2748 A
5850 V
(19350)210 648 A
(#else)210 1026 A
5940 V
(19351)210 648 A
1698(u1)S
1824(=)S
(get4((char)420 1908 A
(*)&d1);)294 2370 A
6030 V
(19352)210 648 A
1698(u2)S
1824(=)S
(get4((char)420 1908 A
(*)&d2);)294 2370 A
6120 V
(19353)210 648 A
(#endif)252 1026 A
6210 V
(19354)210 648 A
1698(if)S
((u1)126 1824 A
1992(==)S
(u2))126 2118 A
8418 V
EP
%%Page: 171 171
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1996(File:)S
(src/lib/float/cmf8.c)850 2229 A
12 B
(171)180 4248 A
900 V
7 LST
(19355)210 648 A
(return(0);)420 2034 A
990 V
(19356)210 648 A
1698(if)S
((u1)126 1824 A
1992(<)S
(u2))126 2076 A
2244(rv)S
2370(=)S
2454(1;)S
1080 V
(19357)210 648 A
(else)168 1698 A
1908(rv)S
2034(=)S
(-1;)126 2118 A
1170 V
(19358)210 648 A
1362(})S
1260 V
(19359)210 648 A
(return)252 1362 A
(sign1)210 1656 A
1908(*)S
(rv;)126 1992 A
1350 V
(19360)210 648 A
1026(})S
1890 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1980 V
(src/lib/float/compact.c)966 1698 A
2070 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2250 V
(19400)210 648 A
1026(/*)S
2340 V
(19401)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
2430 V
(19402)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
2520 V
(19403)210 648 A
1026(*/)S
2610 V
(19404)210 648 A
2700 V
(19405)210 648 A
1026(/*)S
($Header:)336 1152 A
(compact.c,v)462 1530 A
(1.13)168 2034 A
(93/01/05)336 2244 A
(12:04:28)336 2622 A
(ceriel)252 3000 A
(Exp)126 3294 A
3462($)S
3546(*/)S
2790 V
(19406)210 648 A
2880 V
(19407)210 648 A
1026(/*)S
2970 V
(19408)210 648 A
(COMPACT)294 1362 A
(EXTEND)252 1698 A
(FORMAT)252 1992 A
(INTO)168 2286 A
(FLOAT)210 2496 A
2748(OF)S
(PROPER)252 2874 A
(SIZE)168 3168 A
3060 V
(19409)210 648 A
1026(*/)S
3150 V
(19410)210 648 A
3240 V
(19411)210 648 A
1026(#)S
(include)294 1110 A
("FP_bias.h")462 1446 A
3330 V
(19412)210 648 A
1026(#)S
(include)294 1110 A
("FP_shift.h")504 1446 A
3420 V
(19413)210 648 A
1026(#)S
(include)294 1110 A
("FP_trap.h")462 1446 A
3510 V
(19414)210 648 A
1026(#)S
(include)294 1110 A
("FP_types.h")504 1446 A
3600 V
(19415)210 648 A
1026(#)S
(include)294 1110 A
("get_put.h")462 1446 A
3690 V
(19416)210 648 A
3780 V
(19417)210 648 A
(void)168 1026 A
3870 V
(19418)210 648 A
(compact(f,to,size))756 1026 A
3960 V
(19419)210 648 A
(EXTEND)252 1026 A
(*f;)126 1362 A
4050 V
(19420)210 648 A
(unsigned)336 1026 A
(long)168 1404 A
(*to;)168 1698 A
4140 V
(19421)210 648 A
(int)126 1026 A
(size;)210 1362 A
4230 V
(19422)210 648 A
1026({)S
4320 V
(19423)210 648 A
(int)126 1362 A
(error)210 1698 A
1950(=)S
2034(0;)S
4410 V
(19424)210 648 A
4500 V
(19425)210 648 A
1362(if)S
((size)210 1488 A
1740(==)S
(sizeof(DOUBLE)))630 1866 A
2538({)S
4590 V
(19426)210 648 A
1362(/*)S
4680 V
(19427)210 648 A
1404(*)S
(COMPACT)294 1488 A
(EXTENDED)336 1824 A
(INTO)168 2202 A
(DOUBLE)252 2412 A
4770 V
(19428)210 648 A
1404(*/)S
4860 V
(19429)210 648 A
(DOUBLE)252 1698 A
(*DBL)168 1992 A
2202(=)S
((DOUBLE)294 2286 A
2622(*))S
((void)210 2748 A
3000(*))S
(to;)126 3126 A
4950 V
(19430)210 648 A
5040 V
(19431)210 648 A
1698(if)S
(((f->m1|(f->m2)588 1824 A
2454(&)S
(DBL_ZERO)))420 2538 A
3000(==)S
(0L))126 3126 A
3378({)S
5130 V
(19432)210 648 A
(zrf8(DBL);)420 2034 A
5220 V
(19433)210 648 A
(return;)294 2034 A
5310 V
(19434)210 648 A
1698(})S
5400 V
(19435)210 648 A
(f->exp)252 1698 A
1992(+=)S
(DBL_BIAS;)378 2118 A
2706(/*)S
(restore)294 2832 A
(proper)252 3168 A
(bias)168 3462 A
3714(*/)S
5490 V
(19436)210 648 A
1698(if)S
((f->exp)294 1824 A
2160(>)S
(DBL_MAX))336 2244 A
2706({)S
5580 V
(19437)210 648 A
(dbl_over:)378 1026 A
(trap(EFOVFL);)546 2370 A
5670 V
(19438)210 648 A
(f->exp)252 2034 A
2328(=)S
(DBL_MAX+1;)420 2412 A
5760 V
(19439)210 648 A
(f->m1)210 2034 A
2286(=)S
2370(0;)S
5850 V
(19440)210 648 A
(f->m2)210 2034 A
2286(=)S
2370(0;)S
5940 V
(19441)210 648 A
2034(if)S
((error++))378 2160 A
6030 V
(19442)210 648 A
(return;)294 2370 A
6120 V
(19443)210 648 A
1698(})S
6210 V
(19444)210 648 A
(else)168 1698 A
1908(if)S
((f->exp)294 2034 A
2370(<)S
(DBL_MIN))336 2454 A
3042({)S
8418 V
EP
%%Page: 172 172
BP
/slant 0 def
/height 0 def
630 V
12 B
(172)180 648 A
11 R
1922(File:)S
(src/lib/float/compact.c)999 2155 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(19445)210 648 A
(b64_rsft(&(f->mantissa));)1050 2034 A
990 V
(19446)210 648 A
2034(if)S
((f->exp)294 2160 A
2496(<)S
2580(0))S
2706({)S
1080 V
(19447)210 648 A
(b64_sft(&(f->mantissa),)966 2370 A
(-f->exp);)378 3378 A
1170 V
(19448)210 648 A
(f->exp)252 2370 A
2664(=)S
2748(0;)S
1260 V
(19449)210 648 A
2034(})S
1350 V
(19450)210 648 A
2034(/*)S
(underflow)378 2160 A
(???)126 2580 A
2748(*/)S
1440 V
(19451)210 648 A
1698(})S
1530 V
(19452)210 648 A
1620 V
(19453)210 648 A
1698(/*)S
(local)210 1824 A
(CAST)168 2076 A
(conversion)420 2286 A
3378(*/)S
1710 V
(19454)210 648 A
1800 V
(19455)210 648 A
1698(/*)S
(because)294 1824 A
2160(of)S
(special)294 2286 A
(format)252 2622 A
(shift)210 2916 A
(only)168 3168 A
3378(10)S
(bits)168 3504 A
3714(*/)S
1890 V
(19456)210 648 A
1698(/*)S
(bit)126 1824 A
(shift)210 1992 A
(mantissa)336 2244 A
2622(10)S
(bits)168 2748 A
3378(*/)S
1980 V
(19457)210 648 A
2070 V
(19458)210 648 A
1698(/*)S
(first)210 1824 A
(align)210 2076 A
(within)252 2328 A
(words,)252 2622 A
(then)168 2916 A
3126(do)S
(store)210 3252 A
(operation)378 3504 A
3924(*/)S
2160 V
(19459)210 648 A
2250 V
(19460)210 648 A
(DBL->d[0])378 1698 A
2118(=)S
(f->m1)210 2202 A
2454(>>)S
(DBL_RUNPACK;)504 2580 A
3210(/*)S
(plus)168 3336 A
3546(22)S
3672(==)S
3798(32)S
3924(*/)S
2340 V
(19461)210 648 A
(DBL->d[1])378 1698 A
2118(=)S
(f->m2)210 2202 A
2454(>>)S
(DBL_RUNPACK;)504 2580 A
3210(/*)S
(plus)168 3336 A
3546(22)S
3672(==)S
3798(32)S
3924(*/)S
2430 V
(19462)210 648 A
(DBL->d[1])378 1698 A
2118(|=)S
((f->m1)252 2244 A
2538(<<)S
(DBL_LUNPACK);)546 2664 A
3252(/*)S
(plus)168 3378 A
3588(10)S
3714(==)S
3840(32)S
3966(*/)S
2520 V
(19463)210 648 A
2610 V
(19464)210 648 A
1698(/*)S
1824(if)S
(not)126 1950 A
(exact)210 2118 A
(then)168 2370 A
(round)210 2580 A
2832(to)S
(nearest)294 2958 A
3378(*/)S
2700 V
(19465)210 648 A
1698(/*)S
1824(on)S
1950(a)S
(tie,)168 2034 A
(round)210 2244 A
2496(to)S
(even)168 2622 A
2832(*/)S
2790 V
(19466)210 648 A
2880 V
(19467)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1320 A
2970 V
(19468)210 648 A
1698(if)S
(((f->m2)294 1824 A
2160(&)S
(DBL_EXACT))420 2244 A
2706(!=)S
2832(0))S
2958({)S
3060 V
(19469)210 648 A
(INEXACT();)420 1866 A
3150 V
(19470)210 648 A
(#endif)252 1026 A
3240 V
(19471)210 648 A
1866(if)S
((((f->m2)336 1992 A
2370(&)S
(DBL_EXACT))420 2454 A
2916(>)S
(DBL_ROUNDUP))504 3000 A
3330 V
(19472)210 648 A
2034(||)S
(((f->m2)294 2160 A
2496(&)S
(DBL_EXACT))420 2580 A
3042(==)S
(DBL_ROUNDUP)462 3168 A
3420 V
(19473)210 648 A
2202(&&)S
((f->m2)252 2328 A
2622(&)S
((DBL_ROUNDUP)504 2706 A
3252(<<)S
(1)))))210 3378 A
3630({)S
3510 V
(19474)210 648 A
(DBL->d[1]++;)504 2034 A
2706(/*)S
(rounding)336 2832 A
3210(up)S
3378(*/)S
3600 V
(19475)210 648 A
2034(if)S
((DBL->d[1])420 2160 A
2622(==)S
(0L))126 2748 A
2916({)S
3000(/*)S
(carry)210 3126 A
(out)126 3378 A
3714(*/)S
3690 V
(19476)210 648 A
(DBL->d[0]++;)504 2202 A
3780 V
(19477)210 648 A
3870 V
(19478)210 648 A
2202(if)S
((f->exp)294 2328 A
2664(==)S
2790(0)S
2874(&&)S
((DBL->d[0])420 3000 A
3462(&)S
(304DBL_MASK)))462 3546 A
4050({)S
3960 V
(19479)210 648 A
(f->exp++;)378 2706 A
4050 V
(19480)210 648 A
2370(})S
4140 V
(19481)210 648 A
2202(if)S
((DBL->d[0])420 2328 A
2790(&)S
(DBL_CARRYOUT))546 2874 A
3462({)S
3546(/*)S
(carry)210 3672 A
(out)126 3924 A
4092(*/)S
4230 V
(19482)210 648 A
2370(if)S
((DBL->d[0])420 2496 A
2958(&)S
(01))126 3042 A
4320 V
(19483)210 648 A
(DBL->d[1])378 2538 A
2958(=)S
(CARRYBIT;)378 3042 A
4410 V
(19484)210 648 A
(DBL->d[0])378 2370 A
(>>=)126 2790 A
2958(1;)S
4500 V
(19485)210 648 A
(f->exp++;)378 2370 A
4590 V
(19486)210 648 A
2202(})S
4680 V
(19487)210 648 A
2034(})S
4770 V
(19488)210 648 A
2034(/*)S
(check)210 2370 A
(for)126 2622 A
(overflow)336 2790 A
4050(*/)S
4860 V
(19489)210 648 A
2034(if)S
((f->exp)294 2160 A
2496(>)S
(DBL_MAX))336 2580 A
4950 V
(19490)210 648 A
(goto)168 2370 A
(dbl_over;)378 2580 A
5040 V
(19491)210 648 A
1866(})S
5130 V
(19492)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1320 A
5220 V
(19493)210 648 A
1698(})S
5310 V
(19494)210 648 A
(#endif)252 1026 A
5400 V
(19495)210 648 A
5490 V
(19496)210 648 A
1698(/*)S
5580 V
(19497)210 648 A
1740(*)S
(STORE)210 1824 A
(EXPONENT)336 2076 A
(AND)126 2454 A
(SIGN:)210 2622 A
5670 V
(19498)210 648 A
1740(*)S
5760 V
(19499)210 648 A
1740(*)S
1824(1))S
(clear)210 1950 A
(leading)294 2202 A
(bits)168 2538 A
((B4-B15))336 2748 A
5850 V
(19500)210 648 A
1740(*)S
1824(2))S
(shift)210 1950 A
(and)126 2202 A
(store)210 2370 A
(exponent)336 2622 A
5940 V
(19501)210 648 A
1740(*/)S
6030 V
(19502)210 648 A
6120 V
(19503)210 648 A
(DBL->d[0])378 1698 A
2118(&=)S
(DBL_MASK;)378 2244 A
6210 V
(19504)210 648 A
(DBL->d[0])378 1698 A
2118(|=)S
8418 V
EP
%%Page: 173 173
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1922(File:)S
(src/lib/float/compact.c)999 2155 A
12 B
(173)180 4248 A
900 V
7 LST
(19505)210 648 A
(((long))294 2034 A
((f->exp)294 2370 A
2706(<<)S
(DBL_EXPSHIFT))546 2832 A
3420(<<)S
(EXP_STORE);)462 3546 A
990 V
(19506)210 648 A
1698(if)S
((f->sign))378 1824 A
1080 V
(19507)210 648 A
(DBL->d[0])378 2034 A
2454(|=)S
(CARRYBIT;)378 2580 A
1170 V
(19508)210 648 A
1260 V
(19509)210 648 A
1698(/*)S
1350 V
(19510)210 648 A
1740(*)S
(STORE)210 1824 A
(MANTISSA)336 2076 A
1440 V
(19511)210 648 A
1740(*/)S
1530 V
(19512)210 648 A
1620 V
(19513)210 648 A
(#if)126 1026 A
(FL_MSL_AT_LOW_ADDRESS)882 1194 A
1710 V
(19514)210 648 A
(put4(DBL->d[0],)630 1698 A
((char)210 2370 A
2622(*))S
(&DBL->d[0]);)504 2748 A
1800 V
(19515)210 648 A
(put4(DBL->d[1],)630 1698 A
((char)210 2370 A
2622(*))S
(&DBL->d[1]);)504 2748 A
1890 V
(19516)210 648 A
(#else)210 1026 A
1980 V
(19517)210 648 A
1698({)S
(unsigned)336 1782 A
(long)168 2160 A
2370(l;)S
2070 V
(19518)210 648 A
(put4(DBL->d[1],)630 1782 A
((char)210 2454 A
2706(*))S
(&l);)168 2832 A
2160 V
(19519)210 648 A
(put4(DBL->d[0],)630 1782 A
((char)210 2454 A
2706(*))S
(&DBL->d[1]);)504 2832 A
2250 V
(19520)210 648 A
(DBL->d[0])378 1782 A
2202(=)S
2286(l;)S
2340 V
(19521)210 648 A
1698(})S
2430 V
(19522)210 648 A
(#endif)252 1026 A
2520 V
(19523)210 648 A
1362(})S
2610 V
(19524)210 648 A
(else)168 1362 A
1572({)S
2700 V
(19525)210 648 A
1698(/*)S
2790 V
(19526)210 648 A
1740(*)S
(COMPACT)294 1824 A
(EXTENDED)336 2160 A
(INTO)168 2538 A
(FLOAT)210 2748 A
2880 V
(19527)210 648 A
1740(*/)S
2970 V
(19528)210 648 A
(SINGLE)252 1698 A
(*SGL;)210 2034 A
3060 V
(19529)210 648 A
3150 V
(19530)210 648 A
1698(/*)S
(local)210 1824 A
(CAST)168 2076 A
(conversion)420 2286 A
3378(*/)S
3240 V
(19531)210 648 A
(SGL)126 1698 A
1866(=)S
((SINGLE)294 1950 A
2286(*))S
((void)210 2412 A
2664(*))S
(to;)126 2790 A
3330 V
(19532)210 648 A
1698(if)S
(((f->m1)294 1824 A
2160(&)S
(SGL_ZERO))378 2244 A
2664(==)S
(0L))126 2790 A
3042({)S
3420 V
(19533)210 648 A
(*SGL)168 2034 A
2244(=)S
(0L;)126 2328 A
3510 V
(19534)210 648 A
(return;)294 2034 A
3600 V
(19535)210 648 A
1698(})S
3690 V
(19536)210 648 A
(f->exp)252 1698 A
1992(+=)S
(SGL_BIAS;)378 2118 A
2706(/*)S
(restore)294 2832 A
(bias)168 3168 A
3378(*/)S
3780 V
(19537)210 648 A
1698(if)S
((f->exp)294 1824 A
2160(>)S
(SGL_MAX))336 2244 A
2706({)S
3870 V
(19538)210 648 A
(sgl_over:)378 1026 A
(trap(EFOVFL);)546 2370 A
3960 V
(19539)210 648 A
(f->exp)252 2034 A
2328(=)S
(SGL_MAX+1;)420 2412 A
4050 V
(19540)210 648 A
(f->m1)210 2034 A
2286(=)S
(0L;)126 2370 A
4140 V
(19541)210 648 A
(f->m2)210 2034 A
2286(=)S
(0L;)126 2370 A
4230 V
(19542)210 648 A
2034(if)S
((error++))378 2160 A
4320 V
(19543)210 648 A
(return;)294 2370 A
4410 V
(19544)210 648 A
1698(})S
4500 V
(19545)210 648 A
(else)168 1698 A
1908(if)S
((f->exp)294 2034 A
2370(<)S
(SGL_MIN))336 2454 A
3042({)S
4590 V
(19546)210 648 A
(b64_rsft(&(f->mantissa));)1050 2034 A
4680 V
(19547)210 648 A
2034(if)S
((f->exp)294 2160 A
2496(<)S
2580(0))S
2706({)S
4770 V
(19548)210 648 A
(b64_sft(&(f->mantissa),)966 2370 A
(-f->exp);)378 3378 A
4860 V
(19549)210 648 A
(f->exp)252 2370 A
2664(=)S
2748(0;)S
4950 V
(19550)210 648 A
2034(})S
5040 V
(19551)210 648 A
2034(/*)S
(underflow)378 2160 A
(???)126 2580 A
2748(*/)S
5130 V
(19552)210 648 A
1698(})S
5220 V
(19553)210 648 A
5310 V
(19554)210 648 A
1698(/*)S
(shift)210 1824 A
(mantissa)336 2076 A
(and)126 2454 A
(store)210 2622 A
3042(*/)S
5400 V
(19555)210 648 A
(*SGL)168 1698 A
1908(=)S
((f->m1)252 1992 A
2286(>>)S
(SGL_RUNPACK);)546 2412 A
5490 V
(19556)210 648 A
5580 V
(19557)210 648 A
1698(/*)S
(check)210 1824 A
(for)126 2076 A
(rounding)336 2244 A
2622(to)S
(nearest)294 2748 A
3378(*/)S
5670 V
(19558)210 648 A
1698(/*)S
1824(on)S
1950(a)S
(tie,)168 2034 A
(round)210 2244 A
2496(to)S
(even)168 2622 A
3378(*/)S
5760 V
(19559)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1320 A
5850 V
(19560)210 648 A
1698(if)S
((f->m2)252 1824 A
2118(!=)S
2244(0)S
2328(||)S
5940 V
(19561)210 648 A
((f->m1)252 1866 A
2160(&)S
(SGL_EXACT))420 2244 A
2706(!=)S
(0L))126 2832 A
3000({)S
6030 V
(19562)210 648 A
(INEXACT();)420 2034 A
6120 V
(19563)210 648 A
(#endif)252 1026 A
6210 V
(19564)210 648 A
2034(if)S
((((f->m1)336 2160 A
2538(&)S
(SGL_EXACT))420 2622 A
3084(>)S
(SGL_ROUNDUP))504 3168 A
8418 V
EP
%%Page: 174 174
BP
/slant 0 def
/height 0 def
630 V
12 B
(174)180 648 A
11 R
1922(File:)S
(src/lib/float/compact.c)999 2155 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(19565)210 648 A
2202(||)S
(((f->m1)294 2328 A
2664(&)S
(SGL_EXACT))420 2748 A
3210(==)S
(SGL_ROUNDUP)462 3336 A
990 V
(19566)210 648 A
2370(&&)S
((f->m1)252 2496 A
2790(&)S
((SGL_ROUNDUP)504 2874 A
3420(<<)S
(1)))))210 3546 A
3798({)S
1080 V
(19567)210 648 A
((*SGL)++;)378 2370 A
1170 V
(19568)210 648 A
2370(if)S
((f->exp)294 2496 A
2832(==)S
2958(0)S
3042(&&)S
((*SGL)210 3168 A
3420(&)S
(304SGL_MASK)))462 3504 A
4008({)S
1260 V
(19569)210 648 A
(f->exp++;)378 2706 A
1350 V
(19570)210 648 A
2370(})S
1440 V
(19571)210 648 A
2034(/*)S
(check)210 2160 A
(normal)252 2412 A
2706(*/)S
1530 V
(19572)210 648 A
2370(if)S
((*SGL)210 2496 A
2748(&)S
(SGL_CARRYOUT))546 2832 A
3714({)S
1620 V
(19573)210 648 A
(*SGL)168 2706 A
(>>=)126 2916 A
3084(1;)S
1710 V
(19574)210 648 A
(f->exp++;)378 2706 A
1800 V
(19575)210 648 A
2370(})S
1890 V
(19576)210 648 A
2370(if)S
((f->exp)294 2496 A
2832(>)S
(SGL_MAX))336 2916 A
1980 V
(19577)210 648 A
(goto)168 2706 A
(sgl_over;)378 2916 A
2070 V
(19578)210 648 A
2034(})S
2160 V
(19579)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1320 A
2250 V
(19580)210 648 A
1698(})S
2340 V
(19581)210 648 A
(#endif)252 1026 A
2430 V
(19582)210 648 A
2520 V
(19583)210 648 A
1698(/*)S
2610 V
(19584)210 648 A
1740(*)S
(STORE)210 1824 A
(EXPONENT)336 2076 A
(AND)126 2454 A
(SIGN:)210 2622 A
2700 V
(19585)210 648 A
1740(*)S
2790 V
(19586)210 648 A
1740(*)S
1824(1))S
(clear)210 1950 A
(leading)294 2202 A
(bit)126 2538 A
2706(of)S
(fraction)336 2832 A
2880 V
(19587)210 648 A
1740(*)S
1824(2))S
(shift)210 1950 A
(and)126 2202 A
(store)210 2370 A
(exponent)336 2622 A
2970 V
(19588)210 648 A
1740(*/)S
3060 V
(19589)210 648 A
3150 V
(19590)210 648 A
(*SGL)168 1698 A
1908(&=)S
(SGL_MASK;)378 2034 A
2454(/*)S
(B23-B31)294 2580 A
(are)126 2916 A
3084(0)S
3168(*/)S
3240 V
(19591)210 648 A
(*SGL)168 1698 A
1908(|=)S
(((long))294 2034 A
((f->exp)294 2370 A
2706(<<)S
(SGL_EXPSHIFT))546 2832 A
3420(<<)S
(EXP_STORE);)462 3546 A
3330 V
(19592)210 648 A
1698(if)S
((f->sign))378 1824 A
3420 V
(19593)210 648 A
(*SGL)168 2034 A
2244(|=)S
(CARRYBIT;)378 2370 A
3510 V
(19594)210 648 A
3600 V
(19595)210 648 A
1698(/*)S
3690 V
(19596)210 648 A
1740(*)S
(STORE)210 1824 A
(MANTISSA)336 2076 A
3780 V
(19597)210 648 A
1740(*/)S
3870 V
(19598)210 648 A
3960 V
(19599)210 648 A
(put4(*SGL,)420 1698 A
((char)210 2160 A
2412(*))S
(&SGL);)252 2538 A
4050 V
(19600)210 648 A
1362(})S
4140 V
(19601)210 648 A
1026(})S
4590 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4680 V
(src/lib/float/cuf4.c)840 1698 A
4770 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4950 V
(19700)210 648 A
1026(/*)S
5040 V
(19701)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
5130 V
(19702)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
5220 V
(19703)210 648 A
1026(*/)S
5310 V
(19704)210 648 A
5400 V
(19705)210 648 A
1026(/*)S
($Header:)336 1152 A
(cuf4.c,v)336 1530 A
(1.6)126 1908 A
(93/01/05)336 2076 A
(12:04:35)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
5490 V
(19706)210 648 A
5580 V
(19707)210 648 A
1026(/*)S
5670 V
(19708)210 648 A
(CONVERT)294 1362 A
(INTEGER)294 1698 A
2034(TO)S
(SINGLE)252 2160 A
((CUF)168 2454 A
2664(n)S
2748(4))S
5760 V
(19709)210 648 A
5850 V
(19710)210 648 A
(THIS)168 1362 A
(ROUTINE)294 1572 A
(WORKS)210 1908 A
2160(BY)S
(FILLING)294 2286 A
2622(AN)S
(EXTENDED)336 2748 A
5940 V
(19711)210 648 A
(WITH)168 1362 A
(THE)126 1572 A
(INTEGER)294 1740 A
(VALUE)210 2076 A
2328(IN)S
(EXTENDED)336 2454 A
(FORMAT)252 2832 A
6030 V
(19712)210 648 A
(AND)126 1362 A
(USES)168 1530 A
(COMPACT())378 1740 A
2160(TO)S
(PUT)126 2286 A
2454(IT)S
(INTO)168 2580 A
(THE)126 2790 A
(PROPER)252 2958 A
6120 V
(19713)210 648 A
(FLOATING)336 1362 A
(POINT)210 1740 A
(PRECISION.)420 1992 A
6210 V
(19714)210 648 A
1026(*/)S
8418 V
EP
%%Page: 175 175
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2012(File:)S
(src/lib/float/cuf4.c)819 2245 A
12 B
(175)180 4248 A
900 V
7 LST
(19715)210 648 A
990 V
(19716)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
1080 V
(19717)210 648 A
1170 V
(19718)210 648 A
(void)168 1026 A
1260 V
(19719)210 648 A
(cuf4(ss,src))504 1026 A
1350 V
(19720)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2328(*/)S
1440 V
(19721)210 648 A
(long)168 1026 A
(src;)168 1362 A
1698(/*)S
(largest)294 1824 A
(possible)336 2160 A
(integer)294 2538 A
2874(to)S
(convert)294 3000 A
3336(*/)S
1530 V
(19722)210 648 A
1026({)S
1620 V
(19723)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
1710 V
(19724)210 648 A
(short)210 1362 A
(*ipt;)210 1698 A
1800 V
(19725)210 648 A
(SINGLE)252 1362 A
(*result;)336 1698 A
1890 V
(19726)210 648 A
(long)168 1362 A
(i_src;)252 1698 A
1980 V
(19727)210 648 A
2070 V
(19728)210 648 A
(zrf_ext(&buf);)588 1362 A
2160 V
(19729)210 648 A
1362(if)S
((ss)126 1488 A
1656(==)S
(sizeof(long)))546 1782 A
2370({)S
2250 V
(19730)210 648 A
(buf.exp)294 1698 A
2034(=)S
(31;)126 2118 A
2340 V
(19731)210 648 A
(i_src)210 1698 A
1950(=)S
(src;)168 2034 A
2430 V
(19732)210 648 A
(result)252 1698 A
1992(=)S
((SINGLE)294 2076 A
2412(*))S
(&src;)210 2538 A
2520 V
(19733)210 648 A
1362(})S
2610 V
(19734)210 648 A
(else)168 1362 A
1698({)S
2700 V
(19735)210 648 A
(ipt)126 1698 A
1866(=)S
((short)252 1950 A
2244(*))S
(&src;)210 2370 A
2790 V
(19736)210 648 A
(i_src)210 1698 A
1950(=)S
((long))252 2034 A
(*ipt;)210 2328 A
2880 V
(19737)210 648 A
(buf.exp)294 1698 A
2034(=)S
(15;)126 2118 A
2970 V
(19738)210 648 A
(result)252 1698 A
1992(=)S
((SINGLE)294 2076 A
2412(*))S
(((void)252 2538 A
2832(*))S
(&ss);)210 2958 A
3060 V
(19739)210 648 A
1362(})S
3150 V
(19740)210 648 A
1362(if)S
((i_src)252 1488 A
1782(==)S
1908(0))S
2034({)S
3240 V
(19741)210 648 A
(*result)294 1698 A
2034(=)S
((SINGLE))336 2118 A
(0L;)126 2496 A
3330 V
(19742)210 648 A
(return;)294 1698 A
3420 V
(19743)210 648 A
1362(})S
3510 V
(19744)210 648 A
2034(/*)S
(ESTABLISHED)462 2160 A
(THAT)168 2664 A
(src)126 2874 A
3042(!=)S
3168(0)S
3378(*/)S
3600 V
(19745)210 648 A
3690 V
(19746)210 648 A
2034(/*)S
(adjust)252 2160 A
(exponent)336 2454 A
(field)210 2832 A
3378(*/)S
3780 V
(19747)210 648 A
1362(if)S
((ss)126 1488 A
1656(!=)S
(sizeof(long)))546 1782 A
3870 V
(19748)210 648 A
(i_src)210 1698 A
(<<=)126 1950 A
(16;)126 2118 A
3960 V
(19749)210 648 A
4050 V
(19750)210 648 A
2034(/*)S
(move)168 2160 A
2370(to)S
(mantissa)336 2496 A
(field)210 2874 A
3378(*/)S
4140 V
(19751)210 648 A
(buf.m1)252 1362 A
1656(=)S
(i_src;)252 1740 A
4230 V
(19752)210 648 A
4320 V
(19753)210 648 A
2034(/*)S
(adjust)252 2160 A
(mantissa)336 2454 A
(field)210 2832 A
3378(*/)S
4410 V
(19754)210 648 A
(nrm_ext(&buf);)588 1362 A
4500 V
(19755)210 648 A
(compact(&buf,result,4);)966 1362 A
4590 V
(19756)210 648 A
1026(})S
5040 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
5130 V
(src/lib/float/cuf8.c)840 1698 A
5220 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
5400 V
(19800)210 648 A
1026(/*)S
5490 V
(19801)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
5580 V
(19802)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
5670 V
(19803)210 648 A
1026(*/)S
5760 V
(19804)210 648 A
5850 V
(19805)210 648 A
1026(/*)S
($Header:)336 1152 A
(cuf8.c,v)336 1530 A
(1.6)126 1908 A
(93/01/05)336 2076 A
(12:04:41)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
5940 V
(19806)210 648 A
6030 V
(19807)210 648 A
1026(/*)S
6120 V
(19808)210 648 A
(CONVERT)294 1362 A
(INTEGER)294 1698 A
2034(TO)S
(FLOAT)210 2160 A
((CUF)168 2412 A
2622(n)S
2706(8))S
6210 V
(19809)210 648 A
8418 V
EP
%%Page: 176 176
BP
/slant 0 def
/height 0 def
630 V
12 B
(176)180 648 A
11 R
2012(File:)S
(src/lib/float/cuf8.c)819 2245 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(19810)210 648 A
(THIS)168 1362 A
(ROUTINE)294 1572 A
(WORKS)210 1908 A
2160(BY)S
(FILLING)294 2286 A
2622(AN)S
(EXTENDED)336 2748 A
990 V
(19811)210 648 A
(WITH)168 1362 A
(THE)126 1572 A
(INTEGER)294 1740 A
(VALUE)210 2076 A
2328(IN)S
(EXTENDED)336 2454 A
(FORMAT)252 2832 A
1080 V
(19812)210 648 A
(AND)126 1362 A
(USES)168 1530 A
(COMPACT())378 1740 A
2160(TO)S
(PUT)126 2286 A
2454(IT)S
(INTO)168 2580 A
(THE)126 2790 A
(PROPER)252 2958 A
1170 V
(19813)210 648 A
(FLOATING)336 1362 A
(POINT)210 1740 A
(PRECISION.)420 1992 A
1260 V
(19814)210 648 A
1026(*/)S
1350 V
(19815)210 648 A
1440 V
(19816)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
1530 V
(19817)210 648 A
1620 V
(19818)210 648 A
(void)168 1026 A
1710 V
(19819)210 648 A
(cuf8(ss,src))504 1026 A
1800 V
(19820)210 648 A
(int)126 1026 A
(ss;)126 1362 A
1698(/*)S
(source)252 1824 A
(size)168 2118 A
2328(*/)S
1890 V
(19821)210 648 A
(long)168 1026 A
(src;)168 1362 A
1698(/*)S
(largest)294 1824 A
(possible)336 2160 A
(integer)294 2538 A
2874(to)S
(convert)294 3000 A
3336(*/)S
1980 V
(19822)210 648 A
1026({)S
2070 V
(19823)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
2160 V
(19824)210 648 A
(short)210 1362 A
(*ipt;)210 1698 A
2250 V
(19825)210 648 A
(long)168 1362 A
(i_src;)252 1698 A
2340 V
(19826)210 648 A
2430 V
(19827)210 648 A
(zrf_ext(&buf);)588 1362 A
2520 V
(19828)210 648 A
1362(if)S
((ss)126 1488 A
1656(==)S
(sizeof(long)))546 1782 A
2370({)S
2610 V
(19829)210 648 A
(buf.exp)294 1698 A
2034(=)S
(31;)126 2118 A
2700 V
(19830)210 648 A
(i_src)210 1698 A
1950(=)S
(src;)168 2034 A
2790 V
(19831)210 648 A
1362(})S
2880 V
(19832)210 648 A
(else)168 1362 A
1698({)S
2970 V
(19833)210 648 A
(ipt)126 1698 A
1866(=)S
((short)252 1950 A
2244(*))S
(&src;)210 2370 A
3060 V
(19834)210 648 A
(i_src)210 1698 A
1950(=)S
((long))252 2034 A
(*ipt;)210 2328 A
3150 V
(19835)210 648 A
(buf.exp)294 1698 A
2034(=)S
(15;)126 2118 A
3240 V
(19836)210 648 A
1362(})S
3330 V
(19837)210 648 A
1362(if)S
((i_src)252 1488 A
1782(==)S
1908(0))S
2034({)S
3420 V
(19838)210 648 A
(zrf8((DOUBLE)504 1698 A
(*)((void)336 2244 A
(*)&ss));)336 2622 A
3510 V
(19839)210 648 A
(return;)294 1698 A
3600 V
(19840)210 648 A
1362(})S
3690 V
(19841)210 648 A
2034(/*)S
(ESTABLISHED)462 2160 A
(THAT)168 2664 A
(src)126 2874 A
3042(!=)S
3168(0)S
3378(*/)S
3780 V
(19842)210 648 A
3870 V
(19843)210 648 A
2034(/*)S
(adjust)252 2160 A
(exponent)336 2454 A
(field)210 2832 A
3378(*/)S
3960 V
(19844)210 648 A
1362(if)S
((ss)126 1488 A
1656(!=)S
(sizeof(long)))546 1782 A
4050 V
(19845)210 648 A
(i_src)210 1698 A
(<<=)126 1950 A
(16;)126 2118 A
4140 V
(19846)210 648 A
4230 V
(19847)210 648 A
2034(/*)S
(move)168 2160 A
2370(to)S
(mantissa)336 2496 A
(field)210 2874 A
3378(*/)S
4320 V
(19848)210 648 A
(buf.m1)252 1362 A
1656(=)S
(i_src;)252 1740 A
4410 V
(19849)210 648 A
4500 V
(19850)210 648 A
2034(/*)S
(adjust)252 2160 A
(mantissa)336 2454 A
(field)210 2832 A
3378(*/)S
4590 V
(19851)210 648 A
(nrm_ext(&buf);)588 1362 A
4680 V
(19852)210 648 A
(compact(&buf,(unsigned)924 1362 A
(long)168 2328 A
2538(*))S
((void)210 2664 A
(*)&ss,8);)378 2916 A
4770 V
(19853)210 648 A
1026(})S
5040 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
5130 V
(src/lib/float/div_ext.c)966 1698 A
5220 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
5400 V
(19900)210 648 A
1026(/*)S
5490 V
(19901)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
5580 V
(19902)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
5670 V
(19903)210 648 A
1026(*/)S
5760 V
(19904)210 648 A
5850 V
(19905)210 648 A
1026(/*)S
($Header:)336 1152 A
(div_ext.c,v)462 1530 A
(1.10)168 2034 A
(93/01/05)336 2244 A
(12:04:47)336 2622 A
(ceriel)252 3000 A
(Exp)126 3294 A
3462($)S
3546(*/)S
5940 V
(19906)210 648 A
6030 V
(19907)210 648 A
1026(/*)S
6120 V
(19908)210 648 A
(DIVIDE)252 1362 A
(EXTENDED)336 1656 A
(FORMAT)252 2034 A
6210 V
(19909)210 648 A
1026(*/)S
8418 V
EP
%%Page: 177 177
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1944(File:)S
(src/lib/float/div_ext.c)954 2177 A
12 B
(177)180 4248 A
900 V
7 LST
(19910)210 648 A
990 V
(19911)210 648 A
(#include)336 1026 A
("FP_bias.h")462 1404 A
1080 V
(19912)210 648 A
(#include)336 1026 A
("FP_trap.h")462 1404 A
1170 V
(19913)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
1260 V
(19914)210 648 A
1350 V
(19915)210 648 A
1026(/*)S
1440 V
(19916)210 648 A
(November)336 1362 A
(15,)126 1740 A
(1984)168 1908 A
1530 V
(19917)210 648 A
1620 V
(19918)210 648 A
(This)168 1362 A
1572(is)S
1698(a)S
(routine)294 1782 A
2118(to)S
2244(do)S
(the)126 2370 A
(work.)210 2538 A
1710 V
(19919)210 648 A
(There)210 1362 A
(are)126 1614 A
(two)126 1782 A
(versions:)378 1950 A
1800 V
(19920)210 648 A
(One)126 1362 A
1530(is)S
(based)210 1656 A
1908(on)S
(the)126 2034 A
(partial)294 2202 A
(products)336 2538 A
(method)252 2916 A
1890 V
(19921)210 648 A
(and)126 1362 A
(makes)210 1530 A
1782(no)S
(use)126 1908 A
(possible)336 2076 A
(machine)294 2454 A
(instructions)504 2790 A
1980 V
(19922)210 648 A
1362(to)S
(divide)252 1488 A
((hardware)378 1782 A
(dividers).)420 2202 A
2070 V
(19923)210 648 A
(The)126 1362 A
(other)210 1530 A
1782(is)S
(used)168 1908 A
(when)168 2118 A
(USE_DIVIDE)420 2328 A
2790(is)S
(defined.)336 2916 A
3294(It)S
3420(is)S
(much)168 3546 A
(faster)252 3756 A
4050(on)S
2160 V
(19924)210 648 A
(machines)336 1362 A
(with)168 1740 A
(fast)168 1950 A
2160(4)S
(byte)168 2244 A
(operations.)462 2454 A
2250 V
(19925)210 648 A
1026(*/)S
2340 V
(19926)210 648 A
(/********************************************************/)2436 1026 A
2430 V
(19927)210 648 A
2520 V
(19928)210 648 A
(void)168 1026 A
2610 V
(19929)210 648 A
(div_ext(e1,e2))588 1026 A
2700 V
(19930)210 648 A
(EXTEND)252 1026 A
(*e1,*e2;)336 1362 A
2790 V
(19931)210 648 A
1026({)S
2880 V
(19932)210 648 A
(short)210 1362 A
(error)210 1698 A
1950(=)S
2034(0;)S
2970 V
(19933)210 648 A
(B64)126 1362 A
(result;)294 2034 A
3060 V
(19934)210 648 A
(register)336 1362 A
(unsigned)336 2034 A
(long)168 2412 A
(*lp;)168 2706 A
3150 V
(19935)210 648 A
(#ifndef)294 1026 A
(USE_DIVIDE)420 1362 A
3240 V
(19936)210 648 A
(short)210 1362 A
(count;)252 1698 A
3330 V
(19937)210 648 A
(#else)210 1026 A
3420 V
(19938)210 648 A
(unsigned)336 1362 A
(short)210 1740 A
(u[9],)210 1992 A
(v[5];)210 2244 A
3510 V
(19939)210 648 A
(register)336 1362 A
(int)126 1740 A
1908(j;)S
3600 V
(19940)210 648 A
(register)336 1362 A
(unsigned)336 1740 A
(short)210 2118 A
(*u_p)168 2370 A
2580(=)S
2664(u;)S
3690 V
(19941)210 648 A
(int)126 1362 A
(maxv)168 1530 A
1740(=)S
1824(4;)S
3780 V
(19942)210 648 A
(#endif)252 1026 A
3870 V
(19943)210 648 A
3960 V
(19944)210 648 A
1362(if)S
(((e2->m1)336 1488 A
1866(|)S
(e2->m2))294 1950 A
2286(==)S
2412(0))S
2538({)S
4050 V
(19945)210 648 A
1698(/*)S
4140 V
(19946)210 648 A
1740(*)S
(Exception)378 1824 A
(8.2)126 2244 A
2412(-)S
(Divide)252 2496 A
2790(by)S
(zero)168 2916 A
4230 V
(19947)210 648 A
1740(*/)S
4320 V
(19948)210 648 A
(trap(EFDIVZ);)546 1698 A
4410 V
(19949)210 648 A
(e1->m1)252 1698 A
1992(=)S
(e1->m2)252 2076 A
2370(=)S
(0L;)126 2454 A
4500 V
(19950)210 648 A
(e1->exp)294 1698 A
2034(=)S
(EXT_MAX;)336 2118 A
4590 V
(19951)210 648 A
(return;)294 1698 A
4680 V
(19952)210 648 A
1362(})S
4770 V
(19953)210 648 A
1362(if)S
(((e1->m1)336 1488 A
1866(|)S
(e1->m2))294 1950 A
2286(==)S
2412(0))S
2538({)S
2706(/*)S
2832(0)S
2916(/)S
(anything)336 3000 A
3378(==)S
3504(0)S
3588(*/)S
4860 V
(19954)210 648 A
(e1->exp)294 1698 A
2034(=)S
2118(0;)S
2370(/*)S
(make)168 2496 A
(sure)168 2706 A
2916(*/)S
4950 V
(19955)210 648 A
(return;)294 1698 A
5040 V
(19956)210 648 A
1362(})S
5130 V
(19957)210 648 A
(#ifndef)294 1026 A
(USE_DIVIDE)420 1362 A
5220 V
(19958)210 648 A
1362(/*)S
5310 V
(19959)210 648 A
1404(*)S
(numbers)294 1488 A
(are)126 1824 A
(right)210 1992 A
(shifted)294 2244 A
(one)126 2580 A
(bit)126 2748 A
2916(to)S
(make)168 3042 A
(sure)168 3252 A
5400 V
(19960)210 648 A
1404(*)S
(that)168 1488 A
1698(m1)S
1824(is)S
(quaranteed)420 1950 A
2412(to)S
2538(be)S
(larger)252 2664 A
2958(if)S
(its)126 3084 A
5490 V
(19961)210 648 A
1404(*)S
(maximum)294 1488 A
(bit)126 1824 A
1992(is)S
(set)126 2118 A
5580 V
(19962)210 648 A
1404(*/)S
5670 V
(19963)210 648 A
(b64_rsft(&e1->mantissa);)1008 1362 A
2706(/*)S
2832(64)S
(bit)126 2958 A
(shift)210 3126 A
(right)210 3378 A
3630(*/)S
5760 V
(19964)210 648 A
(b64_rsft(&e2->mantissa);)1008 1362 A
2706(/*)S
2832(64)S
(bit)126 2958 A
(shift)210 3126 A
(right)210 3378 A
3630(*/)S
5850 V
(19965)210 648 A
(e1->exp++;)420 1362 A
5940 V
(19966)210 648 A
(e2->exp++;)420 1362 A
6030 V
(19967)210 648 A
(#endif)252 1026 A
6120 V
(19968)210 648 A
1362(/*)S
(check)210 1698 A
(for)126 1950 A
(underflow,)420 2118 A
(divide)252 2580 A
2874(by)S
(zero,)210 3000 A
(etc)126 3252 A
3714(*/)S
6210 V
(19969)210 648 A
(e1->sign)336 1362 A
1740(303=)S
(e2->sign;)378 1866 A
8418 V
EP
%%Page: 178 178
BP
/slant 0 def
/height 0 def
630 V
12 B
(178)180 648 A
11 R
1944(File:)S
(src/lib/float/div_ext.c)954 2177 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(19970)210 648 A
(e1->exp)294 1362 A
1698(-=)S
(e2->exp;)336 1824 A
990 V
(19971)210 648 A
1080 V
(19972)210 648 A
(#ifndef)294 1026 A
(USE_DIVIDE)420 1362 A
1170 V
(19973)210 648 A
1698(/*)S
1824(do)S
(division)336 1950 A
2328(of)S
(mantissas)378 2454 A
3042(*/)S
1260 V
(19974)210 648 A
1698(/*)S
(uses)168 1824 A
(partial)294 2034 A
(product)294 2370 A
(method)252 2706 A
3042(*/)S
1350 V
(19975)210 648 A
1698(/*)S
(init)168 1824 A
(control)294 2034 A
(variables)378 2370 A
3042(*/)S
1440 V
(19976)210 648 A
1530 V
(19977)210 648 A
(count)210 1362 A
1614(=)S
(64;)126 1698 A
1620 V
(19978)210 648 A
(result.h_32)462 1362 A
1866(=)S
(0L;)126 1950 A
1710 V
(19979)210 648 A
(result.l_32)462 1362 A
1866(=)S
(0L;)126 1950 A
1800 V
(19980)210 648 A
1890 V
(19981)210 648 A
1698(/*)S
(partial)294 1824 A
(product)294 2160 A
(division)336 2496 A
(loop)168 2874 A
3084(*/)S
1980 V
(19982)210 648 A
2070 V
(19983)210 648 A
(while)210 1362 A
((count--))378 1614 A
2034({)S
2160 V
(19984)210 648 A
1698(/*)S
(first)210 1824 A
(left)168 2076 A
(shift)210 2286 A
(result)252 2538 A
2832(1)S
(bit)126 2916 A
3378(*/)S
2250 V
(19985)210 648 A
1698(/*)S
(this)168 1824 A
2034(is)S
(ALWAYS)252 2160 A
(done)168 2454 A
3378(*/)S
2340 V
(19986)210 648 A
2430 V
(19987)210 648 A
(b64_lsft(&result);)756 1698 A
2520 V
(19988)210 648 A
2610 V
(19989)210 648 A
1698(/*)S
(compare)294 1824 A
(dividend)336 2160 A
(and)126 2538 A
(divisor)294 2706 A
3378(*/)S
2700 V
(19990)210 648 A
1698(/*)S
1824(if)S
(dividend)336 1950 A
2328(>=)S
(divisor)294 2454 A
(add)126 2790 A
2958(a)S
(bit)126 3042 A
3378(*/)S
2790 V
(19991)210 648 A
1698(/*)S
(and)126 1824 A
(subtract)336 1992 A
(divisior)336 2370 A
(from)168 2748 A
(dividend)336 2958 A
3378(*/)S
2880 V
(19992)210 648 A
2970 V
(19993)210 648 A
1698(if)S
1824(()S
((e1->m1)294 1908 A
2244(<)S
(e2->m1))294 2328 A
2664(||)S
3060 V
(19994)210 648 A
(((e1->m1)336 2034 A
2412(==)S
(e2->m1))294 2538 A
2874(&&)S
((e1->m2)294 3000 A
3336(<)S
(e2->m2))294 3420 A
3756()))S
3150 V
(19995)210 648 A
2034(;)S
2370(/*)S
(null)168 2496 A
(statement)378 2706 A
3126(*/)S
3240 V
(19996)210 648 A
2370(/*)S
(i.e.,)210 2496 A
(don't)210 2748 A
(add)126 3000 A
3168(or)S
(subtract)336 3294 A
3672(*/)S
3330 V
(19997)210 648 A
(else)168 1698 A
2034({)S
3420 V
(19998)210 648 A
(result.l_32++;)588 2034 A
2706(/*)S
(ADD)126 2832 A
3042(*/)S
3510 V
(19999)210 648 A
2034(if)S
((e2->m2)294 2160 A
2496(>)S
(e1->m2))294 2580 A
3600 V
(20000)210 648 A
(e1->m1)252 2370 A
2664(-=)S
2790(1;)S
3042(/*)S
(carry)210 3168 A
3420(in)S
3546(*/)S
3690 V
(20001)210 648 A
(e1->m1)252 2034 A
2328(-=)S
(e2->m1;)294 2454 A
3042(/*)S
3168(do)S
(SUBTRACTION)462 3294 A
3798(*/)S
3780 V
(20002)210 648 A
(e1->m2)252 2034 A
2328(-=)S
(e2->m2;)294 2454 A
3042(/*)S
(SUBTRACTION)462 3294 A
3798(*/)S
3870 V
(20003)210 648 A
1698(})S
3960 V
(20004)210 648 A
4050 V
(20005)210 648 A
1698(/*)S
(shift)210 2034 A
(dividend)336 2286 A
(left)168 2664 A
(one)126 2874 A
(bit)126 3042 A
3210(OR)S
3378(*/)S
4140 V
(20006)210 648 A
1698(/*)S
2034(IF)S
2160(it)S
(equals)252 2286 A
(ZERO)168 2580 A
2790(we)S
(can)126 2916 A
(break)210 3084 A
(out)126 3336 A
3714(*/)S
4230 V
(20007)210 648 A
1698(/*)S
2034(of)S
(the)126 2160 A
(loop,)210 2328 A
(but)126 2580 A
(still)210 2748 A
(must)168 3000 A
(shift)210 3210 A
3714(*/)S
4320 V
(20008)210 648 A
1698(/*)S
(the)126 2034 A
(quotient)336 2202 A
(the)126 2580 A
(remaining)378 2748 A
(count)210 3168 A
(bits)168 3420 A
3714(*/)S
4410 V
(20009)210 648 A
1698(/*)S
1824(NB)S
(save)168 2034 A
(the)126 2244 A
(results)294 2412 A
2748(of)S
(this)168 2874 A
(test)168 3084 A
3294(in)S
(error)210 3420 A
3714(*/)S
4500 V
(20010)210 648 A
1698(/*)S
2034(if)S
(not)126 2160 A
(zero,)210 2328 A
(then)168 2580 A
(the)126 2790 A
(result)252 2958 A
3252(is)S
(inexact.)336 3378 A
3756(*/)S
4590 V
(20011)210 648 A
1698(/*)S
(this)168 2034 A
(would)210 2244 A
2496(be)S
(reported)336 2622 A
3000(in)S
(IEEE)168 3126 A
(standard)336 3336 A
3714(*/)S
4680 V
(20012)210 648 A
4770 V
(20013)210 648 A
1698(/*)S
2034(lp)S
(points)252 2160 A
2454(to)S
(dividend)336 2580 A
3714(*/)S
4860 V
(20014)210 648 A
1698(lp)S
1824(=)S
(&e1->m1;)336 1908 A
4950 V
(20015)210 648 A
5040 V
(20016)210 648 A
(error)210 1698 A
1950(=)S
(((*lp)210 2034 A
2286(|)S
(*(lp+1)))336 2370 A
2748(!=)S
(0L))126 2874 A
3042(?)S
3126(1)S
3210(:)S
3294(0;)S
5130 V
(20017)210 648 A
1698(if)S
((error))294 1824 A
2370({)S
2706(/*)S
(more)168 2832 A
(work)168 3042 A
3252(*/)S
5220 V
(20018)210 648 A
2034(/*)S
(assume)252 2370 A
(max)126 2664 A
(bit)126 2832 A
3000(==)S
3126(0)S
((see)168 3210 A
(above))252 3420 A
3714(*/)S
5310 V
(20019)210 648 A
(b64_lsft(&e1->mantissa);)1008 2034 A
5400 V
(20020)210 648 A
(continue;)378 2034 A
5490 V
(20021)210 648 A
1698(})S
5580 V
(20022)210 648 A
(else)168 1698 A
5670 V
(20023)210 648 A
(break;)252 2034 A
2370(/*)S
(leave)210 2496 A
(loop)168 2748 A
3042(*/)S
5760 V
(20024)210 648 A
1362(})S
1698(/*)S
(end)126 1824 A
1992(of)S
(divide)252 2118 A
2412(by)S
(subtraction)462 2538 A
(loop)168 3042 A
3378(*/)S
5850 V
(20025)210 648 A
5940 V
(20026)210 648 A
1362(if)S
((count)252 1488 A
1782(>)S
1866(0))S
2034({)S
6030 V
(20027)210 648 A
1698(lp)S
1824(=)S
(&result.h_32;)546 1908 A
6120 V
(20028)210 648 A
1698(if)S
((count)252 1824 A
2118(>)S
(31))126 2202 A
2370({)S
2706(/*)S
(move)168 2832 A
3042(to)S
(higher)252 3168 A
(word)168 3462 A
3672(*/)S
6210 V
(20029)210 648 A
(*lp)126 2034 A
2202(=)S
(*(lp+1);)336 2286 A
8418 V
EP
%%Page: 179 179
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1944(File:)S
(src/lib/float/div_ext.c)954 2177 A
12 B
(179)180 4248 A
900 V
7 LST
(20030)210 648 A
(count)210 2034 A
2286(-=)S
(32;)126 2412 A
990 V
(20031)210 648 A
(*(lp+1))294 2034 A
2370(=)S
(0L;)126 2454 A
2706(/*)S
(clear)210 2832 A
(low)126 3084 A
(word)168 3252 A
3714(*/)S
1080 V
(20032)210 648 A
1698(})S
1170 V
(20033)210 648 A
1698(if)S
((*lp))210 1824 A
1260 V
(20034)210 648 A
(*lp)126 2034 A
(<<=)126 2202 A
(count;)252 2370 A
2706(/*)S
(shift)210 2832 A
(rest)168 3084 A
3294(of)S
(way)126 3420 A
3714(*/)S
1350 V
(20035)210 648 A
(lp++;)210 1698 A
2034(/*)S
2202(==)S
(&result.l_32)504 2328 A
3042(*/)S
1440 V
(20036)210 648 A
1698(if)S
((*lp))210 1824 A
2076({)S
1530 V
(20037)210 648 A
(result.h_32)462 2034 A
2538(|=)S
((*lp)168 2664 A
2874(>>)S
(32-count);)420 3000 A
1620 V
(20038)210 648 A
(*lp)126 2034 A
(<<=)126 2202 A
(count;)252 2370 A
1710 V
(20039)210 648 A
1698(})S
1800 V
(20040)210 648 A
1362(})S
1890 V
(20041)210 648 A
(#else)210 1026 A
1278(/*)S
(USE_DIVIDE)420 1404 A
1866(*/)S
1980 V
(20042)210 648 A
2070 V
(20043)210 648 A
(u[4])168 1362 A
1572(=)S
((e1->m2)294 1656 A
1992(&)S
2076(1))S
2202(<<)S
(15;)126 2328 A
2160 V
(20044)210 648 A
(b64_rsft(&(e1->mantissa));)1092 1362 A
2250 V
(20045)210 648 A
(u[0])168 1362 A
1572(=)S
(e1->m1)252 1656 A
1950(>>)S
(16;)126 2076 A
2340 V
(20046)210 648 A
(u[1])168 1362 A
1572(=)S
(e1->m1;)294 1656 A
2430 V
(20047)210 648 A
(u[2])168 1362 A
1572(=)S
(e1->m2)252 1656 A
1950(>>)S
(16;)126 2076 A
2520 V
(20048)210 648 A
(u[3])168 1362 A
1572(=)S
(e1->m2;)294 1656 A
2610 V
(20049)210 648 A
(u[5])168 1362 A
1572(=)S
1656(0;)S
(u[6])168 1782 A
1992(=)S
2076(0;)S
(u[7])168 2202 A
2412(=)S
2496(0;)S
2700 V
(20050)210 648 A
(v[1])168 1362 A
1572(=)S
(e2->m1)252 1656 A
1950(>>)S
(16;)126 2076 A
2790 V
(20051)210 648 A
(v[2])168 1362 A
1572(=)S
(e2->m1;)294 1656 A
2880 V
(20052)210 648 A
(v[3])168 1362 A
1572(=)S
(e2->m2)252 1656 A
1950(>>)S
(16;)126 2076 A
2970 V
(20053)210 648 A
(v[4])168 1362 A
1572(=)S
(e2->m2;)294 1656 A
3060 V
(20054)210 648 A
(while)210 1362 A
1614((!)S
(v[maxv]))336 1740 A
(maxv--;)294 2118 A
3150 V
(20055)210 648 A
(result.h_32)462 1362 A
1866(=)S
1950(0;)S
3240 V
(20056)210 648 A
(result.l_32)462 1362 A
1866(=)S
1950(0;)S
3330 V
(20057)210 648 A
1362(lp)S
1488(=)S
(&result.h_32;)546 1572 A
3420 V
(20058)210 648 A
3510 V
(20059)210 648 A
1362(/*)S
3600 V
(20060)210 648 A
1404(*)S
(Use)126 1488 A
1656(an)S
(algorithm)378 1782 A
2202(of)S
(Knuth)210 2328 A
((The)168 2580 A
(art)126 2790 A
2958(of)S
(programming,)504 3084 A
(Seminumerical)546 3630 A
3690 V
(20061)210 648 A
1404(*)S
(algorithms),)504 1488 A
2034(to)S
(divide)252 2160 A
2454(u)S
2538(by)S
2664(v.)S
2790(u)S
(and)126 2874 A
3042(v)S
(are)126 3126 A
(both)168 3294 A
(seen)168 3504 A
3714(as)S
(numbers)294 3840 A
3780 V
(20062)210 648 A
1404(*)S
(with)168 1488 A
(base)168 1698 A
(65536.)252 1908 A
3870 V
(20063)210 648 A
1404(*/)S
3960 V
(20064)210 648 A
(for)126 1362 A
1530((j)S
1656(=)S
1740(0;)S
1866(j)S
1950(<=)S
2076(3;)S
(j++,)168 2202 A
(u_p++))252 2412 A
2706({)S
4050 V
(20065)210 648 A
(unsigned)336 1698 A
(long)168 2076 A
(q_est,)252 2286 A
(temp;)210 2580 A
4140 V
(20066)210 648 A
4230 V
(20067)210 648 A
1698(if)S
1824((j)S
1950(==)S
2076(2))S
(lp++;)210 2202 A
4320 V
(20068)210 648 A
1698(if)S
((u_p[0])294 1824 A
2160(==)S
2286(0)S
2370(&&)S
(u_p[1])252 2496 A
2790(<)S
(v[1]))210 2874 A
(continue;)378 3126 A
4410 V
(20069)210 648 A
(temp)168 1698 A
1908(=)S
(((unsigned)420 1992 A
(long)u_p[0])462 2454 A
2958(<<)S
(16))126 3084 A
3252(+)S
(u_p[1];)294 3336 A
4500 V
(20070)210 648 A
1698(if)S
((u_p[0])294 1824 A
2160(>=)S
(v[1]))210 2286 A
2538({)S
4590 V
(20071)210 648 A
(q_est)210 2034 A
2286(=)S
(0x0000FFFFL;)504 2370 A
4680 V
(20072)210 648 A
1698(})S
4770 V
(20073)210 648 A
(else)168 1698 A
1908({)S
4860 V
(20074)210 648 A
(q_est)210 2034 A
2286(=)S
(temp)168 2370 A
2580(/)S
(v[1];)210 2664 A
4950 V
(20075)210 648 A
1698(})S
5040 V
(20076)210 648 A
(temp)168 1698 A
1908(-=)S
(q_est)210 2034 A
2286(*)S
(v[1];)210 2370 A
5130 V
(20077)210 648 A
(while)210 1698 A
((temp)210 1950 A
2202(<)S
(0x10000)294 2286 A
2622(&&)S
(v[2]*q_est)420 2748 A
3210(>)S
(((temp<<16)+u_p[2])))840 3294 A
4176({)S
5220 V
(20078)210 648 A
(q_est--;)336 2034 A
5310 V
(20079)210 648 A
(temp)168 2034 A
2244(+=)S
(v[1];)210 2370 A
5400 V
(20080)210 648 A
1698(})S
5490 V
(20081)210 648 A
1698(/*)S
(Now,)168 2034 A
(according)378 2244 A
2664(to)S
(Knuth,)252 2790 A
3084(we)S
(have)168 3210 A
3420(an)S
(estimate)336 3546 A
3924(of)S
(the)126 4050 A
5580 V
(20082)210 648 A
(quotient,)378 2034 A
(that)168 2454 A
2664(is)S
(either)252 2790 A
(correct)294 3084 A
3420(or)S
(one)126 3546 A
(too)126 3714 A
(big,)168 3882 A
(but)126 4092 A
5670 V
(20083)210 648 A
(almost)252 2034 A
(always)252 2328 A
(correct.)336 2622 A
5760 V
(20084)210 648 A
1698(*/)S
5850 V
(20085)210 648 A
1698(if)S
((q_est)252 1824 A
2118(!=)S
2244(0))S
2412({)S
5940 V
(20086)210 648 A
(int)126 2034 A
2202(i;)S
6030 V
(20087)210 648 A
(unsigned)336 2034 A
(long)168 2412 A
2622(k)S
2706(=)S
2790(0;)S
6120 V
(20088)210 648 A
(int)126 2034 A
(borrow)252 2202 A
2496(=)S
2580(0;)S
6210 V
(20089)210 648 A
8418 V
EP
%%Page: 180 180
BP
/slant 0 def
/height 0 def
630 V
12 B
(180)180 648 A
11 R
1944(File:)S
(src/lib/float/div_ext.c)954 2177 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(20090)210 648 A
(for)126 2034 A
2202((i)S
2328(=)S
(maxv;)210 2412 A
2664(i)S
2748(>)S
2832(0;)S
(i--))168 2958 A
3168({)S
990 V
(20091)210 648 A
(unsigned)336 2370 A
(long)168 2748 A
(tmp)126 2958 A
3126(=)S
(q_est)210 3210 A
3462(*)S
(v[i])168 3546 A
3756(+)S
3840(k)S
3924(+)S
(borrow;)294 4008 A
1080 V
(20092)210 648 A
(unsigned)336 2370 A
(short)210 2748 A
3000(md)S
3126(=)S
(tmp;)168 3210 A
1170 V
(20093)210 648 A
1260 V
(20094)210 648 A
(borrow)252 2370 A
2664(=)S
((md)126 2748 A
2916(>)S
(u_p[i]);)336 3000 A
1350 V
(20095)210 648 A
(u_p[i])252 2370 A
2664(-=)S
(md;)126 2790 A
1440 V
(20096)210 648 A
2370(k)S
2454(=)S
(tmp)126 2538 A
2706(>>)S
(16;)126 2832 A
1530 V
(20097)210 648 A
2034(})S
1620 V
(20098)210 648 A
2034(k)S
2118(+=)S
(borrow;)294 2244 A
1710 V
(20099)210 648 A
(borrow)252 2034 A
2328(=)S
(u_p[0])252 2412 A
2706(<)S
2790(k;)S
1800 V
(20100)210 648 A
(u_p[0])252 2034 A
2328(-=)S
2454(k;)S
1890 V
(20101)210 648 A
1980 V
(20102)210 648 A
2034(if)S
((borrow))336 2160 A
2538({)S
2070 V
(20103)210 648 A
2370(/*)S
(So,)126 2496 A
(this)168 2664 A
(does)168 2874 A
(not)126 3084 A
(happen)252 3252 A
(often;)252 3546 A
(the)126 3840 A
(estimate)336 4008 A
2160 V
(20104)210 648 A
(was)126 2496 A
(one)126 2664 A
(too)126 2832 A
(big;)168 3000 A
(correct)294 3210 A
(this)168 3546 A
2250 V
(20105)210 648 A
2370(*/)S
2340 V
(20106)210 648 A
(*lp)126 2370 A
2538(|=)S
2664((j)S
2790(&)S
2874(1))S
3000(?)S
((q_est)252 3084 A
3378(-)S
3462(1))S
3588(:)S
(((q_est-1)<<16);)672 3672 A
2430 V
(20107)210 648 A
(borrow)252 2370 A
2664(=)S
2748(0;)S
2520 V
(20108)210 648 A
(for)126 2370 A
2538((i)S
2664(=)S
(maxv;)210 2748 A
3000(i)S
3084(>)S
3168(0;)S
(i--))168 3294 A
3504({)S
2610 V
(20109)210 648 A
(unsigned)336 2706 A
(long)168 3084 A
(tmp)126 3294 A
2700 V
(20110)210 648 A
2874(=)S
(v[i]+(unsigned)588 2958 A
(long)u_p[i]+borrow;)798 3588 A
2790 V
(20111)210 648 A
2880 V
(20112)210 648 A
(u_p[i])252 2706 A
3000(=)S
(tmp;)168 3084 A
2970 V
(20113)210 648 A
(borrow)252 2706 A
3000(=)S
(tmp)126 3084 A
3252(>>)S
(16;)126 3378 A
3060 V
(20114)210 648 A
2370(})S
3150 V
(20115)210 648 A
(u_p[0])252 2370 A
2664(+=)S
(borrow;)294 2790 A
3240 V
(20116)210 648 A
2034(})S
3330 V
(20117)210 648 A
(else)168 2034 A
(*lp)126 2244 A
2412(|=)S
2538((j)S
2664(&)S
2748(1))S
2874(?)S
(q_est)210 2958 A
3210(:)S
((q_est<<16);)504 3294 A
3420 V
(20118)210 648 A
1698(})S
3510 V
(20119)210 648 A
1362(})S
3600 V
(20120)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1362 A
3690 V
(20121)210 648 A
(u_p)126 1362 A
1530(=)S
(&u[0];)252 1614 A
3780 V
(20122)210 648 A
(for)126 1362 A
1530((j)S
1656(=)S
1740(7;)S
1866(j)S
1950(>=)S
2076(0;)S
(j--))168 2202 A
2412({)S
3870 V
(20123)210 648 A
1698(if)S
((*u_p++))336 1824 A
2202({)S
3960 V
(20124)210 648 A
(error)210 2034 A
2286(=)S
2370(1;)S
4050 V
(20125)210 648 A
(break;)252 2034 A
4140 V
(20126)210 648 A
1698(})S
4230 V
(20127)210 648 A
1362(})S
4320 V
(20128)210 648 A
(#endif)252 1026 A
4410 V
(20129)210 648 A
(#endif)252 1026 A
4500 V
(20130)210 648 A
4590 V
(20131)210 648 A
(#ifdef)252 1026 A
(EXCEPTION_INEXACT)714 1362 A
4680 V
(20132)210 648 A
1362(if)S
((error))294 1488 A
2034({)S
4770 V
(20133)210 648 A
1698(/*)S
4860 V
(20134)210 648 A
1740(*)S
(report)252 1824 A
(here)168 2118 A
(exception)378 2328 A
(8.5)126 2748 A
2916(-)S
(Inexact)294 3000 A
4950 V
(20135)210 648 A
1740(*)S
(from)168 1824 A
(Draft)210 2034 A
(8.0)126 2286 A
2454(of)S
(IEEE)168 2580 A
(P754:)210 2790 A
5040 V
(20136)210 648 A
1740(*)S
1824(In)S
(the)126 1950 A
(absence)294 2118 A
2454(of)S
2580(an)S
(invalid)294 2706 A
(operation)378 3042 A
(exception,)420 3462 A
5130 V
(20137)210 648 A
1740(*)S
1824(if)S
(the)126 1950 A
(rounded)294 2118 A
(result)252 2454 A
2748(of)S
2874(an)S
(operation)378 3000 A
3420(is)S
(not)126 3546 A
(exact)210 3714 A
3966(or)S
4092(if)S
5220 V
(20138)210 648 A
1740(*)S
1824(it)S
(overflows)378 1950 A
(without)294 2370 A
2706(a)S
(trap,)210 2790 A
(then)168 3042 A
(the)126 3252 A
(inexact)294 3420 A
(exception)378 3756 A
5310 V
(20139)210 648 A
1740(*)S
(shall)210 1824 A
2076(be)S
(assigned.)378 2202 A
(The)126 2622 A
(rounded)294 2790 A
3126(or)S
(overflowed)420 3252 A
(result)252 3714 A
5400 V
(20140)210 648 A
1740(*)S
(shall)210 1824 A
2076(be)S
(delivered)378 2202 A
2622(to)S
(the)126 2748 A
(destination.)504 2916 A
5490 V
(20141)210 648 A
1740(*/)S
5580 V
(20142)210 648 A
(INEXACT();)420 1698 A
5670 V
(20143)210 648 A
(#endif)252 1026 A
5760 V
(20144)210 648 A
(e1->mantissa)504 1362 A
1908(=)S
(result;)294 1992 A
5850 V
(20145)210 648 A
5940 V
(20146)210 648 A
(nrm_ext(e1);)504 1362 A
6030 V
(20147)210 648 A
1362(if)S
((e1->exp)336 1488 A
1866(<)S
(EXT_MIN))336 1950 A
2370({)S
6120 V
(20148)210 648 A
1698(/*)S
6210 V
(20149)210 648 A
1740(*)S
(Exception)378 1824 A
(8.4)126 2244 A
2412(-)S
(Underflow)378 2496 A
8418 V
EP
%%Page: 181 181
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1944(File:)S
(src/lib/float/div_ext.c)954 2177 A
12 B
(181)180 4248 A
900 V
7 LST
(20150)210 648 A
1740(*/)S
990 V
(20151)210 648 A
(trap(EFUNFL);)546 1698 A
2370(/*)S
(underflow)378 2496 A
2916(*/)S
1080 V
(20152)210 648 A
(e1->exp)294 1698 A
2034(=)S
(EXT_MIN;)336 2118 A
1170 V
(20153)210 648 A
(e1->m1)252 1698 A
1992(=)S
(e1->m2)252 2076 A
2370(=)S
(0L;)126 2454 A
1260 V
(20154)210 648 A
(return;)294 1698 A
1350 V
(20155)210 648 A
1362(})S
1440 V
(20156)210 648 A
1362(if)S
((e1->exp)336 1488 A
1866(>=)S
(EXT_MAX))336 1992 A
2370({)S
1530 V
(20157)210 648 A
1698(/*)S
1620 V
(20158)210 648 A
1740(*)S
(Exception)378 1824 A
(8.3)126 2244 A
2412(-)S
(Overflow)336 2496 A
1710 V
(20159)210 648 A
1740(*/)S
1800 V
(20160)210 648 A
(trap(EFOVFL);)546 1698 A
2370(/*)S
(overflow)336 2496 A
2874(*/)S
1890 V
(20161)210 648 A
(e1->exp)294 1698 A
2034(=)S
(EXT_MAX;)336 2118 A
1980 V
(20162)210 648 A
(e1->m1)252 1698 A
1992(=)S
(e1->m2)252 2076 A
2370(=)S
(0L;)126 2454 A
2070 V
(20163)210 648 A
(return;)294 1698 A
2160 V
(20164)210 648 A
1362(})S
2250 V
(20165)210 648 A
1026(})S
2790 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2880 V
(src/lib/float/dvf4.c)840 1698 A
2970 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
3150 V
(20200)210 648 A
1026(/*)S
3240 V
(20201)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
3330 V
(20202)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
3420 V
(20203)210 648 A
1026(*/)S
3510 V
(20204)210 648 A
3600 V
(20205)210 648 A
1026(/*)S
($Header:)336 1152 A
(dvf4.c,v)336 1530 A
(1.5)126 1908 A
(93/01/05)336 2076 A
(12:04:53)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
3690 V
(20206)210 648 A
3780 V
(20207)210 648 A
1026(/*)S
3870 V
(20208)210 648 A
(DIVIDE)252 1362 A
(TWO)126 1656 A
(SINGLES)294 1824 A
2160(-)S
(SINGLE)252 2244 A
(Precision)378 2538 A
((dvf)168 2958 A
3168(4))S
3960 V
(20209)210 648 A
1026(*/)S
4050 V
(20210)210 648 A
4140 V
(20211)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
4230 V
(20212)210 648 A
4320 V
(20213)210 648 A
(void)168 1026 A
4410 V
(20214)210 648 A
(dvf4(s2,s1))462 1026 A
4500 V
(20215)210 648 A
(SINGLE)252 1026 A
(s1,s2;)252 1362 A
4590 V
(20216)210 648 A
1026({)S
4680 V
(20217)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
4770 V
(20218)210 648 A
4860 V
(20219)210 648 A
(extend(&s1,&e1,sizeof(SINGLE));)1302 1362 A
4950 V
(20220)210 648 A
(extend(&s2,&e2,sizeof(SINGLE));)1302 1362 A
5040 V
(20221)210 648 A
5130 V
(20222)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(divide)252 2034 A
2328(*/)S
5220 V
(20223)210 648 A
(div_ext(&e1,&e2);)714 1362 A
5310 V
(20224)210 648 A
(compact(&e1,&s1,sizeof(SINGLE));)1344 1362 A
5400 V
(20225)210 648 A
1026(})S
8418 V
EP
%%Page: 182 182
BP
/slant 0 def
/height 0 def
630 V
12 B
(182)180 648 A
11 R
2009(File:)S
(src/lib/float/dvf8.c)824 2242 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/dvf8.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(20300)210 648 A
1026(/*)S
1440 V
(20301)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(20302)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(20303)210 648 A
1026(*/)S
1710 V
(20304)210 648 A
1800 V
(20305)210 648 A
1026(/*)S
($Header:)336 1152 A
(dvf8.c,v)336 1530 A
(1.5)126 1908 A
(93/01/05)336 2076 A
(12:04:59)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(20306)210 648 A
1980 V
(20307)210 648 A
1026(/*)S
2070 V
(20308)210 648 A
(DIVIDE)252 1362 A
(TWO)126 1656 A
(FLOATS)252 1824 A
2118(-)S
(DOUBLE)252 2202 A
(Precision)378 2496 A
((DVF)168 2916 A
3126(8))S
2160 V
(20309)210 648 A
1026(*/)S
2250 V
(20310)210 648 A
2340 V
(20311)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
2430 V
(20312)210 648 A
2520 V
(20313)210 648 A
(void)168 1026 A
2610 V
(20314)210 648 A
(dvf8(s2,s1))462 1026 A
2700 V
(20315)210 648 A
(DOUBLE)252 1026 A
(s1,s2;)252 1362 A
2790 V
(20316)210 648 A
1026({)S
2880 V
(20317)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
2970 V
(20318)210 648 A
3060 V
(20319)210 648 A
(extend(&s1.d[0],&e1,sizeof(DOUBLE));)1512 1362 A
3150 V
(20320)210 648 A
(extend(&s2.d[0],&e2,sizeof(DOUBLE));)1512 1362 A
3240 V
(20321)210 648 A
3330 V
(20322)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(divide)252 2034 A
2328(*/)S
3420 V
(20323)210 648 A
(div_ext(&e1,&e2);)714 1362 A
3510 V
(20324)210 648 A
(compact(&e1,&s1.d[0],sizeof(DOUBLE));)1554 1362 A
3600 V
(20325)210 648 A
1026(})S
4140 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4230 V
(src/lib/float/extend.c)924 1698 A
4320 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4500 V
(20400)210 648 A
1026(/*)S
4590 V
(20401)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
4680 V
(20402)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
4770 V
(20403)210 648 A
1026(*/)S
4860 V
(20404)210 648 A
4950 V
(20405)210 648 A
1026(/*)S
($Header:)336 1152 A
(extend.c,v)420 1530 A
(1.11)168 1992 A
(93/01/05)336 2202 A
(12:05:05)336 2580 A
(ceriel)252 2958 A
(Exp)126 3252 A
3420($)S
3504(*/)S
5040 V
(20406)210 648 A
5130 V
(20407)210 648 A
1026(/*)S
5220 V
(20408)210 648 A
(CONVERTS)336 1362 A
(FLOATING)336 1740 A
(POINT)210 2118 A
2370(TO)S
(EXTENDED)336 2496 A
(FORMAT)252 2874 A
5310 V
(20409)210 648 A
5400 V
(20410)210 648 A
(Two)126 1362 A
(sizes)210 1530 A
1782(of)S
(FLOATING)336 1908 A
(Point)210 2286 A
(are)126 2538 A
(known:)252 2706 A
5490 V
(20411)210 648 A
(SINGLE)252 1698 A
(and)126 1992 A
(DOUBLE)252 2160 A
5580 V
(20412)210 648 A
1026(*/)S
5670 V
(20413)210 648 A
(/********************************************************/)2436 1026 A
5760 V
(20414)210 648 A
1026(/*)S
5850 V
(20415)210 648 A
1362(It)S
1488(is)S
(not)126 1614 A
(required)336 1782 A
2160(to)S
(normalize)378 2286 A
2706(in)S
(extended)336 2832 A
5940 V
(20416)210 648 A
(format,)294 1362 A
(but)126 1698 A
1866(it)S
(has)126 1992 A
(been)168 2160 A
(chosen)252 2370 A
2664(to)S
2790(do)S
(so.)126 2916 A
6030 V
(20417)210 648 A
(Extended)336 1362 A
(Format)252 1740 A
2034(is)S
2160(as)S
(follows)294 2286 A
((at)126 2622 A
(exit):)252 2790 A
6120 V
(20418)210 648 A
6210 V
(20419)210 648 A
(->sign)252 1026 A
(S000)168 1362 A
(0000)168 1572 A
1782(|)S
(0000)168 1866 A
(0000)168 2076 A
(<SIGN>)252 2706 A
8418 V
EP
%%Page: 183 183
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
1962(File:)S
(src/lib/float/extend.c)918 2195 A
12 B
(183)180 4248 A
900 V
7 LST
(20420)210 648 A
(->exp)210 1026 A
(0EEE)168 1362 A
(EEEE)168 1572 A
1782(|)S
(EEEE)168 1866 A
(EEEE)168 2076 A
(<EXPONENT>)420 2706 A
990 V
(20421)210 648 A
(->m1)168 1026 A
(LFFF)168 1362 A
(FFFF)168 1572 A
1782(|)S
(FFFF)168 1866 A
(FFFF)168 2076 A
(<L.Fraction>)504 2706 A
1080 V
(20422)210 648 A
(FFFF)168 1362 A
(FFFF)168 1572 A
1782(|)S
(FFFF)168 1866 A
(FFFF)168 2076 A
(<Fraction>)420 2706 A
1170 V
(20423)210 648 A
(->m2)168 1026 A
(FFFF)168 1362 A
(FFFF)168 1572 A
1782(|)S
(FFFF)168 1866 A
(FFFF)168 2076 A
(<Fraction>)420 2706 A
1260 V
(20424)210 648 A
(FFFF)168 1362 A
(F000)168 1572 A
1782(|)S
(0000)168 1866 A
(0000)168 2076 A
(<Fraction>)420 2706 A
1350 V
(20425)210 648 A
1026(*/)S
1440 V
(20426)210 648 A
(/********************************************************/)2436 1026 A
1530 V
(20427)210 648 A
1620 V
(20428)210 648 A
(#include)336 1026 A
("FP_bias.h")462 1404 A
1710 V
(20429)210 648 A
(#include)336 1026 A
("FP_shift.h")504 1404 A
1800 V
(20430)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
1890 V
(20431)210 648 A
(#include)336 1026 A
("get_put.h")462 1404 A
1980 V
(20432)210 648 A
(/********************************************************/)2436 1026 A
2070 V
(20433)210 648 A
2160 V
(20434)210 648 A
(void)168 1026 A
2250 V
(20435)210 648 A
(extend(from,to,size))840 1026 A
2340 V
(20436)210 648 A
(unsigned)336 1026 A
(long)168 1404 A
(*from;)252 1698 A
2430 V
(20437)210 648 A
(EXTEND)252 1026 A
(*to;)168 1362 A
2520 V
(20438)210 648 A
(int)126 1026 A
(size;)210 1362 A
2610 V
(20439)210 648 A
1026({)S
2700 V
(20440)210 648 A
(register)336 1362 A
(char)168 1740 A
(*cpt1;)252 1950 A
2790 V
(20441)210 648 A
(unsigned)336 1362 A
(long)168 1740 A
(tmp;)168 2034 A
2880 V
(20442)210 648 A
(int)126 1362 A
(leadbit)294 1698 A
2034(=)S
2118(0;)S
2970 V
(20443)210 648 A
3060 V
(20444)210 648 A
(cpt1)168 1362 A
1572(=)S
((char)210 1656 A
1908(*))S
(from;)210 2034 A
3150 V
(20445)210 648 A
3240 V
(20446)210 648 A
(#if)126 1026 A
(FL_MSL_AT_LOW_ADDRESS)882 1194 A
3330 V
(20447)210 648 A
(#if)126 1026 A
(FL_MSW_AT_LOW_ADDRESS)882 1194 A
3420 V
(20448)210 648 A
(to->exp)294 1362 A
1698(=)S
(uget2(cpt1);)504 1782 A
3510 V
(20449)210 648 A
(#else)210 1026 A
3600 V
(20450)210 648 A
(to->exp)294 1362 A
1698(=)S
(uget2(cpt1+2);)588 1782 A
3690 V
(20451)210 648 A
(#endif)252 1026 A
3780 V
(20452)210 648 A
(#else)210 1026 A
3870 V
(20453)210 648 A
(#if)126 1026 A
(FL_MSW_AT_LOW_ADDRESS)882 1194 A
3960 V
(20454)210 648 A
(to->exp)294 1362 A
1698(=)S
(uget2(cpt1+(size)672 1782 A
2496(==)S
(sizeof(DOUBLE))588 2622 A
3252(?)S
3336(4)S
3420(:)S
(0));)168 3504 A
4050 V
(20455)210 648 A
(#else)210 1026 A
4140 V
(20456)210 648 A
(to->exp)294 1362 A
1698(=)S
(uget2(cpt1+(size)672 1782 A
2496(==)S
(sizeof(DOUBLE))588 2622 A
3252(?)S
3336(6)S
3420(:)S
(2));)168 3504 A
4230 V
(20457)210 648 A
(#endif)252 1026 A
4320 V
(20458)210 648 A
(#endif)252 1026 A
4410 V
(20459)210 648 A
(to->sign)336 1362 A
1740(=)S
((to->exp)336 1824 A
2202(&)S
(0x8000);)336 2286 A
2706(/*)S
(set)126 2832 A
(sign)168 3000 A
(bit)126 3210 A
3378(*/)S
4500 V
(20460)210 648 A
(to->exp)294 1362 A
1698(303=)S
(to->sign;)378 1824 A
4590 V
(20461)210 648 A
1362(if)S
((size)210 1488 A
1740(==)S
(sizeof(DOUBLE)))630 1866 A
4680 V
(20462)210 648 A
(to->exp)294 1698 A
(>>=)126 2034 A
(DBL_EXPSHIFT;)546 2202 A
4770 V
(20463)210 648 A
(else)168 1362 A
4860 V
(20464)210 648 A
(to->exp)294 1698 A
(>>=)126 2034 A
(SGL_EXPSHIFT;)546 2202 A
4950 V
(20465)210 648 A
1362(if)S
((to->exp)336 1488 A
1866(>)S
1950(0))S
5040 V
(20466)210 648 A
(leadbit++;)420 1698 A
2370(/*)S
(will)168 2496 A
(set)126 2706 A
(Lead)168 2874 A
(bit)126 3084 A
(later)210 3252 A
3714(*/)S
5130 V
(20467)210 648 A
(else)168 1362 A
(to->exp++;)420 1572 A
5220 V
(20468)210 648 A
5310 V
(20469)210 648 A
1362(if)S
((size)210 1488 A
1740(==)S
(sizeof(DOUBLE)))630 1866 A
2706({)S
5400 V
(20470)210 648 A
(#if)126 1026 A
(FL_MSL_AT_LOW_ADDRESS)882 1194 A
5490 V
(20471)210 648 A
(to->m1)252 1698 A
1992(=)S
(get4(cpt1);)462 2076 A
5580 V
(20472)210 648 A
(cpt1)168 1698 A
1908(+=)S
2034(4;)S
5670 V
(20473)210 648 A
(tmp)126 1698 A
1866(=)S
(get4(cpt1);)462 1950 A
5760 V
(20474)210 648 A
(#else)210 1026 A
5850 V
(20475)210 648 A
(tmp)126 1698 A
1866(=)S
(get4(cpt1);)462 1950 A
5940 V
(20476)210 648 A
(cpt1)168 1698 A
1908(+=)S
2034(4;)S
6030 V
(20477)210 648 A
(to->m1)252 1698 A
1992(=)S
(get4(cpt1);)462 2076 A
6120 V
(20478)210 648 A
(#endif)252 1026 A
6210 V
(20479)210 648 A
1698(if)S
((to->exp)336 1824 A
2202(==)S
2328(1)S
2412(&&)S
(to->m1)252 2538 A
2832(==)S
2958(0)S
3042(&&)S
(tmp)126 3168 A
3336(==)S
3462(0))S
3588({)S
8418 V
EP
%%Page: 184 184
BP
/slant 0 def
/height 0 def
630 V
12 B
(184)180 648 A
11 R
1962(File:)S
(src/lib/float/extend.c)918 2195 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(20480)210 648 A
(to->exp)294 2034 A
2370(=)S
2454(0;)S
990 V
(20481)210 648 A
(to->sign)336 2034 A
2412(=)S
2496(0;)S
1080 V
(20482)210 648 A
(to->m1)252 2034 A
2328(=)S
2412(0;)S
1170 V
(20483)210 648 A
(to->m2)252 2034 A
2328(=)S
2412(0;)S
1260 V
(20484)210 648 A
(return;)294 2034 A
1350 V
(20485)210 648 A
1698(})S
1440 V
(20486)210 648 A
(to->m1)252 1698 A
(<<=)126 1992 A
(DBL_M1LEFT;)462 2160 A
3042(/*)S
(shift)210 3168 A
3714(*/)S
1530 V
(20487)210 648 A
(to->exp)294 1698 A
2034(-=)S
(DBL_BIAS;)378 2160 A
3042(/*)S
(remove)252 3168 A
(bias)168 3462 A
3714(*/)S
1620 V
(20488)210 648 A
(to->m1)252 1698 A
1992(|=)S
((tmp>>DBL_RPACK);)714 2118 A
3042(/*)S
(plus)168 3168 A
3378(10)S
3504(==)S
3630(32)S
4050(*/)S
1710 V
(20489)210 648 A
(to->m2)252 1698 A
1992(=)S
((tmp<<DBL_LPACK);)714 2076 A
3042(/*)S
(plus)168 3168 A
3378(22)S
3504(==)S
3630(32)S
4050(*/)S
1800 V
(20490)210 648 A
1362(})S
1890 V
(20491)210 648 A
(else)168 1362 A
1698({)S
2034(/*)S
(size)168 2160 A
2370(==)S
(sizeof(SINGLE))588 2496 A
3714(*/)S
1980 V
(20492)210 648 A
(to->m1)252 1698 A
1992(=)S
(get4(cpt1);)462 2076 A
2070 V
(20493)210 648 A
(to->m1)252 1698 A
(<<=)126 2034 A
(SGL_M1LEFT;)462 2202 A
2706(/*)S
(shift)210 2832 A
3378(*/)S
2160 V
(20494)210 648 A
1698(if)S
((to->exp)336 1824 A
2202(==)S
2328(1)S
2412(&&)S
(to->m1)252 2538 A
2832(==)S
2958(0))S
3084({)S
2250 V
(20495)210 648 A
(to->exp)294 2034 A
2370(=)S
2454(0;)S
2340 V
(20496)210 648 A
(to->sign)336 2034 A
2412(=)S
2496(0;)S
2430 V
(20497)210 648 A
(to->m1)252 2034 A
2328(=)S
2412(0;)S
2520 V
(20498)210 648 A
(to->m2)252 2034 A
2328(=)S
2412(0;)S
2610 V
(20499)210 648 A
(return;)294 2034 A
2700 V
(20500)210 648 A
1698(})S
2790 V
(20501)210 648 A
(to->exp)294 1698 A
2034(-=)S
(SGL_BIAS;)378 2160 A
3042(/*)S
(remove)252 3168 A
(bias)168 3462 A
3714(*/)S
2880 V
(20502)210 648 A
(to->m2)252 1698 A
1992(=)S
(0L;)126 2076 A
2970 V
(20503)210 648 A
1362(})S
3060 V
(20504)210 648 A
3150 V
(20505)210 648 A
(to->m1)252 1362 A
1656(|=)S
(NORMBIT;)336 1782 A
3378(/*)S
(set)126 3504 A
(bit)126 3672 A
3840(L)S
4050(*/)S
3240 V
(20506)210 648 A
1362(if)S
((leadbit)336 1488 A
1866(==)S
1992(0))S
2118({)S
2706(/*)S
(set)126 2832 A
3000(or)S
(clear)210 3126 A
(Leading)294 3378 A
(Bit)126 3714 A
4050(*/)S
3330 V
(20507)210 648 A
(to->m1)252 1698 A
1992(&=)S
(304NORMBIT;)378 2118 A
3378(/*)S
(clear)210 3504 A
(bit)126 3756 A
3924(L)S
4050(*/)S
3420 V
(20508)210 648 A
(nrm_ext(to);)504 1698 A
3378(/*)S
(and)126 3504 A
(normalize)378 3672 A
4092(*/)S
3510 V
(20509)210 648 A
1362(})S
3600 V
(20510)210 648 A
1026(})S
4140 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4230 V
(src/lib/float/fef4.c)840 1698 A
4320 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4500 V
(20600)210 648 A
1026(/*)S
4590 V
(20601)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
4680 V
(20602)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
4770 V
(20603)210 648 A
1026(*/)S
4860 V
(20604)210 648 A
4950 V
(20605)210 648 A
1026(/*)S
($Header:)336 1152 A
(fef4.c,v)336 1530 A
(1.7)126 1908 A
(93/01/05)336 2076 A
(12:05:12)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
5040 V
(20606)210 648 A
5130 V
(20607)210 648 A
1026(/*)S
5220 V
(20608)210 648 A
(SEPERATE)336 1362 A
(INTO)168 1740 A
(EXPONENT)336 1950 A
(AND)126 2328 A
(FRACTION)336 2496 A
((FEF)168 2874 A
3084(4))S
5310 V
(20609)210 648 A
1026(*/)S
5400 V
(20610)210 648 A
5490 V
(20611)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
5580 V
(20612)210 648 A
5670 V
(20613)210 648 A
(void)168 1026 A
5760 V
(20614)210 648 A
(fef4(r,s1))420 1026 A
5850 V
(20615)210 648 A
(SINGLE)252 1026 A
(s1;)126 1362 A
5940 V
(20616)210 648 A
(struct)252 1026 A
(fef4_returns)504 1320 A
(*r;)126 2034 A
6030 V
(20617)210 648 A
1026({)S
6120 V
(20618)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
6210 V
(20619)210 648 A
(register)336 1362 A
(struct)252 1740 A
(fef4_returns)504 2034 A
2706(*p)S
2832(=)S
2916(r;)S
3042(/*)S
(make)168 3168 A
(copy;)210 3378 A
3630(r)S
(might)210 3714 A
(refer)210 3966 A
8418 V
EP
%%Page: 185 185
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2021(File:)S
(src/lib/float/fef4.c)801 2254 A
12 B
(185)180 4248 A
900 V
7 LST
(20620)210 648 A
3168(to)S
(itself)252 3294 A
((see)168 3588 A
(table))252 3798 A
990 V
(20621)210 648 A
3042(*/)S
1080 V
(20622)210 648 A
1170 V
(20623)210 648 A
(extend(&s1,&buf,sizeof(SINGLE));)1344 1362 A
1260 V
(20624)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(==)S
1992(0)S
2076(&&)S
(buf.m1)252 2202 A
2496(==)S
2622(0)S
2706(&&)S
(buf.m2)252 2832 A
3126(==)S
3252(0))S
3378({)S
1350 V
(20625)210 648 A
(p->e)168 1698 A
1908(=)S
1992(0;)S
1440 V
(20626)210 648 A
1362(})S
1530 V
(20627)210 648 A
(else)168 1362 A
1572({)S
1620 V
(20628)210 648 A
(p->e)168 1698 A
1908(=)S
(buf.exp+1;)420 1992 A
1710 V
(20629)210 648 A
(buf.exp)294 1698 A
2034(=)S
(-1;)126 2118 A
1800 V
(20630)210 648 A
1362(})S
1890 V
(20631)210 648 A
(compact(&buf,&p->f,sizeof(SINGLE));)1470 1362 A
1980 V
(20632)210 648 A
1026(})S
2340 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2430 V
(src/lib/float/fef8.c)840 1698 A
2520 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2700 V
(20700)210 648 A
1026(/*)S
2790 V
(20701)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
2880 V
(20702)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
2970 V
(20703)210 648 A
1026(*/)S
3060 V
(20704)210 648 A
3150 V
(20705)210 648 A
1026(/*)S
($Header:)336 1152 A
(fef8.c,v)336 1530 A
(1.7)126 1908 A
(93/01/05)336 2076 A
(12:05:18)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
3240 V
(20706)210 648 A
3330 V
(20707)210 648 A
1026(/*)S
3420 V
(20708)210 648 A
(SEPERATE)336 1362 A
(DOUBLE)252 1740 A
(INTO)168 2034 A
(EXPONENT)336 2244 A
(AND)126 2622 A
(FRACTION)336 2790 A
((FEF)168 3168 A
3378(8))S
3510 V
(20709)210 648 A
1026(*/)S
3600 V
(20710)210 648 A
3690 V
(20711)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
3780 V
(20712)210 648 A
3870 V
(20713)210 648 A
(void)168 1026 A
3960 V
(20714)210 648 A
(fef8(r,)294 1026 A
(s1))126 1362 A
4050 V
(20715)210 648 A
(DOUBLE)252 1026 A
(s1;)126 1362 A
4140 V
(20716)210 648 A
(struct)252 1026 A
(fef8_returns)504 1320 A
(*r;)126 1866 A
4230 V
(20717)210 648 A
1026({)S
4320 V
(20718)210 648 A
(EXTEND)252 1362 A
(buf;)168 1698 A
4410 V
(20719)210 648 A
(register)336 1362 A
(struct)252 1740 A
(fef8_returns)504 2034 A
2580(*p)S
2706(=)S
2790(r;)S
3042(/*)S
(make)168 3168 A
(copy,)210 3378 A
3630(r)S
(might)210 3714 A
(refer)210 3966 A
4500 V
(20720)210 648 A
3168(to)S
(itself)252 3294 A
((see)168 3588 A
(table))252 3798 A
4590 V
(20721)210 648 A
3042(*/)S
4680 V
(20722)210 648 A
4770 V
(20723)210 648 A
(extend(&s1.d[0],&buf,sizeof(DOUBLE));)1554 1362 A
4860 V
(20724)210 648 A
1362(if)S
((buf.exp)336 1488 A
1866(==)S
1992(0)S
2076(&&)S
(buf.m1)252 2202 A
2496(==)S
2622(0)S
2706(&&)S
(buf.m2)252 2832 A
3126(==)S
3252(0))S
3378({)S
4950 V
(20725)210 648 A
(p->e)168 1698 A
1908(=)S
1992(0;)S
5040 V
(20726)210 648 A
1362(})S
5130 V
(20727)210 648 A
(else)168 1362 A
1572({)S
5220 V
(20728)210 648 A
(p->e)168 1698 A
1908(=)S
(buf.exp)294 1992 A
2328(+)S
2412(1;)S
5310 V
(20729)210 648 A
(buf.exp)294 1698 A
2034(=)S
(-1;)126 2118 A
5400 V
(20730)210 648 A
1362(})S
5490 V
(20731)210 648 A
(compact(&buf,&p->f.d[0],sizeof(DOUBLE));)1680 1362 A
5580 V
(20732)210 648 A
1026(})S
8418 V
EP
%%Page: 186 186
BP
/slant 0 def
/height 0 def
630 V
12 B
(186)180 648 A
11 R
2030(File:)S
(src/lib/float/fif4.c)782 2263 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/fif4.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(20800)210 648 A
1026(/*)S
1440 V
(20801)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(20802)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(20803)210 648 A
1026(*/)S
1710 V
(20804)210 648 A
1800 V
(20805)210 648 A
1026(/*)S
($Header:)336 1152 A
(fif4.c,v)336 1530 A
(1.7)126 1908 A
(93/01/05)336 2076 A
(12:05:24)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(20806)210 648 A
1980 V
(20807)210 648 A
1026(/*)S
2070 V
(20808)210 648 A
(MULTIPLY)336 1362 A
(AND)126 1740 A
(DISMEMBER)378 1908 A
(PARTS)210 2328 A
((FIF)168 2580 A
2790(4))S
2160 V
(20809)210 648 A
1026(*/)S
2250 V
(20810)210 648 A
2340 V
(20811)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2430 V
(20812)210 648 A
(#include)336 1026 A
("FP_shift.h")504 1404 A
2520 V
(20813)210 648 A
2610 V
(20814)210 648 A
(void)168 1026 A
2700 V
(20815)210 648 A
(fif4(p,x,y))462 1026 A
2790 V
(20816)210 648 A
(SINGLE)252 1026 A
(x,y;)168 1362 A
2880 V
(20817)210 648 A
(struct)252 1026 A
(fif4_returns)504 1320 A
(*p;)126 1866 A
2970 V
(20818)210 648 A
1026({)S
3060 V
(20819)210 648 A
3150 V
(20820)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
3240 V
(20821)210 648 A
3330 V
(20822)210 648 A
(extend(&y,&e1,sizeof(SINGLE));)1260 1362 A
3420 V
(20823)210 648 A
(extend(&x,&e2,sizeof(SINGLE));)1260 1362 A
3510 V
(20824)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(multiply)336 2034 A
2412(*/)S
3600 V
(20825)210 648 A
(mul_ext(&e1,&e2);)714 1362 A
3690 V
(20826)210 648 A
1362(e2)S
1488(=)S
(e1;)126 1572 A
3780 V
(20827)210 648 A
(compact(&e2,&y,sizeof(SINGLE));)1302 1362 A
3870 V
(20828)210 648 A
1362(if)S
((e1.exp)294 1488 A
1824(<)S
1908(0))S
2034({)S
3960 V
(20829)210 648 A
(p->ipart)336 1698 A
2076(=)S
2160(0;)S
4050 V
(20830)210 648 A
(p->fpart)336 1698 A
2076(=)S
2160(y;)S
4140 V
(20831)210 648 A
(return;)294 1698 A
4230 V
(20832)210 648 A
1362(})S
4320 V
(20833)210 648 A
1362(if)S
((e1.exp)294 1488 A
1824(>)S
1908(30)S
2034(-)S
(SGL_M1LEFT))462 2118 A
2622({)S
4410 V
(20834)210 648 A
(p->ipart)336 1698 A
2076(=)S
2160(y;)S
4500 V
(20835)210 648 A
(p->fpart)336 1698 A
2076(=)S
2160(0;)S
4590 V
(20836)210 648 A
(return;)294 1698 A
4680 V
(20837)210 648 A
1362(})S
4770 V
(20838)210 648 A
(b64_sft(&e1.mantissa,)882 1362 A
2286(63)S
2412(-)S
(e1.exp);)336 2496 A
4860 V
(20839)210 648 A
(b64_sft(&e1.mantissa,)882 1362 A
(e1.exp)252 2286 A
2580(-)S
(63);)168 2664 A
3042(/*)S
("loose")294 3168 A
(low)126 3504 A
(order)210 3672 A
(bits)168 3924 A
4134(*/)S
4950 V
(20840)210 648 A
(compact(&e1,&(p->ipart),sizeof(SINGLE));)1680 1362 A
5040 V
(20841)210 648 A
(extend(&(p->ipart),)798 1362 A
(&e2,)168 2202 A
(sizeof(SINGLE));)672 2412 A
5130 V
(20842)210 648 A
(extend(&y,)420 1362 A
(&e1,)168 1824 A
(sizeof(SINGLE));)672 2034 A
5220 V
(20843)210 648 A
(sub_ext(&e1,)504 1362 A
(&e2);)210 1908 A
5310 V
(20844)210 648 A
(compact(&e1,)504 1362 A
(&(p->fpart),)504 1908 A
(sizeof(SINGLE));)672 2454 A
5400 V
(20845)210 648 A
1026(})S
8418 V
EP
%%Page: 187 187
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2030(File:)S
(src/lib/float/fif8.c)782 2263 A
12 B
(187)180 4248 A
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/fif8.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(20900)210 648 A
1026(/*)S
1440 V
(20901)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(20902)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(20903)210 648 A
1026(*/)S
1710 V
(20904)210 648 A
1800 V
(20905)210 648 A
1026(/*)S
($Header:)336 1152 A
(fif8.c,v)336 1530 A
(1.7)126 1908 A
(93/01/05)336 2076 A
(12:05:30)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(20906)210 648 A
1980 V
(20907)210 648 A
1026(/*)S
2070 V
(20908)210 648 A
(MULTIPLY)336 1362 A
(AND)126 1740 A
(DISMEMBER)378 1908 A
(PARTS)210 2328 A
((FIF)168 2580 A
2790(8))S
2160 V
(20909)210 648 A
1026(*/)S
2250 V
(20910)210 648 A
2340 V
(20911)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2430 V
(20912)210 648 A
(#include)336 1026 A
("FP_shift.h")504 1404 A
2520 V
(20913)210 648 A
2610 V
(20914)210 648 A
(void)168 1026 A
2700 V
(20915)210 648 A
(fif8(p,x,y))462 1026 A
2790 V
(20916)210 648 A
(DOUBLE)252 1026 A
(x,y;)168 1362 A
2880 V
(20917)210 648 A
(struct)252 1026 A
(fif8_returns)504 1320 A
(*p;)126 1866 A
2970 V
(20918)210 648 A
1026({)S
3060 V
(20919)210 648 A
3150 V
(20920)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
3240 V
(20921)210 648 A
3330 V
(20922)210 648 A
(extend(&y.d[0],&e1,sizeof(DOUBLE));)1470 1362 A
3420 V
(20923)210 648 A
(extend(&x.d[0],&e2,sizeof(DOUBLE));)1470 1362 A
3510 V
(20924)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(multiply)336 2034 A
2412(*/)S
3600 V
(20925)210 648 A
(mul_ext(&e1,&e2);)714 1362 A
3690 V
(20926)210 648 A
1362(e2)S
1488(=)S
(e1;)126 1572 A
3780 V
(20927)210 648 A
(compact(&e2,)504 1362 A
(&y.d[0],)336 1908 A
(sizeof(DOUBLE));)672 2286 A
3870 V
(20928)210 648 A
1362(if)S
((e1.exp)294 1488 A
1824(<)S
1908(0))S
2034({)S
3960 V
(20929)210 648 A
(p->ipart.d[0])546 1698 A
2286(=)S
2370(0;)S
4050 V
(20930)210 648 A
(p->ipart.d[1])546 1698 A
2286(=)S
2370(0;)S
4140 V
(20931)210 648 A
(p->fpart)336 1698 A
2076(=)S
2160(y;)S
4230 V
(20932)210 648 A
(return;)294 1698 A
4320 V
(20933)210 648 A
1362(})S
4410 V
(20934)210 648 A
1362(if)S
((e1.exp)294 1488 A
1824(>)S
1908(62)S
2034(-)S
(DBL_M1LEFT))462 2118 A
2622({)S
4500 V
(20935)210 648 A
(p->ipart)336 1698 A
2076(=)S
2160(y;)S
4590 V
(20936)210 648 A
(p->fpart.d[0])546 1698 A
2286(=)S
2370(0;)S
4680 V
(20937)210 648 A
(p->fpart.d[1])546 1698 A
2286(=)S
2370(0;)S
4770 V
(20938)210 648 A
(return;)294 1698 A
4860 V
(20939)210 648 A
1362(})S
4950 V
(20940)210 648 A
(b64_sft(&e1.mantissa,)882 1362 A
2286(63)S
2412(-)S
(e1.exp);)336 2496 A
5040 V
(20941)210 648 A
(b64_sft(&e1.mantissa,)882 1362 A
(e1.exp)252 2286 A
2580(-)S
(63);)168 2664 A
3042(/*)S
("loose")294 3168 A
(low)126 3504 A
(order)210 3672 A
(bits)168 3924 A
4134(*/)S
5130 V
(20942)210 648 A
(compact(&e1,)504 1362 A
(&(p->ipart.d[0]),)714 1908 A
(sizeof(DOUBLE));)672 2664 A
5220 V
(20943)210 648 A
(extend(&(p->ipart.d[0]),)1008 1362 A
(&e2,)168 2412 A
(sizeof(DOUBLE));)672 2622 A
5310 V
(20944)210 648 A
(extend(&y.d[0],)630 1362 A
(&e1,)168 2034 A
(sizeof(DOUBLE));)672 2244 A
5400 V
(20945)210 648 A
(sub_ext(&e1,)504 1362 A
(&e2);)210 1908 A
5490 V
(20946)210 648 A
(compact(&e1,)504 1362 A
(&(p->fpart.d[0]),)714 1908 A
(sizeof(DOUBLE));)672 2664 A
5580 V
(20947)210 648 A
1026(})S
8418 V
EP
%%Page: 188 188
BP
/slant 0 def
/height 0 def
630 V
12 B
(188)180 648 A
11 R
2006(File:)S
(src/lib/float/mlf4.c)831 2239 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/mlf4.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(21000)210 648 A
1026(/*)S
1440 V
(21001)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(21002)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(21003)210 648 A
1026(*/)S
1710 V
(21004)210 648 A
1800 V
(21005)210 648 A
1026(/*)S
($Header:)336 1152 A
(mlf4.c,v)336 1530 A
(1.4)126 1908 A
(93/01/05)336 2076 A
(12:05:37)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(21006)210 648 A
1980 V
(21007)210 648 A
1026(/*)S
2070 V
(21008)210 648 A
1068(*)S
(Multiply)336 1152 A
(Single)252 1530 A
(Precesion)378 1824 A
(Float)210 2244 A
((MLF)168 2496 A
2706(4))S
2160 V
(21009)210 648 A
1068(*/)S
2250 V
(21010)210 648 A
2340 V
(21011)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
2430 V
(21012)210 648 A
2520 V
(21013)210 648 A
(void)168 1026 A
2610 V
(21014)210 648 A
(mlf4(s2,s1))462 1026 A
2700 V
(21015)210 648 A
(SINGLE)252 1026 A
(s1,s2;)252 1362 A
2790 V
(21016)210 648 A
1026({)S
2880 V
(21017)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
2970 V
(21018)210 648 A
3060 V
(21019)210 648 A
(extend(&s1,&e1,sizeof(SINGLE));)1302 1362 A
3150 V
(21020)210 648 A
(extend(&s2,&e2,sizeof(SINGLE));)1302 1362 A
3240 V
(21021)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(multiply)336 2034 A
2412(*/)S
3330 V
(21022)210 648 A
(mul_ext(&e1,&e2);)714 1362 A
3420 V
(21023)210 648 A
(compact(&e1,&s1,sizeof(SINGLE));)1344 1362 A
3510 V
(21024)210 648 A
1026(})S
4140 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4230 V
(src/lib/float/mlf8.c)840 1698 A
4320 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4500 V
(21100)210 648 A
1026(/*)S
4590 V
(21101)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
4680 V
(21102)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
4770 V
(21103)210 648 A
1026(*/)S
4860 V
(21104)210 648 A
4950 V
(21105)210 648 A
1026(/*)S
($Header:)336 1152 A
(mlf8.c,v)336 1530 A
(1.4)126 1908 A
(93/01/05)336 2076 A
(12:05:44)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
5040 V
(21106)210 648 A
5130 V
(21107)210 648 A
1026(/*)S
5220 V
(21108)210 648 A
1068(*)S
(Multiply)336 1152 A
(Double)252 1530 A
(Precision)378 1824 A
(Float)210 2244 A
((MLF)168 2496 A
2706(8))S
5310 V
(21109)210 648 A
1068(*/)S
5400 V
(21110)210 648 A
5490 V
(21111)210 648 A
(#include)336 1026 A
("FP_types.h")504 1698 A
5580 V
(21112)210 648 A
5670 V
(21113)210 648 A
(void)168 1026 A
5760 V
(21114)210 648 A
(mlf8(s2,s1))462 1026 A
5850 V
(21115)210 648 A
(DOUBLE)252 1026 A
(s1,s2;)252 1362 A
5940 V
(21116)210 648 A
1026({)S
6030 V
(21117)210 648 A
(EXTEND)252 1362 A
(e1,e2;)252 1698 A
6120 V
(21118)210 648 A
6210 V
(21119)210 648 A
(extend(&s1.d[0],&e1,sizeof(DOUBLE));)1512 1362 A
8418 V
EP
%%Page: 189 189
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2006(File:)S
(src/lib/float/mlf8.c)831 2239 A
12 B
(189)180 4248 A
900 V
7 LST
(21120)210 648 A
(extend(&s2.d[0],&e2,sizeof(DOUBLE));)1512 1362 A
990 V
(21121)210 648 A
1698(/*)S
1824(do)S
1950(a)S
(multiply)336 2034 A
2412(*/)S
1080 V
(21122)210 648 A
(mul_ext(&e1,&e2);)714 1362 A
1170 V
(21123)210 648 A
(compact(&e1,&s1.d[0],sizeof(DOUBLE));)1554 1362 A
1260 V
(21124)210 648 A
1026(})S
1890 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1980 V
(src/lib/float/mul_ext.c)966 1698 A
2070 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
2250 V
(21200)210 648 A
1026(/*)S
2340 V
(21201)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
2430 V
(21202)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
2520 V
(21203)210 648 A
1026(*/)S
2610 V
(21204)210 648 A
2700 V
(21205)210 648 A
1026(/*)S
($Header:)336 1152 A
(mul_ext.c,v)462 1530 A
(1.6)126 2034 A
(93/01/05)336 2202 A
(12:05:51)336 2580 A
(ceriel)252 2958 A
(Exp)126 3252 A
3420($)S
3504(*/)S
2790 V
(21206)210 648 A
2880 V
(21207)210 648 A
1026(/*)S
2970 V
(21208)210 648 A
(ROUTINE)294 1362 A
1698(TO)S
(MULTIPLY)336 1824 A
(TWO)126 2202 A
(EXTENDED)336 2370 A
(FORMAT)252 2748 A
(NUMBERS)294 3042 A
3060 V
(21209)210 648 A
1026(*/)S
3150 V
(21210)210 648 A
3240 V
(21211)210 648 A
1026(#)S
(include)294 1110 A
("FP_bias.h")462 1446 A
3330 V
(21212)210 648 A
1026(#)S
(include)294 1110 A
("FP_trap.h")462 1446 A
3420 V
(21213)210 648 A
1026(#)S
(include)294 1110 A
("FP_types.h")504 1446 A
3510 V
(21214)210 648 A
1026(#)S
(include)294 1110 A
("FP_shift.h")504 1446 A
3600 V
(21215)210 648 A
3690 V
(21216)210 648 A
(void)168 1026 A
3780 V
(21217)210 648 A
(mul_ext(e1,e2))588 1026 A
3870 V
(21218)210 648 A
(EXTEND)252 1026 A
(*e1,*e2;)336 1362 A
3960 V
(21219)210 648 A
1026({)S
4050 V
(21220)210 648 A
(register)336 1362 A
(int)126 1740 A
(i,j;)168 2034 A
2706(/*)S
(loop)168 2832 A
(control)294 3042 A
3378(*/)S
4140 V
(21221)210 648 A
(unsigned)336 1362 A
(short)210 1740 A
(mp[4];)252 2034 A
2706(/*)S
(multiplier)420 2832 A
3294(*/)S
4230 V
(21222)210 648 A
(unsigned)336 1362 A
(short)210 1740 A
(mc[4];)252 2034 A
2706(/*)S
(multipcand)420 2832 A
3294(*/)S
4320 V
(21223)210 648 A
(unsigned)336 1362 A
(short)210 1740 A
(result[8];)420 2034 A
2706(/*)S
(result)252 2832 A
3126(*/)S
4410 V
(21224)210 648 A
(register)336 1362 A
(unsigned)336 1740 A
(short)210 2118 A
(*pres;)252 2370 A
4500 V
(21225)210 648 A
4590 V
(21226)210 648 A
1362(/*)S
(first)210 1488 A
(save)168 1740 A
(the)126 1950 A
(sign)168 2118 A
((XOR))210 2328 A
3378(*/)S
4680 V
(21227)210 648 A
(e1->sign)336 1362 A
1740(303=)S
(e2->sign;)378 1866 A
4770 V
(21228)210 648 A
4860 V
(21229)210 648 A
1362(/*)S
(compute)294 1488 A
(new)126 1824 A
(exponent)336 1992 A
2370(*/)S
4950 V
(21230)210 648 A
(e1->exp)294 1362 A
1698(+=)S
(e2->exp)294 1824 A
2160(+)S
2244(1;)S
5040 V
(21231)210 648 A
1362(/*)S
(128)126 1488 A
(bit)126 1656 A
(multiply)336 1824 A
2202(of)S
(mantissas)378 2328 A
3714(*/)S
5130 V
(21232)210 648 A
5220 V
(21233)210 648 A
1698(/*)S
(assign)252 1824 A
(unknown)294 2118 A
(long)168 2454 A
(formats)294 2664 A
3378(*/)S
5310 V
(21234)210 648 A
1698(/*)S
1824(to)S
(known)210 1950 A
(unsigned)336 2202 A
(word)168 2580 A
(formats)294 2790 A
3378(*/)S
5400 V
(21235)210 648 A
(mp[0])210 1362 A
1614(=)S
(e1->m1)252 1698 A
1992(>>)S
(16;)126 2118 A
5490 V
(21236)210 648 A
(mp[1])210 1362 A
1614(=)S
((unsigned)378 1698 A
(short))252 2118 A
(e1->m1;)294 2412 A
5580 V
(21237)210 648 A
(mp[2])210 1362 A
1614(=)S
(e1->m2)252 1698 A
1992(>>)S
(16;)126 2118 A
5670 V
(21238)210 648 A
(mp[3])210 1362 A
1614(=)S
((unsigned)378 1698 A
(short))252 2118 A
(e1->m2;)294 2412 A
5760 V
(21239)210 648 A
(mc[0])210 1362 A
1614(=)S
(e2->m1)252 1698 A
1992(>>)S
(16;)126 2118 A
5850 V
(21240)210 648 A
(mc[1])210 1362 A
1614(=)S
((unsigned)378 1698 A
(short))252 2118 A
(e2->m1;)294 2412 A
5940 V
(21241)210 648 A
(mc[2])210 1362 A
1614(=)S
(e2->m2)252 1698 A
1992(>>)S
(16;)126 2118 A
6030 V
(21242)210 648 A
(mc[3])210 1362 A
1614(=)S
((unsigned)378 1698 A
(short))252 2118 A
(e2->m2;)294 2412 A
6120 V
(21243)210 648 A
(for)126 1362 A
1530((i)S
1656(=)S
1740(8;)S
(i--;))210 1866 A
2118({)S
6210 V
(21244)210 648 A
(result[i])378 1698 A
2118(=)S
2202(0;)S
8418 V
EP
%%Page: 190 190
BP
/slant 0 def
/height 0 def
630 V
12 B
(190)180 648 A
11 R
1929(File:)S
(src/lib/float/mul_ext.c)985 2162 A
10 R
3402(MINIX)S
3730(SOURCE)S
4153(CODE)S
900 V
7 LST
(21245)210 648 A
1362(})S
990 V
(21246)210 648 A
1362(/*)S
1080 V
(21247)210 648 A
1404(*)S
(fill)168 1698 A
(registers)378 1908 A
(with)168 2328 A
(their)210 2538 A
(components)420 2790 A
1170 V
(21248)210 648 A
1404(*/)S
1260 V
(21249)210 648 A
(for(i=4,)336 1362 A
(pres)168 1740 A
1950(=)S
(&result[4];i--;pres--))924 2034 A
3000(if)S
((mp[i]))294 3126 A
3462({)S
1350 V
(21250)210 648 A
(unsigned)336 1698 A
(short)210 2076 A
2328(k)S
2412(=)S
2496(0;)S
1440 V
(21251)210 648 A
(unsigned)336 1698 A
(long)168 2076 A
(mpi)126 2286 A
2454(=)S
(mp[i];)252 2538 A
1530 V
(21252)210 648 A
(for(j=4;j--;))546 1698 A
2286({)S
1620 V
(21253)210 648 A
(unsigned)336 2034 A
(long)168 2412 A
(tmp)126 2622 A
2790(=)S
((unsigned)378 2874 A
(long)pres[j])504 3294 A
3840(+)S
3924(k;)S
1710 V
(21254)210 648 A
2034(if)S
((mc[j]))294 2160 A
(tmp)126 2496 A
2664(+=)S
(mpi)126 2790 A
2958(*)S
(mc[j];)252 3042 A
1800 V
(21255)210 648 A
(pres[j])294 2034 A
2370(=)S
(tmp;)168 2454 A
1890 V
(21256)210 648 A
2034(k)S
2118(=)S
(tmp)126 2202 A
2370(>>)S
(16;)126 2496 A
1980 V
(21257)210 648 A
1698(})S
2070 V
(21258)210 648 A
(pres[-1])336 1698 A
2076(=)S
2160(k;)S
2160 V
(21259)210 648 A
1362(})S
2250 V
(21260)210 648 A
1362(if)S
1488((!)S
((result[0])420 1614 A
2076(&)S
(0x8000)))336 2160 A
2538({)S
2340 V
(21261)210 648 A
(e1->exp--;)420 1698 A
2430 V
(21262)210 648 A
(for)126 1698 A
1866((i)S
1992(=)S
2076(0;)S
2202(i)S
2286(<=)S
2412(3;)S
(i++))168 2538 A
2748({)S
2520 V
(21263)210 648 A
(result[i])378 2034 A
(<<=)126 2454 A
2622(1;)S
2610 V
(21264)210 648 A
2034(if)S
((result[i+1]&0x8000))840 2160 A
(result[i])378 3042 A
3462(|=)S
3588(1;)S
2700 V
(21265)210 648 A
1698(})S
2790 V
(21266)210 648 A
(result[4])378 1698 A
(<<=)126 2118 A
2286(1;)S
2880 V
(21267)210 648 A
1362(})S
2970 V
(21268)210 648 A
3060 V
(21269)210 648 A
1362(/*)S
3150 V
(21270)210 648 A
1404(*)S
(combine)294 1698 A
(the)126 2034 A
(registers)378 2202 A
2622(to)S
2748(a)S
(total)210 2832 A
3240 V
(21271)210 648 A
1404(*/)S
3330 V
(21272)210 648 A
(e1->m1)252 1362 A
1656(=)S
(((unsigned)420 1740 A
(long)(result[0]))672 2202 A
2916(<<)S
(16))126 3042 A
3210(+)S
(result[1];)420 3294 A
3420 V
(21273)210 648 A
(e1->m2)252 1362 A
1656(=)S
(((unsigned)420 1740 A
(long)(result[2]))672 2202 A
2916(<<)S
(16))126 3042 A
3210(+)S
(result[3];)420 3294 A
3510 V
(21274)210 648 A
1362(if)S
((result[4])420 1488 A
1950(&)S
(0x8000))294 2034 A
2370({)S
3600 V
(21275)210 648 A
1698(if)S
((++e1->m2)378 1824 A
2244(==)S
2370(0))S
3690 V
(21276)210 648 A
2034(if)S
((++e1->m1)378 2160 A
2580(==)S
2706(0))S
2832({)S
3780 V
(21277)210 648 A
(e1->m1)252 2370 A
2664(=)S
(NORMBIT;)336 2748 A
3870 V
(21278)210 648 A
(e1->exp++;)420 2370 A
3960 V
(21279)210 648 A
2034(})S
4050 V
(21280)210 648 A
1362(})S
4140 V
(21281)210 648 A
4230 V
(21282)210 648 A
2706(/*)S
(check)210 2832 A
(for)126 3084 A
(overflow)336 3252 A
3714(*/)S
4320 V
(21283)210 648 A
1362(if)S
((e1->exp)336 1488 A
1866(>=)S
(EXT_MAX))336 1992 A
2370({)S
4410 V
(21284)210 648 A
(trap(EFOVFL);)546 1698 A
4500 V
(21285)210 648 A
2034(/*)S
2160(if)S
(caught)252 2286 A
3378(*/)S
4590 V
(21286)210 648 A
2034(/*)S
(return)252 2160 A
(signed)252 2454 A
(infinity)336 2748 A
3378(*/)S
4680 V
(21287)210 648 A
(e1->exp)294 1698 A
2034(=)S
(EXT_MAX;)336 2118 A
4770 V
(21288)210 648 A
(infinity:)378 1026 A
(e1->m1)252 1698 A
1992(=)S
(e1->m2)252 2076 A
(=0L;)168 2370 A
4860 V
(21289)210 648 A
(return;)294 1698 A
4950 V
(21290)210 648 A
1362(})S
5040 V
(21291)210 648 A
2370(/*)S
(check)210 2496 A
(for)126 2748 A
(underflow)378 2916 A
3378(*/)S
5130 V
(21292)210 648 A
1362(if)S
((e1->exp)336 1488 A
1866(<)S
(EXT_MIN))336 1950 A
2370({)S
5220 V
(21293)210 648 A
(trap(EFUNFL);)546 1698 A
5310 V
(21294)210 648 A
(e1->exp)294 1698 A
2034(=)S
(EXT_MIN;)336 2118 A
5400 V
(21295)210 648 A
(goto)168 1698 A
(infinity;)378 1908 A
5490 V
(21296)210 648 A
1362(})S
5580 V
(21297)210 648 A
1026(})S
8418 V
EP
%%Page: 191 191
BP
/slant 0 def
/height 0 def
630 V
10 R
648(MINIX)S
976(SOURCE)S
1399(CODE)S
11 R
2009(File:)S
(src/lib/float/ngf4.c)824 2242 A
12 B
(191)180 4248 A
990 V
7 LST
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1080 V
(src/lib/float/ngf4.c)840 1698 A
1170 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
1350 V
(21300)210 648 A
1026(/*)S
1440 V
(21301)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A
(Vrije)210 2202 A
(Universiteit,)546 2454 A
(Amsterdam,)420 3042 A
(The)126 3504 A
(Netherlands.)504 3672 A
1530 V
(21302)210 648 A
(See)126 1110 A
(the)126 1278 A
(copyright)378 1446 A
(notice)252 1866 A
2160(in)S
(the)126 2286 A
(ACK)126 2454 A
(home)168 2622 A
(directory,)420 2832 A
3294(in)S
(the)126 3420 A
(file)168 3588 A
("Copyright".)504 3798 A
1620 V
(21303)210 648 A
1026(*/)S
1710 V
(21304)210 648 A
1800 V
(21305)210 648 A
1026(/*)S
($Header:)336 1152 A
(ngf4.c,v)336 1530 A
(1.7)126 1908 A
(93/01/05)336 2076 A
(12:05:57)336 2454 A
(ceriel)252 2832 A
(Exp)126 3126 A
3294($)S
3378(*/)S
1890 V
(21306)210 648 A
1980 V
(21307)210 648 A
1026(/*)S
2070 V
(21308)210 648 A
(NEGATE)252 1698 A
1992(A)S
(FLOATING)336 2076 A
(POINT)210 2454 A
((NGF)168 2706 A
2916(4))S
2160 V
(21309)210 648 A
1026(*/)S
2250 V
(21310)210 648 A
(/********************************************************/)2436 1026 A
2340 V
(21311)210 648 A
2430 V
(21312)210 648 A
(#include)336 1026 A
("FP_types.h")504 1404 A
2520 V
(21313)210 648 A
(#include)336 1026 A
("get_put.h")462 1404 A
2610 V
(21314)210 648 A
2700 V
(21315)210 648 A
(#define)294 1026 A
(OFF)126 1362 A
(((FL_MSW_AT_LOW_ADDRESS)966 1530 A
2538(?)S
2622(0)S
2706(:)S
2790(2))S
2916(+)S
((FL_MSB_AT_LOW_ADDRESS)924 3000 A
3966(?)S
4050(0)S
4134(:)S
(1)))126 4218 A
2790 V
(21316)210 648 A
(void)168 1026 A
2880 V
(21317)210 648 A
(ngf4(f))294 1026 A
2970 V
(21318)210 648 A
(SINGLE)252 1026 A
1362(f;)S
3060 V
(21319)210 648 A
1026({)S
3150 V
(21320)210 648 A
(unsigned)336 1362 A
(char)168 1740 A
(*p;)126 1950 A
3240 V
(21321)210 648 A
3330 V
(21322)210 648 A
1362(if)S
1488((f)S
1614(!=)S
((SINGLE))336 1740 A
2118(0))S
2244({)S
3420 V
(21323)210 648 A
1698(p)S
1782(=)S
((unsigned)378 1866 A
(char)168 2286 A
2496(*))S
2622(&f)S
2748(+)S
(OFF;)168 2832 A
3510 V
(21324)210 648 A
1698(*p)S
1824(303=)S
(0x80;)210 1950 A
3600 V
(21325)210 648 A
1362(})S
3690 V
(21326)210 648 A
1026(})S
4140 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4230 V
(src/lib/float/ngf8.c)840 1698 A
4320 V
(++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)3528 648 A
4500 V
(21400)210 648 A
1026(/*)S
4590 V
(21401)210 648 A
((c))126 1110 A
(copyright)378 1278 A
(1988)168 1698 A
1908(by)S
(the)126 2034 A