| OLD | NEW |
| 1 // Copyright 2012 the V8 project authors. All rights reserved. | 1 // Copyright 2012 the V8 project authors. All rights reserved. |
| 2 // Redistribution and use in source and binary forms, with or without | 2 // Redistribution and use in source and binary forms, with or without |
| 3 // modification, are permitted provided that the following conditions are | 3 // modification, are permitted provided that the following conditions are |
| 4 // met: | 4 // met: |
| 5 // | 5 // |
| 6 // * Redistributions of source code must retain the above copyright | 6 // * Redistributions of source code must retain the above copyright |
| 7 // notice, this list of conditions and the following disclaimer. | 7 // notice, this list of conditions and the following disclaimer. |
| 8 // * Redistributions in binary form must reproduce the above | 8 // * Redistributions in binary form must reproduce the above |
| 9 // copyright notice, this list of conditions and the following | 9 // copyright notice, this list of conditions and the following |
| 10 // disclaimer in the documentation and/or other materials provided | 10 // disclaimer in the documentation and/or other materials provided |
| (...skipping 3606 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 3617 if (generate_debug_code_) { | 3617 if (generate_debug_code_) { |
| 3618 __ cmp(array_length, Operand(0)); | 3618 __ cmp(array_length, Operand(0)); |
| 3619 __ Assert(gt, "No empty arrays here in EmitFastAsciiArrayJoin"); | 3619 __ Assert(gt, "No empty arrays here in EmitFastAsciiArrayJoin"); |
| 3620 } | 3620 } |
| 3621 __ bind(&loop); | 3621 __ bind(&loop); |
| 3622 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); | 3622 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); |
| 3623 __ JumpIfSmi(string, &bailout); | 3623 __ JumpIfSmi(string, &bailout); |
| 3624 __ ldr(scratch1, FieldMemOperand(string, HeapObject::kMapOffset)); | 3624 __ ldr(scratch1, FieldMemOperand(string, HeapObject::kMapOffset)); |
| 3625 __ ldrb(scratch1, FieldMemOperand(scratch1, Map::kInstanceTypeOffset)); | 3625 __ ldrb(scratch1, FieldMemOperand(scratch1, Map::kInstanceTypeOffset)); |
| 3626 __ JumpIfInstanceTypeIsNotSequentialAscii(scratch1, scratch2, &bailout); | 3626 __ JumpIfInstanceTypeIsNotSequentialAscii(scratch1, scratch2, &bailout); |
| 3627 __ ldr(scratch1, FieldMemOperand(string, SeqAsciiString::kLengthOffset)); | 3627 __ ldr(scratch1, FieldMemOperand(string, SeqOneByteString::kLengthOffset)); |
| 3628 __ add(string_length, string_length, Operand(scratch1), SetCC); | 3628 __ add(string_length, string_length, Operand(scratch1), SetCC); |
| 3629 __ b(vs, &bailout); | 3629 __ b(vs, &bailout); |
| 3630 __ cmp(element, elements_end); | 3630 __ cmp(element, elements_end); |
| 3631 __ b(lt, &loop); | 3631 __ b(lt, &loop); |
| 3632 | 3632 |
| 3633 // If array_length is 1, return elements[0], a string. | 3633 // If array_length is 1, return elements[0], a string. |
| 3634 __ cmp(array_length, Operand(1)); | 3634 __ cmp(array_length, Operand(1)); |
| 3635 __ b(ne, ¬_size_one_array); | 3635 __ b(ne, ¬_size_one_array); |
| 3636 __ ldr(r0, FieldMemOperand(elements, FixedArray::kHeaderSize)); | 3636 __ ldr(r0, FieldMemOperand(elements, FixedArray::kHeaderSize)); |
| 3637 __ b(&done); | 3637 __ b(&done); |
| 3638 | 3638 |
| 3639 __ bind(¬_size_one_array); | 3639 __ bind(¬_size_one_array); |
| 3640 | 3640 |
| 3641 // Live values in registers: | 3641 // Live values in registers: |
| 3642 // separator: Separator string | 3642 // separator: Separator string |
| 3643 // array_length: Length of the array. | 3643 // array_length: Length of the array. |
| 3644 // string_length: Sum of string lengths (smi). | 3644 // string_length: Sum of string lengths (smi). |
| 3645 // elements: FixedArray of strings. | 3645 // elements: FixedArray of strings. |
| 3646 | 3646 |
| 3647 // Check that the separator is a flat ASCII string. | 3647 // Check that the separator is a flat ASCII string. |
| 3648 __ JumpIfSmi(separator, &bailout); | 3648 __ JumpIfSmi(separator, &bailout); |
| 3649 __ ldr(scratch1, FieldMemOperand(separator, HeapObject::kMapOffset)); | 3649 __ ldr(scratch1, FieldMemOperand(separator, HeapObject::kMapOffset)); |
| 3650 __ ldrb(scratch1, FieldMemOperand(scratch1, Map::kInstanceTypeOffset)); | 3650 __ ldrb(scratch1, FieldMemOperand(scratch1, Map::kInstanceTypeOffset)); |
| 3651 __ JumpIfInstanceTypeIsNotSequentialAscii(scratch1, scratch2, &bailout); | 3651 __ JumpIfInstanceTypeIsNotSequentialAscii(scratch1, scratch2, &bailout); |
| 3652 | 3652 |
| 3653 // Add (separator length times array_length) - separator length to the | 3653 // Add (separator length times array_length) - separator length to the |
| 3654 // string_length to get the length of the result string. array_length is not | 3654 // string_length to get the length of the result string. array_length is not |
| 3655 // smi but the other values are, so the result is a smi | 3655 // smi but the other values are, so the result is a smi |
| 3656 __ ldr(scratch1, FieldMemOperand(separator, SeqAsciiString::kLengthOffset)); | 3656 __ ldr(scratch1, FieldMemOperand(separator, SeqOneByteString::kLengthOffset)); |
| 3657 __ sub(string_length, string_length, Operand(scratch1)); | 3657 __ sub(string_length, string_length, Operand(scratch1)); |
| 3658 __ smull(scratch2, ip, array_length, scratch1); | 3658 __ smull(scratch2, ip, array_length, scratch1); |
| 3659 // Check for smi overflow. No overflow if higher 33 bits of 64-bit result are | 3659 // Check for smi overflow. No overflow if higher 33 bits of 64-bit result are |
| 3660 // zero. | 3660 // zero. |
| 3661 __ cmp(ip, Operand(0)); | 3661 __ cmp(ip, Operand(0)); |
| 3662 __ b(ne, &bailout); | 3662 __ b(ne, &bailout); |
| 3663 __ tst(scratch2, Operand(0x80000000)); | 3663 __ tst(scratch2, Operand(0x80000000)); |
| 3664 __ b(ne, &bailout); | 3664 __ b(ne, &bailout); |
| 3665 __ add(string_length, string_length, Operand(scratch2), SetCC); | 3665 __ add(string_length, string_length, Operand(scratch2), SetCC); |
| 3666 __ b(vs, &bailout); | 3666 __ b(vs, &bailout); |
| (...skipping 17 matching lines...) Expand all Loading... |
| 3684 elements_end, | 3684 elements_end, |
| 3685 &bailout); | 3685 &bailout); |
| 3686 // Prepare for looping. Set up elements_end to end of the array. Set | 3686 // Prepare for looping. Set up elements_end to end of the array. Set |
| 3687 // result_pos to the position of the result where to write the first | 3687 // result_pos to the position of the result where to write the first |
| 3688 // character. | 3688 // character. |
| 3689 __ add(elements_end, element, Operand(array_length, LSL, kPointerSizeLog2)); | 3689 __ add(elements_end, element, Operand(array_length, LSL, kPointerSizeLog2)); |
| 3690 result_pos = array_length; // End of live range for array_length. | 3690 result_pos = array_length; // End of live range for array_length. |
| 3691 array_length = no_reg; | 3691 array_length = no_reg; |
| 3692 __ add(result_pos, | 3692 __ add(result_pos, |
| 3693 result, | 3693 result, |
| 3694 Operand(SeqAsciiString::kHeaderSize - kHeapObjectTag)); | 3694 Operand(SeqOneByteString::kHeaderSize - kHeapObjectTag)); |
| 3695 | 3695 |
| 3696 // Check the length of the separator. | 3696 // Check the length of the separator. |
| 3697 __ ldr(scratch1, FieldMemOperand(separator, SeqAsciiString::kLengthOffset)); | 3697 __ ldr(scratch1, FieldMemOperand(separator, SeqOneByteString::kLengthOffset)); |
| 3698 __ cmp(scratch1, Operand(Smi::FromInt(1))); | 3698 __ cmp(scratch1, Operand(Smi::FromInt(1))); |
| 3699 __ b(eq, &one_char_separator); | 3699 __ b(eq, &one_char_separator); |
| 3700 __ b(gt, &long_separator); | 3700 __ b(gt, &long_separator); |
| 3701 | 3701 |
| 3702 // Empty separator case | 3702 // Empty separator case |
| 3703 __ bind(&empty_separator_loop); | 3703 __ bind(&empty_separator_loop); |
| 3704 // Live values in registers: | 3704 // Live values in registers: |
| 3705 // result_pos: the position to which we are currently copying characters. | 3705 // result_pos: the position to which we are currently copying characters. |
| 3706 // element: Current array element. | 3706 // element: Current array element. |
| 3707 // elements_end: Array end. | 3707 // elements_end: Array end. |
| 3708 | 3708 |
| 3709 // Copy next array element to the result. | 3709 // Copy next array element to the result. |
| 3710 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); | 3710 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); |
| 3711 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); | 3711 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); |
| 3712 __ SmiUntag(string_length); | 3712 __ SmiUntag(string_length); |
| 3713 __ add(string, string, Operand(SeqAsciiString::kHeaderSize - kHeapObjectTag)); | 3713 __ add(string, |
| 3714 string, |
| 3715 Operand(SeqOneByteString::kHeaderSize - kHeapObjectTag)); |
| 3714 __ CopyBytes(string, result_pos, string_length, scratch1); | 3716 __ CopyBytes(string, result_pos, string_length, scratch1); |
| 3715 __ cmp(element, elements_end); | 3717 __ cmp(element, elements_end); |
| 3716 __ b(lt, &empty_separator_loop); // End while (element < elements_end). | 3718 __ b(lt, &empty_separator_loop); // End while (element < elements_end). |
| 3717 ASSERT(result.is(r0)); | 3719 ASSERT(result.is(r0)); |
| 3718 __ b(&done); | 3720 __ b(&done); |
| 3719 | 3721 |
| 3720 // One-character separator case | 3722 // One-character separator case |
| 3721 __ bind(&one_char_separator); | 3723 __ bind(&one_char_separator); |
| 3722 // Replace separator with its ASCII character value. | 3724 // Replace separator with its ASCII character value. |
| 3723 __ ldrb(separator, FieldMemOperand(separator, SeqAsciiString::kHeaderSize)); | 3725 __ ldrb(separator, FieldMemOperand(separator, SeqOneByteString::kHeaderSize)); |
| 3724 // Jump into the loop after the code that copies the separator, so the first | 3726 // Jump into the loop after the code that copies the separator, so the first |
| 3725 // element is not preceded by a separator | 3727 // element is not preceded by a separator |
| 3726 __ jmp(&one_char_separator_loop_entry); | 3728 __ jmp(&one_char_separator_loop_entry); |
| 3727 | 3729 |
| 3728 __ bind(&one_char_separator_loop); | 3730 __ bind(&one_char_separator_loop); |
| 3729 // Live values in registers: | 3731 // Live values in registers: |
| 3730 // result_pos: the position to which we are currently copying characters. | 3732 // result_pos: the position to which we are currently copying characters. |
| 3731 // element: Current array element. | 3733 // element: Current array element. |
| 3732 // elements_end: Array end. | 3734 // elements_end: Array end. |
| 3733 // separator: Single separator ASCII char (in lower byte). | 3735 // separator: Single separator ASCII char (in lower byte). |
| 3734 | 3736 |
| 3735 // Copy the separator character to the result. | 3737 // Copy the separator character to the result. |
| 3736 __ strb(separator, MemOperand(result_pos, 1, PostIndex)); | 3738 __ strb(separator, MemOperand(result_pos, 1, PostIndex)); |
| 3737 | 3739 |
| 3738 // Copy next array element to the result. | 3740 // Copy next array element to the result. |
| 3739 __ bind(&one_char_separator_loop_entry); | 3741 __ bind(&one_char_separator_loop_entry); |
| 3740 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); | 3742 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); |
| 3741 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); | 3743 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); |
| 3742 __ SmiUntag(string_length); | 3744 __ SmiUntag(string_length); |
| 3743 __ add(string, string, Operand(SeqAsciiString::kHeaderSize - kHeapObjectTag)); | 3745 __ add(string, |
| 3746 string, |
| 3747 Operand(SeqOneByteString::kHeaderSize - kHeapObjectTag)); |
| 3744 __ CopyBytes(string, result_pos, string_length, scratch1); | 3748 __ CopyBytes(string, result_pos, string_length, scratch1); |
| 3745 __ cmp(element, elements_end); | 3749 __ cmp(element, elements_end); |
| 3746 __ b(lt, &one_char_separator_loop); // End while (element < elements_end). | 3750 __ b(lt, &one_char_separator_loop); // End while (element < elements_end). |
| 3747 ASSERT(result.is(r0)); | 3751 ASSERT(result.is(r0)); |
| 3748 __ b(&done); | 3752 __ b(&done); |
| 3749 | 3753 |
| 3750 // Long separator case (separator is more than one character). Entry is at the | 3754 // Long separator case (separator is more than one character). Entry is at the |
| 3751 // label long_separator below. | 3755 // label long_separator below. |
| 3752 __ bind(&long_separator_loop); | 3756 __ bind(&long_separator_loop); |
| 3753 // Live values in registers: | 3757 // Live values in registers: |
| 3754 // result_pos: the position to which we are currently copying characters. | 3758 // result_pos: the position to which we are currently copying characters. |
| 3755 // element: Current array element. | 3759 // element: Current array element. |
| 3756 // elements_end: Array end. | 3760 // elements_end: Array end. |
| 3757 // separator: Separator string. | 3761 // separator: Separator string. |
| 3758 | 3762 |
| 3759 // Copy the separator to the result. | 3763 // Copy the separator to the result. |
| 3760 __ ldr(string_length, FieldMemOperand(separator, String::kLengthOffset)); | 3764 __ ldr(string_length, FieldMemOperand(separator, String::kLengthOffset)); |
| 3761 __ SmiUntag(string_length); | 3765 __ SmiUntag(string_length); |
| 3762 __ add(string, | 3766 __ add(string, |
| 3763 separator, | 3767 separator, |
| 3764 Operand(SeqAsciiString::kHeaderSize - kHeapObjectTag)); | 3768 Operand(SeqOneByteString::kHeaderSize - kHeapObjectTag)); |
| 3765 __ CopyBytes(string, result_pos, string_length, scratch1); | 3769 __ CopyBytes(string, result_pos, string_length, scratch1); |
| 3766 | 3770 |
| 3767 __ bind(&long_separator); | 3771 __ bind(&long_separator); |
| 3768 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); | 3772 __ ldr(string, MemOperand(element, kPointerSize, PostIndex)); |
| 3769 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); | 3773 __ ldr(string_length, FieldMemOperand(string, String::kLengthOffset)); |
| 3770 __ SmiUntag(string_length); | 3774 __ SmiUntag(string_length); |
| 3771 __ add(string, string, Operand(SeqAsciiString::kHeaderSize - kHeapObjectTag)); | 3775 __ add(string, |
| 3776 string, |
| 3777 Operand(SeqOneByteString::kHeaderSize - kHeapObjectTag)); |
| 3772 __ CopyBytes(string, result_pos, string_length, scratch1); | 3778 __ CopyBytes(string, result_pos, string_length, scratch1); |
| 3773 __ cmp(element, elements_end); | 3779 __ cmp(element, elements_end); |
| 3774 __ b(lt, &long_separator_loop); // End while (element < elements_end). | 3780 __ b(lt, &long_separator_loop); // End while (element < elements_end). |
| 3775 ASSERT(result.is(r0)); | 3781 ASSERT(result.is(r0)); |
| 3776 __ b(&done); | 3782 __ b(&done); |
| 3777 | 3783 |
| 3778 __ bind(&bailout); | 3784 __ bind(&bailout); |
| 3779 __ LoadRoot(r0, Heap::kUndefinedValueRootIndex); | 3785 __ LoadRoot(r0, Heap::kUndefinedValueRootIndex); |
| 3780 __ bind(&done); | 3786 __ bind(&done); |
| 3781 context()->Plug(r0); | 3787 context()->Plug(r0); |
| (...skipping 733 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 4515 *context_length = 0; | 4521 *context_length = 0; |
| 4516 return previous_; | 4522 return previous_; |
| 4517 } | 4523 } |
| 4518 | 4524 |
| 4519 | 4525 |
| 4520 #undef __ | 4526 #undef __ |
| 4521 | 4527 |
| 4522 } } // namespace v8::internal | 4528 } } // namespace v8::internal |
| 4523 | 4529 |
| 4524 #endif // V8_TARGET_ARCH_ARM | 4530 #endif // V8_TARGET_ARCH_ARM |
| OLD | NEW |