--- cci/sys/tahoe/Ksqrtf.x 2019/07/28 12:24:19 1.1.1.1 +++ cci/sys/tahoe/Ksqrtf.x 2019/07/28 12:30:01 1.1.1.2 @@ -48,7 +48,7 @@ L19: clrl r1 clrl r0 ret # return(0.);} L18: - pushl 20(fp) # hfs + pushal 20(fp) # hfs subl3 $72,fp,-(sp) pushl 8(fp) pushl 4(fp) @@ -57,7 +57,7 @@ L18: movl r0,-60(fp) # x = frexp(arg,&exp); jbr L20 L2000001: - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L23 pushd ldd -60(fp) @@ -70,7 +70,7 @@ L20: cmpd2 -60(fp),L22 # while(x < 0.5) jlss L2000001 bitl $1,-72(fp) # if(exp & 1) { jeql L24 - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L25 pushd ldd -60(fp) @@ -79,13 +79,13 @@ L20: cmpd2 -60(fp),L22 # while(x < 0.5) ldd r0 std -60(fp) # x *= 2; decl -72(fp) # exp--;} -L24: pushl 20(fp) # hfs +L24: pushal 20(fp) # hfs ldd -60(fp) pushd ldd L27 pushd callf $24,_Kaddd # (1.0+x) - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r0 pushd ldd L26 @@ -95,7 +95,7 @@ L24: pushl 20(fp) # hfs std -68(fp) # temp=0.5*(1.0+x); jbr L28 L2000003: - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L30 pushd ldd -68(fp) @@ -108,7 +108,7 @@ L28: cmpl -72(fp),$60 # while(exp > 60) jleq L31 jbr L2000003 L2000005: - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd L33 pushd ldd -68(fp) @@ -123,13 +123,13 @@ L31: cmpl -72(fp),$-60 # while(exp < -6 jlss L34 divl3 $2,-72(fp),r0 shll r0,$1,r0 - pushl 20(fp) # hfs + pushal 20(fp) # hfs pushl $0 pushl r0 pushl $0 pushl $0 callf $24,_Kcvtld - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r0 pushd ldd -68(fp) @@ -139,13 +139,13 @@ L31: cmpl -72(fp),$-60 # while(exp < -6 L34: mnegl -72(fp),r0 # -exp divl2 $2,r0 # -exp/2 shll r0,$1,r0 - pushl 20(fp) # hfs + pushal 20(fp) # hfs pushl $0 pushl r0 pushl $0 pushl $0 callf $24,_Kcvtld - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r0 pushd ldd -68(fp) @@ -156,19 +156,19 @@ L2000006: std -68(fp) # temp (*/)= 1L << (exp/2)); clrl -76(fp) L2000008: - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd -68(fp) pushd ldd 4(fp) pushd callf $24,_Kdivd - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r0 pushd ldd -68(fp) pushd callf $24,_Kaddd - pushl 20(fp) # hfs + pushal 20(fp) # hfs ldd r0 pushd ldd L39