| Index: src/ia32/code-stubs-ia32.cc
|
| ===================================================================
|
| --- src/ia32/code-stubs-ia32.cc (revision 5989)
|
| +++ src/ia32/code-stubs-ia32.cc (working copy)
|
| @@ -2683,137 +2683,6 @@
|
| }
|
|
|
|
|
| -void TranscendentalCacheSSE2Stub::Generate(MacroAssembler* masm) {
|
| - // Input on stack:
|
| - // esp[0]: return address.
|
| - // Input in registers:
|
| - // xmm1: untagged double input argument.
|
| - // Output:
|
| - // xmm1: untagged double result.
|
| - Label skip_cache;
|
| - Label call_runtime;
|
| -
|
| - // Input is an untagged double in xmm1.
|
| - // Compute hash (the shifts are arithmetic):
|
| - // h = (low ^ high); h ^= h >> 16; h ^= h >> 8; h = h & (cacheSize - 1);
|
| - __ pextrd(Operand(edx), xmm1, 0x1); // copy xmm1[63..32] to edx.
|
| - __ movd(Operand(ebx), xmm1);
|
| -
|
| - // xmm1 = double value
|
| - // ebx = low 32 bits of double value
|
| - // edx = high 32 bits of double value
|
| - // Compute hash (the shifts are arithmetic):
|
| - // h = (low ^ high); h ^= h >> 16; h ^= h >> 8; h = h & (cacheSize - 1);
|
| - __ mov(ecx, ebx);
|
| - __ xor_(ecx, Operand(edx));
|
| - __ mov(eax, ecx);
|
| - __ sar(eax, 16);
|
| - __ xor_(ecx, Operand(eax));
|
| - __ mov(eax, ecx);
|
| - __ sar(eax, 8);
|
| - __ xor_(ecx, Operand(eax));
|
| - ASSERT(IsPowerOf2(TranscendentalCache::kCacheSize));
|
| - __ and_(Operand(ecx), Immediate(TranscendentalCache::kCacheSize - 1));
|
| -
|
| - // xmm1 = double value.
|
| - // ebx = low 32 bits of double value.
|
| - // edx = high 32 bits of double value.
|
| - // ecx = TranscendentalCache::hash(double value).
|
| - __ mov(eax,
|
| - Immediate(ExternalReference::transcendental_cache_array_address()));
|
| - // Eax points to cache array.
|
| - __ mov(eax, Operand(eax, type_ * sizeof(TranscendentalCache::caches_[0])));
|
| - // Eax points to the cache for the type type_.
|
| - // If NULL, the cache hasn't been initialized yet, so go through runtime.
|
| - __ test(eax, Operand(eax));
|
| - __ j(zero, &call_runtime);
|
| -#ifdef DEBUG
|
| - // Check that the layout of cache elements match expectations.
|
| - { TranscendentalCache::Element test_elem[2];
|
| - char* elem_start = reinterpret_cast<char*>(&test_elem[0]);
|
| - char* elem2_start = reinterpret_cast<char*>(&test_elem[1]);
|
| - char* elem_in0 = reinterpret_cast<char*>(&(test_elem[0].in[0]));
|
| - char* elem_in1 = reinterpret_cast<char*>(&(test_elem[0].in[1]));
|
| - char* elem_out = reinterpret_cast<char*>(&(test_elem[0].output));
|
| - CHECK_EQ(12, elem2_start - elem_start); // Two uint_32's and a pointer.
|
| - CHECK_EQ(0, elem_in0 - elem_start);
|
| - CHECK_EQ(kIntSize, elem_in1 - elem_start);
|
| - CHECK_EQ(2 * kIntSize, elem_out - elem_start);
|
| - }
|
| -#endif
|
| - // Find the address of the ecx'th entry in the cache, i.e., &eax[ecx*12].
|
| - __ lea(ecx, Operand(ecx, ecx, times_2, 0));
|
| - __ lea(ecx, Operand(eax, ecx, times_4, 0));
|
| - // Check if cache matches: Double value is stored in uint32_t[2] array.
|
| - NearLabel cache_miss;
|
| - __ cmp(ebx, Operand(ecx, 0));
|
| - __ j(not_equal, &cache_miss);
|
| - __ cmp(edx, Operand(ecx, kIntSize));
|
| - __ j(not_equal, &cache_miss);
|
| - // Cache hit!
|
| - __ mov(eax, Operand(ecx, 2 * kIntSize));
|
| - __ movdbl(xmm1, FieldOperand(eax, HeapNumber::kValueOffset));
|
| - __ Ret();
|
| -
|
| - __ bind(&cache_miss);
|
| - // Update cache with new value.
|
| - // We are short on registers, so use no_reg as scratch.
|
| - // This gives slightly larger code.
|
| - __ AllocateHeapNumber(eax, edi, no_reg, &skip_cache);
|
| - __ sub(Operand(esp), Immediate(sizeof(double)));
|
| - __ movdbl(Operand(esp, 0), xmm1);
|
| - __ fld_d(Operand(esp, 0));
|
| - __ add(Operand(esp), Immediate(sizeof(double)));
|
| - GenerateOperation(masm);
|
| - __ mov(Operand(ecx, 0), ebx);
|
| - __ mov(Operand(ecx, kIntSize), edx);
|
| - __ mov(Operand(ecx, 2 * kIntSize), eax);
|
| - __ fstp_d(FieldOperand(eax, HeapNumber::kValueOffset));
|
| - __ movdbl(xmm1, FieldOperand(eax, HeapNumber::kValueOffset));
|
| - __ Ret();
|
| -
|
| - __ bind(&skip_cache);
|
| - __ sub(Operand(esp), Immediate(2 * kPointerSize));
|
| - __ movdbl(Operand(esp, 0), xmm1);
|
| - __ fld_d(Operand(esp, 0));
|
| - GenerateOperation(masm);
|
| - __ fstp_d(Operand(esp, 0));
|
| - __ movdbl(xmm1, Operand(esp, 0));
|
| - __ add(Operand(esp), Immediate(2 * kPointerSize));
|
| - __ Ret();
|
| -
|
| - __ bind(&call_runtime);
|
| - __ AllocateHeapNumber(eax, edi, no_reg, &skip_cache);
|
| - __ push(eax);
|
| - __ movdbl(FieldOperand(eax, HeapNumber::kValueOffset), xmm1);
|
| - __ CallRuntime(RuntimeFunction(), 1);
|
| - __ movdbl(xmm1, FieldOperand(eax, HeapNumber::kValueOffset));
|
| - __ Ret();
|
| -}
|
| -
|
| -
|
| -Runtime::FunctionId TranscendentalCacheSSE2Stub::RuntimeFunction() {
|
| - switch (type_) {
|
| - // Add more cases when necessary.
|
| - case TranscendentalCache::LOG: return Runtime::kMath_log;
|
| - default:
|
| - UNIMPLEMENTED();
|
| - return Runtime::kAbort;
|
| - }
|
| -}
|
| -
|
| -
|
| -void TranscendentalCacheSSE2Stub::GenerateOperation(MacroAssembler* masm) {
|
| - // Only free register is edi.
|
| - // Input value is on FP stack and in xmm1.
|
| -
|
| - ASSERT(type_ == TranscendentalCache::LOG);
|
| - __ fldln2();
|
| - __ fxch();
|
| - __ fyl2x();
|
| -}
|
| -
|
| -
|
| // Get the integer part of a heap number. Surprisingly, all this bit twiddling
|
| // is faster than using the built-in instructions on floating point registers.
|
| // Trashes edi and ebx. Dest is ecx. Source cannot be ecx or one of the
|
|
|