Parent Directory | Revision Log | Patch
revision 1.6 by joerg_wunsch, Tue Sep 13 13:29:54 2005 UTC | revision 1.7 by aesok, Mon Dec 5 22:05:53 2005 UTC | |
---|---|---|
# | Line 59 | Line 59 |
59 | FUNCTION(frexp) | FUNCTION(frexp) |
60 | ||
61 | GLOBAL(frexp) | GLOBAL(frexp) |
62 | MOV ZH,rPH | X_movw ZL, rPL |
63 | MOV ZL,rPL | |
64 | BST rA3,7 | RCALL _U(__fp_split_a) |
RCALL _U(__fp_split1) ; | ||
65 | TST rA3 | TST rA3 |
66 | BREQ 1f | BREQ 1f |
67 | SUBI rA3,0x7E ; 0.5 -> 0.5 * 2^0 | SUBI rA3,0x7E ; 0.5 -> 0.5 * 2^0 |
# | Line 79 GLOBAL(frexp) | Line 77 GLOBAL(frexp) |
77 | ||
78 | 1: | 1: |
79 | ST Z,rA3 | ST Z,rA3 |
80 | STD Z+1,rT1c | STD Z + 1, __zero_reg__ |
81 | RJMP _U(__fp_zero) ; frexp(0) returns 0 not A = 0x00800000 of fp_split1 | RJMP _U(__fp_zero) ; frexp(0) returns 0 not A = 0x00800000 of fp_split1 |
82 | ||
83 | ENDFUNC | ENDFUNC |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |