diff options
Diffstat (limited to 'vm/mterp/x86-atom/OP_DOUBLE_TO_INT.S')
-rw-r--r-- | vm/mterp/x86-atom/OP_DOUBLE_TO_INT.S | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/vm/mterp/x86-atom/OP_DOUBLE_TO_INT.S b/vm/mterp/x86-atom/OP_DOUBLE_TO_INT.S new file mode 100644 index 0000000..f377762 --- /dev/null +++ b/vm/mterp/x86-atom/OP_DOUBLE_TO_INT.S @@ -0,0 +1,68 @@ + /* Copyright (C) 2008 The Android Open Source Project + * + * Licensed under the Apache License, Version 2.0 (the "License"); + * you may not use this file except in compliance with the License. + * You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + + /* + * File: OP_DOUBLE_TO_INT.S + * + * Code: Converts a double to an integer. Uses no substitutions. + * + * For: double-to-int + * + * Description: Convert the source register (a double) to an integer + * and store the result in the destination register + * + * Format: B|A|op (12x) + * + * Syntax: op vA, vB + */ + + movl rINST, %edx # %edx<- BA + shr $$4, rINST # rINST<- B + and $$15, %edx # %edx<- A + fldl (rFP, rINST, 4) # load &vB + fildl .LintMax # push max int value + fildl .LintMin # push min int value + fucomip %st(2), %st(0) # check for negInf + jae .L${opcode}_negInf # handle negInf + fucomip %st(1), %st(0) # check for posInf or NaN + jc .L${opcode}_nanInf # handle posInf or NaN + jmp .L${opcode}_break # do conversion +%break + +.L${opcode}_break: + fnstcw -2(%esp) # save control word + orl $$0xc00, -2(%esp) # reset control + fldcw -2(%esp) # load control word + xorl $$0xc00, -2(%esp) # reset control + fistpl (rFP, %edx, 4) # move converted int + fldcw -2(%esp) # load saved control word + FINISH 1 # jump to next instruction + +.L${opcode}_nanInf: + jnp .L${opcode}_posInf + fstps (rFP, %edx, 4) + movl $$0x00000000, (rFP, %edx, 4) # vA<- NaN + FINISH 1 # jump to next instruction + +.L${opcode}_posInf: + fstps (rFP, %edx, 4) + movl $$0x7FFFFFFF, (rFP, %edx, 4) # vA<- posInf + FINISH 1 # jump to next instruction + +.L${opcode}_negInf: + fstps (rFP, %edx, 4) + fstps (rFP, %edx, 4) + movl $$0x80000000, (rFP, %edx, 4) # vA<- negInf + FINISH 1 # jump to next instruction |