/*      $OpenBSD: md_init.h,v 1.11 2023/11/18 16:26:16 deraadt Exp $    */
/*      $NetBSD: dot_init.h,v 1.3 2005/12/24 22:02:10 perry Exp $       */

/*-
 * Copyright (c) 2001 Ross Harvey
 * All rights reserved.
 * 
 * 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. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *      This product includes software developed by the NetBSD
 *      Foundation, Inc. and its contributors.
 * 4. Neither the name of The NetBSD Foundation 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 THE NETBSD FOUNDATION, INC. AND 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 THE FOUNDATION OR 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.
 */

#define MD_SECTION_PROLOGUE(sect, entry_pt)                 \
                __asm (                                     \
                ".section "#sect",\"ax\",@progbits      \n" \
                "       .globl " #entry_pt "            \n" \
                "       .type " #entry_pt ",@function   \n" \
                #entry_pt":                             \n" \
                "       sts.l   pr, @-r15               \n" \
                "       .align  2                       \n" \
                "       /* fall thru */                 \n" \
                ".previous")

#define MD_SECTION_EPILOGUE(sect)                           \
                __asm (                                     \
                ".section "#sect",\"ax\",@progbits      \n" \
                "       lds.l   @r15+, pr               \n" \
                "       rts                             \n" \
                "       nop                             \n" \
                ".previous")

/*
 * We need to put the function pointer in our own constant
 * pool (otherwise it might be too far away to reference).
 */
#define MD_SECT_CALL_FUNC(section, func) \
__asm(".section " #section "\n"         \
"    mov.l 1f, r1       \n"             \
"    mova 2f, r0        \n"             \
"    braf r1            \n"             \
"     lds r0, pr        \n"             \
"0:  .p2align 2         \n"             \
"1:  .long " #func " - 0b \n"           \
"2:  .previous");


#if defined(__SH4__) && !defined(__SH4_NOFPU__)
#include <machine/fpu.h>

#define MD_FPU_START                            \
        void __set_fpscr(unsigned int);         \
        unsigned int __fpscr_values[2];

#define MD_START_SETUP                          \
        __set_fpscr(0);                         \
        __fpscr_values[0] |= FPSCR_DN;          \
        __fpscr_values[1] |= FPSCR_DN;          \
        __asm volatile ("lds %0, fpscr"         \
            : : "r" (__fpscr_values[1]));
#else
#define MD_FPU_START
#endif /* defined(__SH4__) && !defined(__SH4_NOFPU__) */

#define MD_CRT0_START                                                   \
        MD_FPU_START                                                    \
        __asm (".globl __start; __start = ___start")

#define MD_RCRT0_START                                                  \
        MD_FPU_START                                                    \
        __asm (                                                         \
        ".text                                                          \n" \
        "       .align  2                                               \n" \
        "       .globl  __start                                         \n" \
        "       .type   __start,@function                               \n" \
        "__start:                                                       \n" \
        "       mov     r15, r12                                        \n" \
        "       mov     r15, r4                                         \n" \
        "       add     #-72, r15                                       \n" \
        "       mov     r15, r5                                         \n" \
        "       bsr     1f                                              \n" \
        "        nop                                                    \n" \
        "1:                                                             \n" \
        ".L_offbase:                                                    \n" \
        "       sts     pr, r0                                          \n" \
        "       mov.l   .L_dynamic, r6                                  \n" \
        "       add     r0, r6                                          \n" \
        "       mov.l   .L_boot_bind, r0                                \n" \
        "       bsrf    r0                                              \n" \
        "        nop                                                    \n" \
        ".L_call_boot_bind:                                             \n" \
        "       mov     r12, r15                                        \n" \
        "       mov.l   @r15, r4        /* argc */                      \n" \
        "       mov     r15, r5                                         \n" \
        "       add     #4, r5          /* argv */                      \n" \
        "       mov     r4, r6                                          \n" \
        "       add     #1, r6                                          \n" \
        "       shll2   r6                                              \n" \
        "       add     r5, r6          /* envp */                      \n" \
        "       bra     ___start                                        \n" \
        "        mov    #0, r7          /* cleanup */                   \n" \
        "       .align  2                                               \n" \
        ".L_boot_bind:                                                  \n" \
        "       .long   _dl_boot_bind - .L_call_boot_bind               \n" \
        ".L_datasize:                                                   \n" \
        "       .long   4 + 4 + (16 * 4)                                \n" \
        ".L_dynamic:                                                    \n" \
        "       .long   _DYNAMIC - .L_offbase                           \n" \
                                                                        \
        "       .align  2                                               \n" \
        "       .globl  _csu_abort                                      \n" \
        "       .type   _csu_abort,@function                            \n" \
        "_csu_abort:                                                    \n" \
        "       sleep   /* illegal */                                   \n" \
        ".previous")