1   /* Copyright (C) 2008 The Android Open Source Project
2    *
3    * Licensed under the Apache License, Version 2.0 (the "License");
4    * you may not use this file except in compliance with the License.
5    * You may obtain a copy of the License at
6    *
7    * http://www.apache.org/licenses/LICENSE-2.0
8    *
9    * Unless required by applicable law or agreed to in writing, software
10    * distributed under the License is distributed on an "AS IS" BASIS,
11    * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12    * See the License for the specific language governing permissions and
13    * limitations under the License.
14    */
15
16   /*
17    * File: OP_DOUBLE_TO_INT.S
18    *
19    * Code: Converts a double to an integer. Uses no substitutions.
20    *
21    * For: double-to-int
22    *
23    * Description: Convert the source register (a double) to an integer
24    *              and store the result in the destination register
25    *
26    * Format: B|A|op (12x)
27    *
28    * Syntax: op vA, vB
29    */
30
31    movl        rINST, %edx             # %edx<- BA
32    shr         $$4, rINST              # rINST<- B
33    and         $$15, %edx              # %edx<- A
34    fldl        (rFP, rINST, 4)         # load &vB
35    fildl       .LintMax                # push max int value
36    fildl       .LintMin                # push min int value
37    fucomip     %st(2), %st(0)          # check for negInf
38    jae         .L${opcode}_negInf      # handle negInf
39    fucomip     %st(1), %st(0)          # check for posInf or NaN
40    jc          .L${opcode}_nanInf      # handle posInf or NaN
41    jmp         .L${opcode}_break       # do conversion
42%break
43
44.L${opcode}_break:
45    fnstcw      -2(%esp)                # save control word
46    orl         $$0xc00, -2(%esp)       # reset control
47    fldcw       -2(%esp)                # load control word
48    xorl        $$0xc00, -2(%esp)       # reset control
49    fistpl      (rFP, %edx, 4)          # move converted int
50    fldcw       -2(%esp)                # load saved control word
51    FINISH      1                       # jump to next instruction
52
53.L${opcode}_nanInf:
54    jnp         .L${opcode}_posInf
55    fstps       (rFP, %edx, 4)
56    movl        $$0x00000000,  (rFP, %edx, 4) # vA<- NaN
57    FINISH      1                       # jump to next instruction
58
59.L${opcode}_posInf:
60    fstps       (rFP, %edx, 4)
61    movl        $$0x7FFFFFFF,  (rFP, %edx, 4) # vA<- posInf
62    FINISH      1                       # jump to next instruction
63
64.L${opcode}_negInf:
65    fstps       (rFP, %edx, 4)
66    fstps       (rFP, %edx, 4)
67    movl        $$0x80000000,  (rFP, %edx, 4) # vA<- negInf
68    FINISH      1                       # jump to next instruction
69
70