aarch64-cloudabi64.c revision 311999
1/*- 2 * Copyright (c) 2015 Nuxi, https://nuxi.nl/ 3 * 4 * Redistribution and use in source and binary forms, with or without 5 * modification, are permitted provided that the following conditions 6 * are met: 7 * 1. Redistributions of source code must retain the above copyright 8 * notice, this list of conditions and the following disclaimer. 9 * 2. Redistributions in binary form must reproduce the above copyright 10 * notice, this list of conditions and the following disclaimer in the 11 * documentation and/or other materials provided with the distribution. 12 * 13 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 14 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 15 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 16 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 17 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 18 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 19 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 20 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 21 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 22 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 23 * SUCH DAMAGE. 24 */ 25 26#include <sys/cdefs.h> 27__FBSDID("$FreeBSD: stable/11/usr.bin/truss/aarch64-cloudabi64.c 311999 2017-01-12 22:06:57Z jhb $"); 28 29#include <sys/param.h> 30#include <sys/ptrace.h> 31 32#include <machine/armreg.h> 33 34#include <stdbool.h> 35#include <stdio.h> 36#include <sysdecode.h> 37 38#include "truss.h" 39 40static int 41aarch64_cloudabi64_fetch_args(struct trussinfo *trussinfo, unsigned int narg) 42{ 43 struct current_syscall *cs; 44 struct reg regs; 45 lwpid_t tid; 46 unsigned int i; 47 48 tid = trussinfo->curthread->tid; 49 if (ptrace(PT_GETREGS, tid, (caddr_t)®s, 0) == -1) { 50 fprintf(trussinfo->outfile, "-- CANNOT READ REGISTERS --\n"); 51 return (-1); 52 } 53 54 cs = &trussinfo->curthread->cs; 55 for (i = 0; i < narg && i < 8; i++) 56 cs->args[i] = regs.x[i]; 57 return (0); 58} 59 60static int 61aarch64_cloudabi64_fetch_retval(struct trussinfo *trussinfo, long *retval, 62 int *errorp) 63{ 64 struct reg regs; 65 lwpid_t tid; 66 67 tid = trussinfo->curthread->tid; 68 if (ptrace(PT_GETREGS, tid, (caddr_t)®s, 0) == -1) { 69 fprintf(trussinfo->outfile, "-- CANNOT READ REGISTERS --\n"); 70 return (-1); 71 } 72 73 retval[0] = regs.x[0]; 74 retval[1] = regs.x[1]; 75 *errorp = (regs.spsr & PSR_C) != 0; 76 return (0); 77} 78 79static struct procabi aarch64_cloudabi64 = { 80 "CloudABI ELF64", 81 SYSDECODE_ABI_CLOUDABI64, 82 aarch64_cloudabi64_fetch_args, 83 aarch64_cloudabi64_fetch_retval 84}; 85 86PROCABI(aarch64_cloudabi64); 87