/*

 * Copyright (C) 2008, 2009 Apple Inc. All rights reserved.

 * Copyright (C) 2008 Cameron Zwarich <cwzwarich@uwaterloo.ca>

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *

 * 1.  Redistributions of source code must retain the above copyright

 *     notice, this list of conditions and the following disclaimer.

 * 2.  Redistributions in binary form must reproduce the above copyright

 *     notice, this list of conditions and the following disclaimer in the

 *     documentation and/or other materials provided with the distribution.

 * 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of

 *     its contributors may be used to endorse or promote products derived

 *     from this software without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY

 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

 * DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY

 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES

 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;

 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND

 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

#include "config.h"

#if ENABLE(JIT)

#include "JITStubs.h"

#include "Arguments.h"

#include "CallFrame.h"

#include "CodeBlock.h"

#include "Collector.h"

#include "Debugger.h"

#include "ExceptionHelpers.h"

#include "GetterSetter.h"

#include "GlobalEvalFunction.h"

#include "JIT.h"

#include "JSActivation.h"

#include "JSArray.h"

#include "JSByteArray.h"

#include "JSFunction.h"

#include "JSNotAnObject.h"

#include "JSPropertyNameIterator.h"

#include "JSStaticScopeObject.h"

#include "JSString.h"

#include "ObjectPrototype.h"

#include "Operations.h"

#include "Parser.h"

#include "Profiler.h"

#include "RegExpObject.h"

#include "RegExpPrototype.h"

#include "Register.h"

#include "SamplingTool.h"

#include <wtf/StdLibExtras.h>

#include <stdarg.h>

#include <stdio.h>

using namespace std;

namespace JSC {

#if OS(DARWIN) || OS(WINDOWS)

#define SYMBOL_STRING(name) "_" #name

#else

#define SYMBOL_STRING(name) #name

#endif

#if OS(IPHONE_OS)

#define THUMB_FUNC_PARAM(name) SYMBOL_STRING(name)

#else

#define THUMB_FUNC_PARAM(name)

#endif

#if OS(LINUX) && CPU(X86_64)

#define SYMBOL_STRING_RELOCATION(name) #name "@plt"

#else

#define SYMBOL_STRING_RELOCATION(name) SYMBOL_STRING(name)

#endif

#if OS(DARWIN)

    // Mach-O platform

#define HIDE_SYMBOL(name) ".private_extern _" #name

#elif OS(AIX)

    // IBM's own file format

#define HIDE_SYMBOL(name) ".lglobl " #name

#elif   OS(LINUX)               \

     || OS(FREEBSD)             \

     || OS(OPENBSD)             \

     || OS(SOLARIS)             \

     || (OS(HPUX) && CPU(IA64)) \

     || OS(SYMBIAN)             \

     || OS(NETBSD)

    // ELF platform

#define HIDE_SYMBOL(name) ".hidden " #name

#else

#define HIDE_SYMBOL(name)

#endif

#if USE(JSVALUE32_64)

#if COMPILER(GCC) && CPU(X86)

// These ASSERTs remind you that, if you change the layout of JITStackFrame, you

// need to change the assembly trampolines below to match.

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) % 16 == 0x0, JITStackFrame_maintains_16byte_stack_alignment);

COMPILE_ASSERT(offsetof(struct JITStackFrame, savedEBX) == 0x3c, JITStackFrame_stub_argument_space_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, callFrame) == 0x58, JITStackFrame_callFrame_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) == 0x50, JITStackFrame_code_offset_matches_ctiTrampoline);

asm (

".text\n"

".globl " SYMBOL_STRING(ctiTrampoline) "\n"

HIDE_SYMBOL(ctiTrampoline) "\n"

SYMBOL_STRING(ctiTrampoline) ":" "\n"

    "pushl %ebp" "\n"

    "movl %esp, %ebp" "\n"

    "pushl %esi" "\n"

    "pushl %edi" "\n"

    "pushl %ebx" "\n"

    "subl $0x3c, %esp" "\n"

    "movl $512, %esi" "\n"

    "movl 0x58(%esp), %edi" "\n"

    "call *0x50(%esp)" "\n"

    "addl $0x3c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

HIDE_SYMBOL(ctiVMThrowTrampoline) "\n"

SYMBOL_STRING(ctiVMThrowTrampoline) ":" "\n"

    "movl %esp, %ecx" "\n"

    "call " SYMBOL_STRING_RELOCATION(cti_vm_throw) "\n"

    "addl $0x3c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiOpThrowNotCaught) "\n"

HIDE_SYMBOL(ctiOpThrowNotCaught) "\n"

SYMBOL_STRING(ctiOpThrowNotCaught) ":" "\n"

    "addl $0x3c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

#elif COMPILER(GCC) && CPU(X86_64)

// These ASSERTs remind you that, if you change the layout of JITStackFrame, you

// need to change the assembly trampolines below to match.

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) % 32 == 0x0, JITStackFrame_maintains_32byte_stack_alignment);

COMPILE_ASSERT(offsetof(struct JITStackFrame, savedRBX) == 0x48, JITStackFrame_stub_argument_space_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, callFrame) == 0x90, JITStackFrame_callFrame_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) == 0x80, JITStackFrame_code_offset_matches_ctiTrampoline);

asm (

".globl " SYMBOL_STRING(ctiTrampoline) "\n"

HIDE_SYMBOL(ctiTrampoline) "\n"

SYMBOL_STRING(ctiTrampoline) ":" "\n"

    "pushq %rbp" "\n"

    "movq %rsp, %rbp" "\n"

    "pushq %r12" "\n"

    "pushq %r13" "\n"

    "pushq %r14" "\n"

    "pushq %r15" "\n"

    "pushq %rbx" "\n"

    "subq $0x48, %rsp" "\n"

    "movq $512, %r12" "\n"

    "movq $0xFFFF000000000000, %r14" "\n"

    "movq $0xFFFF000000000002, %r15" "\n"

    "movq 0x90(%rsp), %r13" "\n"

    "call *0x80(%rsp)" "\n"

    "addq $0x48, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

HIDE_SYMBOL(ctiVMThrowTrampoline) "\n"

SYMBOL_STRING(ctiVMThrowTrampoline) ":" "\n"

    "movq %rsp, %rdi" "\n"

    "call " SYMBOL_STRING_RELOCATION(cti_vm_throw) "\n"

    "addq $0x48, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiOpThrowNotCaught) "\n"

HIDE_SYMBOL(ctiOpThrowNotCaught) "\n"

SYMBOL_STRING(ctiOpThrowNotCaught) ":" "\n"

    "addq $0x48, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

#elif COMPILER(GCC) && CPU(ARM_THUMB2)

#define THUNK_RETURN_ADDRESS_OFFSET      0x3C

#define PRESERVED_RETURN_ADDRESS_OFFSET  0x40

#define PRESERVED_R4_OFFSET              0x44

#define PRESERVED_R5_OFFSET              0x48

#define PRESERVED_R6_OFFSET              0x4C

#define REGISTER_FILE_OFFSET             0x50

#define CALLFRAME_OFFSET                 0x54

#define EXCEPTION_OFFSET                 0x58

#define ENABLE_PROFILER_REFERENCE_OFFSET 0x60

#elif COMPILER(GCC) && CPU(ARM_TRADITIONAL)

#define THUNK_RETURN_ADDRESS_OFFSET 64

#define PRESERVEDR4_OFFSET          68

#elif COMPILER(MSVC) && CPU(X86)

// These ASSERTs remind you that, if you change the layout of JITStackFrame, you

// need to change the assembly trampolines below to match.

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) % 16 == 0x0, JITStackFrame_maintains_16byte_stack_alignment);

COMPILE_ASSERT(offsetof(struct JITStackFrame, savedEBX) == 0x3c, JITStackFrame_stub_argument_space_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, callFrame) == 0x58, JITStackFrame_callFrame_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) == 0x50, JITStackFrame_code_offset_matches_ctiTrampoline);

extern "C" {

    __declspec(naked) EncodedJSValue ctiTrampoline(void* code, RegisterFile*, CallFrame*, JSValue* exception, Profiler**, JSGlobalData*)

    {

        __asm {

            push ebp;

            mov ebp, esp;

            push esi;

            push edi;

            push ebx;

            sub esp, 0x3c;

            mov esi, 512;

            mov ecx, esp;

            mov edi, [esp + 0x58];

            call [esp + 0x50];

            add esp, 0x3c;

            pop ebx;

            pop edi;

            pop esi;

            pop ebp;

            ret;

        }

    }

    __declspec(naked) void ctiVMThrowTrampoline()

    {

        __asm {

            mov ecx, esp;

            call cti_vm_throw;

            add esp, 0x3c;

            pop ebx;

            pop edi;

            pop esi;

            pop ebp;

            ret;

        }

    }

    __declspec(naked) void ctiOpThrowNotCaught()

    {

        __asm {

            add esp, 0x3c;

            pop ebx;

            pop edi;

            pop esi;

            pop ebp;

            ret;

        }

    }

}

#else

    #error "JIT not supported on this platform."

#endif

#else // USE(JSVALUE32_64)

#if COMPILER(GCC) && CPU(X86)

// These ASSERTs remind you that, if you change the layout of JITStackFrame, you

// need to change the assembly trampolines below to match.

COMPILE_ASSERT(offsetof(struct JITStackFrame, callFrame) == 0x38, JITStackFrame_callFrame_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) == 0x30, JITStackFrame_code_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, savedEBX) == 0x1c, JITStackFrame_stub_argument_space_matches_ctiTrampoline);

asm (

".text\n"

".globl " SYMBOL_STRING(ctiTrampoline) "\n"

HIDE_SYMBOL(ctiTrampoline) "\n"

SYMBOL_STRING(ctiTrampoline) ":" "\n"

    "pushl %ebp" "\n"

    "movl %esp, %ebp" "\n"

    "pushl %esi" "\n"

    "pushl %edi" "\n"

    "pushl %ebx" "\n"

    "subl $0x1c, %esp" "\n"

    "movl $512, %esi" "\n"

    "movl 0x38(%esp), %edi" "\n"

    "call *0x30(%esp)" "\n"

    "addl $0x1c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

HIDE_SYMBOL(ctiVMThrowTrampoline) "\n"

SYMBOL_STRING(ctiVMThrowTrampoline) ":" "\n"

    "movl %esp, %ecx" "\n"

    "call " SYMBOL_STRING_RELOCATION(cti_vm_throw) "\n"

    "addl $0x1c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiOpThrowNotCaught) "\n"

HIDE_SYMBOL(ctiOpThrowNotCaught) "\n"

SYMBOL_STRING(ctiOpThrowNotCaught) ":" "\n"

    "addl $0x1c, %esp" "\n"

    "popl %ebx" "\n"

    "popl %edi" "\n"

    "popl %esi" "\n"

    "popl %ebp" "\n"

    "ret" "\n"

);

#elif COMPILER(GCC) && CPU(X86_64)

// These ASSERTs remind you that, if you change the layout of JITStackFrame, you

// need to change the assembly trampolines below to match.

COMPILE_ASSERT(offsetof(struct JITStackFrame, callFrame) == 0x58, JITStackFrame_callFrame_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, code) == 0x48, JITStackFrame_code_offset_matches_ctiTrampoline);

COMPILE_ASSERT(offsetof(struct JITStackFrame, savedRBX) == 0x78, JITStackFrame_stub_argument_space_matches_ctiTrampoline);

asm (

".text\n"

".globl " SYMBOL_STRING(ctiTrampoline) "\n"

HIDE_SYMBOL(ctiTrampoline) "\n"

SYMBOL_STRING(ctiTrampoline) ":" "\n"

    "pushq %rbp" "\n"

    "movq %rsp, %rbp" "\n"

    "pushq %r12" "\n"

    "pushq %r13" "\n"

    "pushq %r14" "\n"

    "pushq %r15" "\n"

    "pushq %rbx" "\n"

    // Form the JIT stubs area

    "pushq %r9" "\n"

    "pushq %r8" "\n"

    "pushq %rcx" "\n"

    "pushq %rdx" "\n"

    "pushq %rsi" "\n"

    "pushq %rdi" "\n"

    "subq $0x48, %rsp" "\n"

    "movq $512, %r12" "\n"

    "movq $0xFFFF000000000000, %r14" "\n"

    "movq $0xFFFF000000000002, %r15" "\n"

    "movq %rdx, %r13" "\n"

    "call *%rdi" "\n"

    "addq $0x78, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

HIDE_SYMBOL(ctiVMThrowTrampoline) "\n"

SYMBOL_STRING(ctiVMThrowTrampoline) ":" "\n"

    "movq %rsp, %rdi" "\n"

    "call " SYMBOL_STRING_RELOCATION(cti_vm_throw) "\n"

    "addq $0x78, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

asm (

".globl " SYMBOL_STRING(ctiOpThrowNotCaught) "\n"

HIDE_SYMBOL(ctiOpThrowNotCaught) "\n"

SYMBOL_STRING(ctiOpThrowNotCaught) ":" "\n"

    "addq $0x78, %rsp" "\n"

    "popq %rbx" "\n"

    "popq %r15" "\n"

    "popq %r14" "\n"

    "popq %r13" "\n"

    "popq %r12" "\n"

    "popq %rbp" "\n"

    "ret" "\n"

);

#elif COMPILER(GCC) && CPU(ARM_THUMB2)

#define THUNK_RETURN_ADDRESS_OFFSET      0x1C

#define PRESERVED_RETURN_ADDRESS_OFFSET  0x20

#define PRESERVED_R4_OFFSET              0x24

#define PRESERVED_R5_OFFSET              0x28

#define PRESERVED_R6_OFFSET              0x2C

#define REGISTER_FILE_OFFSET             0x30

#define CALLFRAME_OFFSET                 0x34

#define EXCEPTION_OFFSET                 0x38

#define ENABLE_PROFILER_REFERENCE_OFFSET 0x40

#elif COMPILER(GCC) && CPU(ARM_TRADITIONAL)

#define THUNK_RETURN_ADDRESS_OFFSET 32

#define PRESERVEDR4_OFFSET          36

#elif CPU(MIPS)

asm volatile(

".text" "\n"

".align 2" "\n"

".set noreorder" "\n"

".set nomacro" "\n"

".set nomips16" "\n"

".globl " SYMBOL_STRING(ctiTrampoline) "\n"

".ent " SYMBOL_STRING(ctiTrampoline) "\n"

SYMBOL_STRING(ctiTrampoline) ":" "\n"

    "addiu $29,$29,-72" "\n"

    "sw    $31,44($29)" "\n"

    "sw    $18,40($29)" "\n"

    "sw    $17,36($29)" "\n"

    "sw    $16,32($29)" "\n"

#if WTF_MIPS_PIC

    "sw    $28,28($29)" "\n"

#endif

    "move  $16,$6       # set callFrameRegister" "\n"

    "li    $17,512      # set timeoutCheckRegister" "\n"

    "move  $25,$4       # move executableAddress to t9" "\n"

    "sw    $5,52($29)   # store registerFile to current stack" "\n"

    "sw    $6,56($29)   # store callFrame to curent stack" "\n"

    "sw    $7,60($29)   # store exception to current stack" "\n"

    "lw    $8,88($29)   # load enableProfilerReference from previous stack" "\n"

    "lw    $9,92($29)   # load globalData from previous stack" "\n"

    "sw    $8,64($29)   # store enableProfilerReference to current stack" "\n"

    "jalr  $25" "\n"

    "sw    $9,68($29)   # store globalData to current stack" "\n"

    "lw    $16,32($29)" "\n"

    "lw    $17,36($29)" "\n"

    "lw    $18,40($29)" "\n"

    "lw    $31,44($29)" "\n"

    "jr    $31" "\n"

    "addiu $29,$29,72" "\n"

".set reorder" "\n"

".set macro" "\n"

".end " SYMBOL_STRING(ctiTrampoline) "\n"

);

asm volatile(

".text" "\n"

".align 2" "\n"

".set noreorder" "\n"

".set nomacro" "\n"

".set nomips16" "\n"

".globl " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

".ent " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"

SYMBOL_STRING(ctiVMThrowTrampoline) ":" "\n"

#if WTF_MIPS_PIC

    "lw    $28,28($29)" "\n"

".set macro" "\n"

    "la    $25," SYMBOL_STRING(cti_vm_throw) "\n"

".set nomacro" "\n"

    "bal " SYMBOL_STRING(cti_vm_throw) "\n"

    "move  $4,$29" "\n"

#else

    "jal " SYMBOL_STRING(cti_vm_throw) "\n"

    "move  $4,$29" "\n"

#endif

    "lw    $16,32($29)" "\n"

    "lw    $17,36($29)" "\n"

    "lw    $18,40($29)" "\n"

    "lw    $31,44($29)" "\n"

    "jr    $31" "\n"

    "addiu $29,$29,72" "\n"

".set reorder" "\n"

".set macro" "\n"

".end " SYMBOL_STRING(ctiVMThrowTrampoline) "\n"