fix debug
[AROS.git] / arch / m68k-all / libgcc1 / _gedf2.s
blob3e8511a6a42c04d9fbb47db44916efa1eaf4386f
1 .text
2 .even
3 .globl __gedf2
5 __gedf2:
6 moveml %sp@(4),%d0-%d1/%a0-%a1 | get u and v
7 tstl %d0 | check sign bit
8 bpl L_1
9 negl %d1 | negate
10 negxl %d0
11 eorl #0x80000000,%d0 | toggle sign bit
12 L_1:
13 exg %a0,%d0
14 exg %a1,%d1
15 tstl %d0 | check sign bit
16 bpl L_2
17 negl %d1 | negate
18 negxl %d0
19 eorl #0x80000000,%d0 | toggle sign bit
20 L_2:
21 cmpl %d0,%a0
22 blt lt
23 bgt ge
24 cmpl %d1,%a1
25 bcs lt
26 ge:
27 clrl %d0
28 rts
29 lt:
30 moveq #-1,%d0
31 rts