no.125.stable.out

一个内存数据库的源代码这是服务器端还有客户端

    fd_a := calc.dbl(1);	# 414 CALCint2dbl (fd_a:dbl)<-($725:int)
    gd_a := mmath.atan(fd_a);	# 415 MATHunary_ATANdbl (gd_a:dbl)<-(fd_a:dbl)
    hd_a := io.print(gd_a);	# 416 IOprint_val (hd_a:int)<-(gd_a:dbl)
    mil.line("asin(sin(M_PI)).print();");	# 417 MILline ($728:void)<-($729:str)
    id_a := mmath.sin(M_PI);	# 418 MATHunary_SINdbl (id_a:dbl)<-(M_PI:dbl)
    jd_a := mmath.asin(id_a);	# 419 MATHunary_ASINdbl (jd_a:dbl)<-(id_a:dbl)
    kd_a := io.print(jd_a);	# 420 IOprint_val (kd_a:int)<-(jd_a:dbl)
    mil.line("acos(cos(M_PI)).print();");	# 421 MILline ($733:void)<-($734:str)
    ld_a := mmath.cos(M_PI);	# 422 MATHunary_COSdbl (ld_a:dbl)<-(M_PI:dbl)
    md_a := mmath.acos(ld_a);	# 423 MATHunary_ACOSdbl (md_a:dbl)<-(ld_a:dbl)
    nd_a := io.print(md_a);	# 424 IOprint_val (nd_a:int)<-(md_a:dbl)
    mil.line("atan(tan(M_PI_2)).print();");	# 425 MILline ($738:void)<-($739:str)
    od_a := mmath.tan(M_PI_2);	# 426 MATHunary_TANdbl (od_a:dbl)<-(M_PI_2:dbl)
    pd_a := mmath.atan(od_a);	# 427 MATHunary_ATANdbl (pd_a:dbl)<-(od_a:dbl)
    qd_a := io.print(pd_a);	# 428 IOprint_val (qd_a:int)<-(pd_a:dbl)
    mil.line("atan(tan(M_PI_4)).print();");	# 429 MILline ($743:void)<-($744:str)
    rd_a := mmath.tan(M_PI_4);	# 430 MATHunary_TANdbl (rd_a:dbl)<-(M_PI_4:dbl)
    sd_a := mmath.atan(rd_a);	# 431 MATHunary_ATANdbl (sd_a:dbl)<-(rd_a:dbl)
    td_a := io.print(sd_a);	# 432 IOprint_val (td_a:int)<-(sd_a:dbl)
    mil.line("sqrt(pow(dbl(2),dbl(2))).print();");	# 433 MILline ($748:void)<-($749:str)
    ud_a := calc.dbl(2);	# 434 CALCint2dbl (ud_a:dbl)<-($751:int)
    vd_a := calc.dbl(2);	# 435 CALCint2dbl (vd_a:dbl)<-($751:int)
    wd_a := mmath.pow(ud_a,vd_a);	# 436 MATHbinary_POWdbl (wd_a:dbl)<-(ud_a:dbl)(vd_a:dbl)
    xd_a := mmath.sqrt(wd_a);	# 437 MATHunary_SQRTdbl (xd_a:dbl)<-(wd_a:dbl)
    yd_a := io.print(xd_a);	# 438 IOprint_val (yd_a:int)<-(xd_a:dbl)
    mil.line("exp(dbl(10)).print();");	# 439 MILline ($756:void)<-($757:str)
    ae_a := calc.dbl(10);	# 440 CALCint2dbl (ae_a:dbl)<-($759:int)
    be_a := mmath.exp(ae_a);	# 441 MATHunary_EXPdbl (be_a:dbl)<-(ae_a:dbl)
    ce_a := io.print(be_a);	# 442 IOprint_val (ce_a:int)<-(be_a:dbl)
    mil.line("log(dbl(10)).print();");	# 443 MILline ($762:void)<-($763:str)
    de_a := calc.dbl(10);	# 444 CALCint2dbl (de_a:dbl)<-($759:int)
    ee_a := mmath.log(de_a);	# 445 MATHunary_LOGdbl (ee_a:dbl)<-(de_a:dbl)
    fe_a := io.print(ee_a);	# 446 IOprint_val (fe_a:int)<-(ee_a:dbl)
    mil.line("log10(dbl(10)).print();");	# 447 MILline ($767:void)<-($768:str)
    ge_a := calc.dbl(10);	# 448 CALCint2dbl (ge_a:dbl)<-($759:int)
    he_a := mmath.log10(ge_a);	# 449 MATHunary_LOG10dbl (he_a:dbl)<-(ge_a:dbl)
    ie_a := io.print(he_a);	# 450 IOprint_val (ie_a:int)<-(he_a:dbl)
    mil.line("ceil(dbl(1.2)).print();");	# 451 MILline ($772:void)<-($773:str)
    je_a := calc.dbl(1.2);	# 452 CALCflt2dbl (je_a:dbl)<-($775:flt)
    ke_a := mmath.ceil(je_a);	# 453 MATHunary_CEILdbl (ke_a:dbl)<-(je_a:dbl)
    le_a := io.print(ke_a);	# 454 IOprint_val (le_a:int)<-(ke_a:dbl)
    mil.line("fabs(dbl(1.2)).print();");	# 455 MILline ($778:void)<-($779:str)
    me_a := calc.dbl(1.2);	# 456 CALCflt2dbl (me_a:dbl)<-($775:flt)
    ne_a := mmath.fabs(me_a);	# 457 MATHunary_FABSdbl (ne_a:dbl)<-(me_a:dbl)
    oe_a := io.print(ne_a);	# 458 IOprint_val (oe_a:int)<-(ne_a:dbl)
    mil.line("floor(dbl(1.2)).print();");	# 459 MILline ($783:void)<-($784:str)
    pe_a := calc.dbl(1.2);	# 460 CALCflt2dbl (pe_a:dbl)<-($775:flt)
    qe_a := mmath.floor(pe_a);	# 461 MATHunary_FLOORdbl (qe_a:dbl)<-(pe_a:dbl)
    re_a := io.print(qe_a);	# 462 IOprint_val (re_a:int)<-(qe_a:dbl)
    mil.line("fmod(dbl(15.2),dbl(2.5)).print();");	# 463 MILline ($788:void)<-($789:str)
    se_a := calc.dbl(15.2);	# 464 CALCflt2dbl (se_a:dbl)<-($791:flt)
    te_a := calc.dbl(2.5);	# 465 CALCflt2dbl (te_a:dbl)<-($793:flt)
    ue_a := mmath.fmod(se_a,te_a);	# 466 MATHbinary_FMODdbl (ue_a:dbl)<-(se_a:dbl)(te_a:dbl)
    ve_a := io.print(ue_a);	# 467 IOprint_val (ve_a:int)<-(ue_a:dbl)
    mil.line("quit();");	# 468 MILline ($796:void)<-($797:str)
    we_a := clients.quit();	# 469 CLTquit (we_a:void)
end main;	# 470  
## >Number:         125
## >Category:       Module_math
## >Synopsis:       (almost) all functions of mmath return strange results on IRIX.
## >Confidential:   no
## >Severity:       serious
## >Priority:       medium
## >Responsible:    niels
## >State:          open
## >Class:          sw-bug
## >Submitter-Id:   unknown
## >Arrival-Date:   Fri Feb 27 16:36:42 1998
## >Originator:     manegold
## >Organization:
## >Release:        
## >Environment:
## IRIX
## >Description:
## (almost) all functions of mmath return strange results on IRIX.             
## 
## test script and output for both GNU=ON & GNU=OFF follow.
## 
##         stefan
## 
## ================================================================================
## test script (also available as 'testing/plain/mmath2/script.mil')
## --------------------------------------------------------------------------------
## setoid(oid(20000000));
## module(mmath);
## sin(dbl(0)).print();
## sin(M_PI_4).print();
## sin(M_PI_2).print();
## sin(M_PI).print();
## sin(3*M_PI_2).print();
## cos(dbl(0)).print();
## cos(M_PI_4).print();
## cos(M_PI_2).print();
## cos(M_PI).print();
## cos(3*M_PI_2).print();
## tan(dbl(0)).print();
## tan(M_PI_4).print();
## tan(M_PI_2).print();
## tan(M_PI).print();
## tan(3*M_PI_2).print();
## asin(dbl(-1)).print();
## asin(dbl(-0.5)).print();
## asin(dbl(0)).print();
## asin(dbl(0.5)).print();
## asin(dbl(1)).print();
## acos(dbl(-1)).print();
## acos(dbl(-0.5)).print();
## acos(dbl(0)).print();
## acos(dbl(0.5)).print();
## acos(dbl(1)).print();
## atan(dbl(-1)).print();
## atan(dbl(-0.5)).print();
## atan(dbl(0)).print();
## atan(dbl(0.5)).print();
## atan(dbl(1)).print();
## 
## asin(sin(M_PI)).print();
## acos(cos(M_PI)).print();
## atan(tan(M_PI_2)).print();
## atan(tan(M_PI_4)).print();
## sqrt(pow(dbl(2),dbl(2))).print();
## 
## exp(dbl(10)).print(); 
## log(dbl(10)).print();
## log10(dbl(10)).print();
## 
## ceil(dbl(1.2)).print();
## fabs(dbl(1.2)).print();
## floor(dbl(1.2)).print();
## fmod(dbl(15.2),dbl(2.5)).print();
## --------------------------------------------------------------------------------
## ================================================================================
## differences between SunOS5.5 and IRIX6.2                  compiled with GNU=ON
## --------------------------------------------------------------------------------
## --- .SunOS5.5/plain/mmath2/111.out      Fri Feb 27 16:00:24 1998
## +++ .IRIX6.2/plain/mmath2/111.out       Fri Feb 27 16:00:01 1998
## @@ -1,3 +1,3 @@
##  Statistics about the output of plain/mmath2:
## -  143 lines,  385 words,  3505 chars
## +  143 lines,  385 words,  3751 chars
## 
## @@ -8,3 +8,3 @@
##  Mcreatedb -db plain
## -Mcreatedb: processing database 'plain' in /ufs/manegold/programming/Monet/testing/.SunOS5.5/dbfarm/plain.
## +Mcreatedb: processing database 'plain' in /ufs/manegold/programming/Monet/testing/.IRIX6.2/dbfarm/plain.
##  Mcreatedb: calling 'Mserver -db plain' for the first time..
## @@ -68,3 +68,3 @@
##  sin(M_PI).print();
## -[ -0.000000 ]
## +[ 0.000000 ]
##  sin(3*M_PI_2).print();
## @@ -76,3 +76,3 @@
##  cos(M_PI_2).print();
## -[ -0.000000 ]
## +[ 0.000000 ]
##  cos(M_PI).print();
## @@ -82,62 +82,62 @@
##  tan(dbl(0)).print();
## -[ 0.000000 ]
## +[ 2080315712.000000 ]
##  tan(M_PI_4).print();
## -[ 1.000000 ]
## +[ 2080315712.000000 ]
##  tan(M_PI_2).print();
## -[ -22877332.428856 ]
## +[ 2080315712.000000 ]
##  tan(M_PI).print();
## -[ 0.000000 ]
## +[ 2080315712.000000 ]
##  tan(3*M_PI_2).print();
## -[ -7625777.476285 ]
## +[ 2080315712.000000 ]
##  asin(dbl(-1)).print();
## -[ -1.570796 ]
## +[ 2080315712.000000 ]
##  asin(dbl(-0.5)).print();
## -[ -0.523599 ]
## +[ 2080315712.000000 ]
##  asin(dbl(0)).print();
## -[ 0.000000 ]
## +[ 2080315712.000000 ]
##  asin(dbl(0.5)).print();
## -[ 0.523599 ]
## +[ 2080315712.000000 ]
##  asin(dbl(1)).print();
## -[ 1.570796 ]
## +[ 2080315712.000000 ]
##  acos(dbl(-1)).print();
## -[ 3.141593 ]
## +[ 2080315712.000000 ]
##  acos(dbl(-0.5)).print();
## -[ 2.094395 ]
## +[ 2080315712.000000 ]
##  acos(dbl(0)).print();
## -[ 1.570796 ]
## +[ 2080315712.000000 ]
##  acos(dbl(0.5)).print();
## -[ 1.047198 ]
## +[ 2080315712.000000 ]
##  acos(dbl(1)).print();
## -[ 0.000000 ]
## +[ 2080315712.000000 ]
##  atan(tan(M_PI_2)).print();
## -[ -1.570796 ]
## +[ 2080315712.000000 ]
##  atan(tan(M_PI_4)).print();
## -[ 0.785398 ]
## +[ 2080315712.000000 ]
##  sqrt(pow(dbl(2),dbl(2))).print();
## -[ 2.000000 ]
## +[ 45610.384256 ]
## 
##  exp(dbl(10)).print();
## -[ 22026.465795 ]
## +[ 2080315712.000000 ]
##  log(dbl(10)).print();
## -[ 2.302585 ]
## +[ 2080315712.000000 ]
##  log10(dbl(10)).print();
## -[ 1.000000 ]
## +[ 2080315712.000000 ]
## 
##  ceil(dbl(1.2)).print();
## -[ 2.000000 ]