--- cci/sys/tahoe/Klogf.x 2019/07/28 12:24:19 1.1 +++ cci/sys/tahoe/Klogf.x 2019/07/28 12:30:07 1.1.1.2 @@ -52,7 +52,7 @@ _Klogf: .word L49 movl L54+4,r1 movl L54,r0 ret -L53: pushl 20(fp) # hfs +L53: pushal 20(fp) # hfs subl3 $88,fp,-(sp) # &exp pushl 8(fp) # arg pushl 4(fp) @@ -62,7 +62,7 @@ L53: pushl 20(fp) # hfs std -60(fp) # movl r0,-60(fp) jbr L55 L2000001: - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L58 # 2.0 pushd ldd -60(fp) # x @@ -75,7 +75,7 @@ L55: cmpd2 -60(fp),L57 jlss L2000001 cmpd2 -60(fp),_sqrto2 jgeq L59 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd -60(fp) # x pushd ldd L60 # 2.0 @@ -84,7 +84,7 @@ L55: cmpd2 -60(fp),L57 ldd r0 std -60(fp) subl2 $1,-88(fp) -L59: pushl 20(fp) # hfs +L59: pushal 20(fp) # hfs ldd L61 # 1.0 pushd ldd -60(fp) # x @@ -92,7 +92,7 @@ L59: pushl 20(fp) # hfs callf $24,_Ksubd ldd r0 std r2 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L62 # 1.0 pushd ldd -60(fp) # x @@ -100,7 +100,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kaddd ldd r0 std r4 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r4 # temp result of x-1 pushd ldd r2 # temp result of x+1 @@ -108,13 +108,13 @@ L59: pushl 20(fp) # hfs callf $24,_Kdivd ldd r0 std -68(fp) # z - pushl 20(fp) # hfs + pushal 20(fp) # hfs pushd # z pushd # z callf $24,_Kmuld ldd r0 std -76(fp) # zsq - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd -76(fp) # zsq pushd ldd _p1 # p1 @@ -122,7 +122,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kmuld ldd r0 std r2 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd _p0 # p0 pushd ldd r2 @@ -130,7 +130,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kaddd ldd r0 std -84(fp) # temp - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd -76(fp) # zsq pushd ldd _q1 @@ -138,7 +138,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kmuld ldd r0 std r2 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd _q0 # q0 pushd ldd r2 @@ -146,7 +146,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kaddd ldd r0 std r2 # temp result of (q1*zsq+q0) - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r2 pushd ldd -84(fp) # temp @@ -154,7 +154,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kdivd ldd r0 std -84(fp) # put in temp - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd -68(fp) # z pushd ldd -84(fp) @@ -162,13 +162,13 @@ L59: pushl 20(fp) # hfs callf $24,_Kmuld ldd r0 std r2 - pushl 20(fp) #hfs + pushal 20(fp) #hfs pushl $0 # 0 pad pushl -88(fp) # exp pushl $0 # dummy pushl $0 # dummy callf $24,_Kcvtld - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd _log2 # log2 pushd pushl r1 # exp converted @@ -176,7 +176,7 @@ L59: pushl 20(fp) # hfs callf $24,_Kmuld ldd r0 std r4 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r2 # result of temp*z pushd ldd r4