projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 7601eaec | 1 | /*- |
| 3f6f0ccf KB |
2 | * Copyright (c) 1992, 1993 |
| 3 | * The Regents of the University of California. All rights reserved. | |
| 7601eaec KB |
4 | * |
| 5 | * %sccs.include.redist.c% | |
| 6 | */ | |
| 7 | ||
| 8 | #if defined(LIBC_SCCS) && !defined(lint) | |
| 3f6f0ccf | 9 | .asciz "@(#)fixunsdfsi.s 8.1 (Berkeley) %G%" |
| 7601eaec KB |
10 | #endif /* LIBC_SCCS and not lint */ |
| 11 | ||
| 12 | #include "DEFS.h" | |
| 13 | ||
| 14 | .data | |
| 15 | .align 2 | |
| 16 | Lbig: .long 0x50000000, 0x00000000 # .double 2147483648 | |
| 17 | .text | |
| 18 | ||
| 19 | ENTRY(__fixunsdfsi, 0) | |
| 20 | cmpd2 4(fp),Lbig | |
| 21 | jgeq 1f | |
| 22 | ldd 4(fp) | |
| 23 | cvdl r0 | |
| 24 | ret | |
| 25 | ||
| 26 | 1: ldd 4(fp) | |
| 27 | subd Lbig | |
| 28 | cvdl r0 | |
| 29 | addl2 $2147483648,r0 | |
| 30 | ret |