1/* $NetBSD: pmon32.S,v 1.1 2011/08/27 13:34:29 bouyer Exp $ */ 2/* OpenBSD: pmon32.S,v 1.4 2010/02/18 18:53:33 miod Exp */ 3 4/* 5 * Copyright (c) 2009 Miodrag Vallat. 6 * 7 * Permission to use, copy, modify, and distribute this software for any 8 * purpose with or without fee is hereby granted, provided that the above 9 * copyright notice and this permission notice appear in all copies. 10 * 11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 18 */ 19 20/* 21 * Wrapper routines to invoke PMON2000 functions from 64-bit code. 22 * 23 * PMON is compiled as 64 bit code, using the gcc o64 ABI (similar to the o32 24 * ABI, but using 64 bit registers). 25 * 26 * As a result, only up to four arguments to functions will be passed through 27 * registers. It's up to the caller to never invoke pmon_printf() with more 28 * than four arguments; other functions are not affected. 29 */ 30 31#include <machine/asm.h> 32 33#ifdef _STANDALONE 34#include <machine/param.h> 35#else 36#include "assym.h" 37#endif 38 39 .set mips3 40 41 .data 42 .globl pmon_callvec 43pmon_callvec: 44 .word 0 45 46 .text 47#define PMON_CALLFRAME_SIZ (CALLFRAME_SIZ) 48/* 49 * Note that we need to provide a PMON_CALLFRAME_SIZ untouched area above sp, 50 * or we'll risk our stack being corrupted upon return. 51 */ 52 53#define FRAMESZ(sz) (((sz) + ALSK) & ~ALSK) 54 55#define PMON_WRAP(name, index) \ 56 NNON_LEAF(name, FRAMESZ(PMON_CALLFRAME_SIZ + 11 * SZREG), ra); \ 57 PTR_SUBU sp, sp, FRAMESZ(PMON_CALLFRAME_SIZ + 11 * SZREG); \ 58 REG_S ra, (10 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 59 .mask 0xc0ff0000, (CALLFRAME_RA - FRAMESZ(PMON_CALLFRAME_SIZ + 10 * SZREG)); \ 60 REG_S s0, (0 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 61 REG_S s1, (1 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 62 REG_S s2, (2 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 63 REG_S s3, (3 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 64 REG_S s4, (4 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 65 REG_S s5, (5 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 66 REG_S s6, (6 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 67 REG_S s7, (7 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 68 REG_S s8, (8 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 69 REG_S t8, (9 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 70 lw t0, pmon_callvec; \ 71 lw t0, (index) * 4 (t0); \ 72 jalr t0; \ 73 nop; \ 74 REG_L t8, (9 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 75 REG_L s8, (8 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 76 REG_L s7, (7 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 77 REG_L s6, (6 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 78 REG_L s5, (5 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 79 REG_L s4, (4 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 80 REG_L s3, (3 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 81 REG_L s2, (2 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 82 REG_L s1, (1 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 83 REG_L s0, (0 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 84 REG_L ra, (10 * SZREG + PMON_CALLFRAME_SIZ)(sp); \ 85 PTR_ADDU sp, sp, FRAMESZ(PMON_CALLFRAME_SIZ + 11 * SZREG); \ 86 jr ra; \ 87 nop; \ 88 END(name) 89 90PMON_WRAP(pmon_printf, 5) 91PMON_WRAP(pmon_gets, 7) 92#ifdef _STANDALONE 93PMON_WRAP(pmon_open, 0) 94PMON_WRAP(pmon_close, 1) 95PMON_WRAP(pmon_read, 2) 96PMON_WRAP(pmon_lseek, 4) 97PMON_WRAP(pmon_cacheflush, 6) 98#endif 99#if 0 /* unused */ 100PMON_WRAP(pmon_write, 3) 101#endif 102