//

// Copyright (c) 2004, 2007, Oracle and/or its affiliates. All rights reserved.

// DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

//

// This code is free software; you can redistribute it and/or modify it

// under the terms of the GNU General Public License version 2 only, as

// published by the Free Software Foundation.

//

// This code is distributed in the hope that it will be useful, but WITHOUT

// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

// version 2 for more details (a copy is included in the LICENSE file that

// accompanied this code).

//

// You should have received a copy of the GNU General Public License version

// 2 along with this work; if not, write to the Free Software Foundation,

// Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

//

// Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

// or visit www.oracle.com if you need additional information or have any

// questions.

//

	.globl fixcw

	.globl sse_check

	.globl sse_unavailable

	.globl gs_load

	.globl gs_thread

        .globl _Atomic_cmpxchg_long_gcc

        // NOTE WELL!  The _Copy functions are called directly

	// from server-compiler-generated code via CallLeafNoFP,

	// which means that they *must* either not use floating

	// point or use it in the same manner as does the server

	// compiler.

        .globl _Copy_conjoint_bytes

        .globl _Copy_arrayof_conjoint_bytes

        .globl _Copy_conjoint_jshorts_atomic

	.globl _Copy_arrayof_conjoint_jshorts

        .globl _Copy_conjoint_jints_atomic

        .globl _Copy_arrayof_conjoint_jints

	.globl _Copy_conjoint_jlongs_atomic

        .globl _mmx_Copy_arrayof_conjoint_jshorts

	.section .text,"ax"

/ Support for void os::Solaris::init_thread_fpu_state() in os_solaris_i486.cpp

/ Set fpu to 53 bit precision.  This happens too early to use a stub.

	.align   16

fixcw:

	pushl    $0x27f

	fldcw    0(%esp)

	popl     %eax

	ret

       .align  16

       .globl  SafeFetch32

       .globl  SafeFetchN

       .globl  Fetch32PFI, Fetch32Resume

SafeFetch32:

SafeFetchN:

        movl    0x8(%esp), %eax

        movl    0x4(%esp), %ecx

Fetch32PFI:

        movl    (%ecx), %eax

Fetch32Resume:

        ret

        .align  16

        .globl  SpinPause

SpinPause:

        rep 

        nop

        movl    $1, %eax

        ret

/ Test SSE availability, used by os_solaris_i486.cpp

	.align   16

sse_check:

	/ Fault if SSE not available

	xorps %xmm0,%xmm0

	/ No fault

	movl $1,%eax

	ret

	/ Signal handler continues here if SSE is not available

sse_unavailable:

	xorl %eax,%eax

	ret

/ Fast thread accessors, used by threadLS_solaris_i486.cpp

	.align   16

gs_load:

	movl 4(%esp),%ecx

	movl %gs:(%ecx),%eax

	ret

	.align   16

gs_thread:

	movl %gs:0x0,%eax

	ret

        / Support for void Copy::conjoint_bytes(void* from,

        /                                       void* to,

        /                                       size_t count)

        .align   16

_Copy_conjoint_bytes:

        pushl    %esi

        movl     4+12(%esp),%ecx      / count

        pushl    %edi

        movl     8+ 4(%esp),%esi      / from

        movl     8+ 8(%esp),%edi      / to

        cmpl     %esi,%edi

        leal     -1(%esi,%ecx),%eax   / from + count - 1

        jbe      cb_CopyRight

        cmpl     %eax,%edi

        jbe      cb_CopyLeft

        / copy from low to high

cb_CopyRight:

        cmpl     $3,%ecx

        jbe      5f                   / <= 3 bytes

        / align source address at dword address boundary

        movl     %ecx,%eax            / original count

        movl     $4,%ecx

        subl     %esi,%ecx

        andl     $3,%ecx              / prefix byte count

        jz       1f                   / no prefix

        subl     %ecx,%eax            / byte count less prefix

        / copy prefix

        subl     %esi,%edi

0:      movb     (%esi),%dl

        movb     %dl,(%edi,%esi,1)

        addl     $1,%esi

        subl     $1,%ecx

        jnz      0b

        addl     %esi,%edi

1:      movl     %eax,%ecx            / byte count less prefix

        shrl     $2,%ecx              / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        jbe      2f                   / <= 32 dwords

        / copy aligned dwords

        rep;     smovl

        jmp      4f

        / copy aligned dwords

2:      subl     %esi,%edi

        .align   16

3:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        addl     $4,%esi

        subl     $1,%ecx

        jnz      3b

        addl     %esi,%edi

4:      movl     %eax,%ecx            / byte count less prefix

5:      andl     $3,%ecx              / suffix byte count

        jz       7f                   / no suffix

        / copy suffix

        xorl     %eax,%eax

6:      movb     (%esi,%eax,1),%dl

        movb     %dl,(%edi,%eax,1)

        addl     $1,%eax

        subl     $1,%ecx

        jnz      6b

7:      popl     %edi

        popl     %esi

        ret

        / copy from high to low

cb_CopyLeft:

        std

        leal     -4(%edi,%ecx),%edi   / to + count - 4

        movl     %eax,%esi            / from + count - 1

        movl     %ecx,%eax

        subl     $3,%esi              / from + count - 4

        cmpl     $3,%ecx

        jbe      5f                   / <= 3 bytes

1:      shrl     $2,%ecx              / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        ja       3f                   / > 32 dwords

        / copy dwords, aligned or not

        subl     %esi,%edi

        .align   16

2:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        subl     $4,%esi

        subl     $1,%ecx

        jnz      2b

        addl     %esi,%edi

        jmp      4f

        / copy dwords, aligned or not

3:      rep;     smovl

4:      movl     %eax,%ecx            / byte count

5:      andl     $3,%ecx              / suffix byte count

        jz       7f                   / no suffix

        / copy suffix

        subl     %esi,%edi

        addl     $3,%esi

6:      movb     (%esi),%dl

        movb     %dl,(%edi,%esi,1)

	subl     $1,%esi

        subl     $1,%ecx

        jnz      6b

7:      cld

        popl     %edi

        popl     %esi

        ret

        / Support for void Copy::arrayof_conjoint_bytes(void* from,

        /                                               void* to,

        /                                               size_t count)

        /

        / Same as _Copy_conjoint_bytes, except no source alignment check.

        .align   16

_Copy_arrayof_conjoint_bytes:

        pushl    %esi

        movl     4+12(%esp),%ecx      / count

        pushl    %edi

        movl     8+ 4(%esp),%esi      / from

        movl     8+ 8(%esp),%edi      / to

        cmpl     %esi,%edi

        leal     -1(%esi,%ecx),%eax   / from + count - 1

        jbe      acb_CopyRight

        cmpl     %eax,%edi

        jbe      acb_CopyLeft 

        / copy from low to high

acb_CopyRight:

        cmpl     $3,%ecx

        jbe      5f

1:      movl     %ecx,%eax

        shrl     $2,%ecx

        jz       4f

        cmpl     $32,%ecx

        ja       3f

        / copy aligned dwords

        subl     %esi,%edi

        .align   16

2:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        addl     $4,%esi

        subl     $1,%ecx

        jnz      2b

        addl     %esi,%edi

        jmp      4f

        / copy aligned dwords

3:      rep;     smovl

4:      movl     %eax,%ecx

5:      andl     $3,%ecx

        jz       7f

        / copy suffix

        xorl     %eax,%eax

6:      movb     (%esi,%eax,1),%dl

        movb     %dl,(%edi,%eax,1)

        addl     $1,%eax

        subl     $1,%ecx

        jnz      6b

7:      popl     %edi

        popl     %esi

        ret

acb_CopyLeft:

        std

        leal     -4(%edi,%ecx),%edi   / to + count - 4

        movl     %eax,%esi            / from + count - 1

        movl     %ecx,%eax

        subl     $3,%esi              / from + count - 4

        cmpl     $3,%ecx

        jbe      5f

1:      shrl     $2,%ecx

        jz       4f

        cmpl     $32,%ecx

        jbe      2f                   / <= 32 dwords

        rep;     smovl

        jmp      4f

	.=.+8

2:      subl     %esi,%edi

        .align   16

3:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        subl     $4,%esi

        subl     $1,%ecx

        jnz      3b

        addl     %esi,%edi

4:      movl     %eax,%ecx

5:      andl     $3,%ecx

        jz       7f

        subl     %esi,%edi

        addl     $3,%esi

6:      movb     (%esi),%dl

        movb     %dl,(%edi,%esi,1)

	subl     $1,%esi

        subl     $1,%ecx

        jnz      6b

7:      cld

        popl     %edi

        popl     %esi

        ret

        / Support for void Copy::conjoint_jshorts_atomic(void* from,

        /                                                void* to,

        /                                                size_t count)

        .align   16

_Copy_conjoint_jshorts_atomic:

        pushl    %esi

        movl     4+12(%esp),%ecx      / count

        pushl    %edi

        movl     8+ 4(%esp),%esi      / from

        movl     8+ 8(%esp),%edi      / to

        cmpl     %esi,%edi

        leal     -2(%esi,%ecx,2),%eax / from + count*2 - 2

        jbe      cs_CopyRight

        cmpl     %eax,%edi

        jbe      cs_CopyLeft 

        / copy from low to high

cs_CopyRight:

        / align source address at dword address boundary

        movl     %esi,%eax            / original from

        andl     $3,%eax              / either 0 or 2

        jz       1f                   / no prefix

        / copy prefix

        subl     $1,%ecx

        jl       5f                   / zero count

        movw     (%esi),%dx

        movw     %dx,(%edi)

        addl     %eax,%esi            / %eax == 2

        addl     %eax,%edi

1:      movl     %ecx,%eax            / word count less prefix

        sarl     %ecx                 / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        jbe      2f                   / <= 32 dwords

        / copy aligned dwords

        rep;     smovl

        jmp      4f 

        / copy aligned dwords

2:      subl     %esi,%edi

        .align   16

3:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        addl     $4,%esi

        subl     $1,%ecx

        jnz      3b

        addl     %esi,%edi

4:      andl     $1,%eax              / suffix count

        jz       5f                   / no suffix

        / copy suffix

        movw     (%esi),%dx

        movw     %dx,(%edi)

5:      popl     %edi

        popl     %esi

        ret

        / copy from high to low

cs_CopyLeft:

        std

        leal     -4(%edi,%ecx,2),%edi / to + count*2 - 4

        movl     %eax,%esi            / from + count*2 - 2

        movl     %ecx,%eax

        subl     $2,%esi              / from + count*2 - 4

1:      sarl     %ecx                 / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        ja       3f                   / > 32 dwords

        subl     %esi,%edi

        .align   16

2:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        subl     $4,%esi

        subl     $1,%ecx

        jnz      2b

        addl     %esi,%edi

        jmp      4f

3:      rep;     smovl

4:      andl     $1,%eax              / suffix count

        jz       5f                   / no suffix

        / copy suffix

        addl     $2,%esi

        addl     $2,%edi

        movw     (%esi),%dx

        movw     %dx,(%edi)

5:      cld

        popl     %edi

        popl     %esi

        ret

        / Support for void Copy::arrayof_conjoint_jshorts(void* from,

        /                                                 void* to,

        /                                                 size_t count)

        .align   16

_Copy_arrayof_conjoint_jshorts:

        pushl    %esi

        movl     4+12(%esp),%ecx      / count

        pushl    %edi

        movl     8+ 4(%esp),%esi      / from

        movl     8+ 8(%esp),%edi      / to

        cmpl     %esi,%edi

        leal     -2(%esi,%ecx,2),%eax / from + count*2 - 2

        jbe      acs_CopyRight

        cmpl     %eax,%edi

        jbe      acs_CopyLeft 

acs_CopyRight:

        movl     %ecx,%eax            / word count

        sarl     %ecx                 / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        jbe      2f                   / <= 32 dwords

        / copy aligned dwords

        rep;     smovl 	 

        jmp      4f 

        / copy aligned dwords

        .=.+5

2:      subl     %esi,%edi 

        .align   16	

3:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        addl     $4,%esi

        subl     $1,%ecx

        jnz      3b

        addl     %esi,%edi

4:      andl     $1,%eax              / suffix count

        jz       5f                   / no suffix

        / copy suffix

        movw     (%esi),%dx

        movw     %dx,(%edi)

5:      popl     %edi

        popl     %esi

        ret

acs_CopyLeft:

        std

        leal     -4(%edi,%ecx,2),%edi / to + count*2 - 4

        movl     %eax,%esi            / from + count*2 - 2

        movl     %ecx,%eax

        subl     $2,%esi              / from + count*2 - 4

        sarl     %ecx                 / dword count

        jz       4f                   / no dwords to move

        cmpl     $32,%ecx

        ja       3f                   / > 32 dwords

        subl     %esi,%edi

        .align   16

2:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        subl     $4,%esi

        subl     $1,%ecx

        jnz      2b

        addl     %esi,%edi

        jmp      4f

3:      rep;     smovl

4:      andl     $1,%eax              / suffix count

        jz       5f                   / no suffix

        / copy suffix

        addl     $2,%esi

        addl     $2,%edi

        movw     (%esi),%dx

        movw     %dx,(%edi)

5:      cld

        popl     %edi

        popl     %esi

        ret

        / Support for void Copy::conjoint_jints_atomic(void* from,

        /                                              void* to,

        /                                              size_t count)

        / Equivalent to

        /   arrayof_conjoint_jints

        .align   16

_Copy_conjoint_jints_atomic:

_Copy_arrayof_conjoint_jints:

        pushl    %esi

        movl     4+12(%esp),%ecx      / count

        pushl    %edi

        movl     8+ 4(%esp),%esi      / from

        movl     8+ 8(%esp),%edi      / to

        cmpl     %esi,%edi

        leal     -4(%esi,%ecx,4),%eax / from + count*4 - 4

        jbe      ci_CopyRight

        cmpl     %eax,%edi

        jbe      ci_CopyLeft 

ci_CopyRight:

        cmpl     $32,%ecx

        jbe      2f                   / <= 32 dwords

        rep;     smovl 

        popl     %edi

        popl     %esi

        ret

        .=.+10

2:      subl     %esi,%edi

        jmp      4f

        .align   16

3:      movl     (%esi),%edx

        movl     %edx,(%edi,%esi,1)

        addl     $4,%esi

4:      subl     $1,%ecx

        jge      3b

        popl     %edi

        popl     %esi

        ret

ci_CopyLeft:

        std

        leal     -4(%edi,%ecx,4),%edi / to + count*4 - 4

        cmpl     $32,%ecx

        ja       4f                   / > 32 dwords

        subl     %eax,%edi            / eax == from + count*4 - 4

        jmp      3f

        .align   16

2:      movl     (%eax),%edx

        movl     %edx,(%edi,%eax,1)

        subl     $4,%eax

3:      subl     $1,%ecx

        jge      2b

        cld

        popl     %edi

        popl     %esi

        ret

4:      movl     %eax,%esi            / from + count*4 - 4

        rep;     smovl

        cld

        popl     %edi

        popl     %esi

        ret

        / Support for void Copy::conjoint_jlongs_atomic(jlong* from,

        /                                               jlong* to,

        /                                               size_t count)

        /

        / 32-bit

        /