File: rint.s

package info (click to toggle)
mysql-dfsg-5.0 5.0.32-7etch12
  • links: PTS
  • area: main
  • in suites: etch
  • size: 89,332 kB
  • ctags: 94,781
  • sloc: cpp: 436,297; ansic: 409,141; sh: 40,574; tcl: 30,484; perl: 27,872; yacc: 8,236; makefile: 5,532; java: 4,610; xml: 3,914; pascal: 3,462; sql: 2,673; awk: 1,338; asm: 1,061; sed: 772
file content (32 lines) | stat: -rw-r--r-- 672 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
/ rint.s (emx+gcc) -- Copyright (c) 1992-1996 by Eberhard Mattes

#include <emx/asm386.h>

#define FUNC    MATHSUFFIX2(rint)

        .globl  LABEL(FUNC)

        .text

        ALIGN

/ double _rint (double x)

#define cw1       0(%esp)
#define cw2       2(%esp)
/define ret_addr  4(%esp)
#define x         8(%esp)

LABEL(FUNC):
        PROFILE_NOFRAME
        subl    $4, %esp
        fstcww  cw1
        movw    cw1, %ax
        andw    $0xf3ff, %ax            /* round to nearest or even */
        movw    %ax, cw2
        fldcww  cw2
        FLD     x                       /* x */
        frndint
        fldcww  cw1
        addl    $4, %esp
        EPILOGUE(FUNC)