From patchwork Mon May 23 20:28:36 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Richard Henderson X-Patchwork-Id: 97041 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from lists.gnu.org (lists.gnu.org [140.186.70.17]) (using TLSv1 with cipher AES256-SHA (256/256 bits)) (Client did not present a certificate) by ozlabs.org (Postfix) with ESMTPS id 10CDAB6FBB for ; Tue, 24 May 2011 06:32:35 +1000 (EST) Received: from localhost ([::1]:57770 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QObnk-0000f2-96 for incoming@patchwork.ozlabs.org; Mon, 23 May 2011 16:32:32 -0400 Received: from eggs.gnu.org ([140.186.70.92]:42805) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QObke-0005J9-Rf for qemu-devel@nongnu.org; Mon, 23 May 2011 16:29:22 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QObkd-0008Mg-MU for qemu-devel@nongnu.org; Mon, 23 May 2011 16:29:20 -0400 Received: from mail-yw0-f45.google.com ([209.85.213.45]:33315) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QObkd-0008Iw-Ji for qemu-devel@nongnu.org; Mon, 23 May 2011 16:29:19 -0400 Received: by mail-yw0-f45.google.com with SMTP id 41so2717843ywl.4 for ; Mon, 23 May 2011 13:29:19 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:sender:from:to:subject:date:message-id:x-mailer :in-reply-to:references; bh=X6IU7LILizIK/2Xqpc29U3NkyElBmLsMnIRJxXM1/ok=; b=ZhuxHZZd6Qjf0tJ6sPExkcpCtl1Jy54kElD8E6BYphiZJs46Y6egQ1WsAneuL1GtZc ko/SSV3F/BlwhLk4L+zAaGXlr8ekZecKa3+IAmGb4yED0dVAVwWrtaoWLWQIOn/hRt7G 2OHNM4lRdEClLc15dEZms0CNTtJGgzlglH+6U= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=sender:from:to:subject:date:message-id:x-mailer:in-reply-to :references; b=sGjUBBGQNhbntpqc/9/8gz8lE8SWr8E3MrSDld1oxywBcxmJs9U43D8ywNw/tiVsem Fb9IwpXUICRG83XZfcHU4n1u50HjxG+/JyypgBYrGGYZFOl+UqN2YR8H9p6uKISQnaKc MpC/m6xJJBM40k1fylB7SsxOMSlx4KArnWm6g= Received: by 10.101.157.19 with SMTP id j19mr4691943ano.113.1306182559215; Mon, 23 May 2011 13:29:19 -0700 (PDT) Received: from localhost.localdomain (c-71-227-161-214.hsd1.wa.comcast.net [71.227.161.214]) by mx.google.com with ESMTPS id e9sm5033668ann.24.2011.05.23.13.29.18 (version=TLSv1/SSLv3 cipher=OTHER); Mon, 23 May 2011 13:29:18 -0700 (PDT) From: Richard Henderson To: qemu-devel@nongnu.org Date: Mon, 23 May 2011 13:28:36 -0700 Message-Id: <1306182526-12081-17-git-send-email-rth@twiddle.net> X-Mailer: git-send-email 1.7.4.4 In-Reply-To: <1306182526-12081-1-git-send-email-rth@twiddle.net> References: <1306182526-12081-1-git-send-email-rth@twiddle.net> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 209.85.213.45 Subject: [Qemu-devel] [PATCH 16/26] target-alpha: Add IPRs to be used by the emulation PALcode. X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org Sender: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org These aren't actually used yet, but we can at least access them via the HW_MFPR and HW_MTPR instructions. Signed-off-by: Richard Henderson --- target-alpha/cpu.h | 15 +++++++ target-alpha/machine.c | 13 ++++++ target-alpha/translate.c | 96 ++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 124 insertions(+), 0 deletions(-) diff --git a/target-alpha/cpu.h b/target-alpha/cpu.h index a59b39a..d1ef04d 100644 --- a/target-alpha/cpu.h +++ b/target-alpha/cpu.h @@ -244,6 +244,9 @@ struct CPUAlphaState { uint8_t ps; uint8_t intr_flag; uint8_t pal_mode; + uint8_t fen; + + uint32_t pcc_ofs; /* These pass data from the exception logic in the translator and helpers to the OS entry point. This is used for both system @@ -252,6 +255,18 @@ struct CPUAlphaState { uint64_t trap_arg1; uint64_t trap_arg2; +#if !defined(CONFIG_USER_ONLY) + /* The internal data required by our emulation of the Unix PALcode. */ + uint64_t exc_addr; + uint64_t palbr; + uint64_t ptbr; + uint64_t vptptr; + uint64_t sysval; + uint64_t usp; + uint64_t shadow[8]; + uint64_t scratch[24]; +#endif + #if TARGET_LONG_BITS > HOST_LONG_BITS /* temporary fixed-point registers * used to emulate 64 bits target on 32 bits hosts diff --git a/target-alpha/machine.c b/target-alpha/machine.c index ed9bf65..76d70d9 100644 --- a/target-alpha/machine.c +++ b/target-alpha/machine.c @@ -47,11 +47,24 @@ static VMStateField vmstate_cpu_fields[] = { VMSTATE_UINT8(ps, CPUState), VMSTATE_UINT8(intr_flag, CPUState), VMSTATE_UINT8(pal_mode, CPUState), + VMSTATE_UINT8(fen, CPUState), + + VMSTATE_UINT32(pcc_ofs, CPUState), VMSTATE_UINTTL(trap_arg0, CPUState), VMSTATE_UINTTL(trap_arg1, CPUState), VMSTATE_UINTTL(trap_arg2, CPUState), + VMSTATE_UINTTL(exc_addr, CPUState), + VMSTATE_UINTTL(palbr, CPUState), + VMSTATE_UINTTL(ptbr, CPUState), + VMSTATE_UINTTL(vptptr, CPUState), + VMSTATE_UINTTL(sysval, CPUState), + VMSTATE_UINTTL(usp, CPUState), + + VMSTATE_UINTTL_ARRAY(shadow, CPUState, 8), + VMSTATE_UINTTL_ARRAY(scratch, CPUState, 24), + VMSTATE_END_OF_LIST() }; diff --git a/target-alpha/translate.c b/target-alpha/translate.c index a937356..3802428 100644 --- a/target-alpha/translate.c +++ b/target-alpha/translate.c @@ -1468,6 +1468,89 @@ static void gen_rx(int ra, int set) tcg_temp_free_i32(tmp); } +#ifndef CONFIG_USER_ONLY + +#define PR_BYTE 0x100000 +#define PR_LONG 0x200000 + +static int cpu_pr_data(int pr) +{ + switch (pr) { + case 0: return offsetof(CPUAlphaState, ps) | PR_BYTE; + case 1: return offsetof(CPUAlphaState, fen) | PR_BYTE; + case 2: return offsetof(CPUAlphaState, pcc_ofs) | PR_LONG; + case 3: return offsetof(CPUAlphaState, trap_arg0); + case 4: return offsetof(CPUAlphaState, trap_arg1); + case 5: return offsetof(CPUAlphaState, trap_arg2); + case 6: return offsetof(CPUAlphaState, exc_addr); + case 7: return offsetof(CPUAlphaState, palbr); + case 8: return offsetof(CPUAlphaState, ptbr); + case 9: return offsetof(CPUAlphaState, vptptr); + case 10: return offsetof(CPUAlphaState, unique); + case 11: return offsetof(CPUAlphaState, sysval); + case 12: return offsetof(CPUAlphaState, usp); + + case 32 ... 39: + return offsetof(CPUAlphaState, shadow[pr - 32]); + case 40 ... 63: + return offsetof(CPUAlphaState, scratch[pr - 40]); + } + return 0; +} + +static void gen_mfpr(int ra, int regno) +{ + int data = cpu_pr_data(regno); + + /* In our emulated PALcode, these processor registers have no + side effects from reading. */ + if (ra == 31) { + return; + } + + /* The basic registers are data only, and unknown registers + are read-zero, write-ignore. */ + if (data == 0) { + tcg_gen_movi_i64(cpu_ir[ra], 0); + } else if (data & PR_BYTE) { + tcg_gen_ld8u_i64(cpu_ir[ra], cpu_env, data & ~PR_BYTE); + } else if (data & PR_LONG) { + tcg_gen_ld32s_i64(cpu_ir[ra], cpu_env, data & ~PR_LONG); + } else { + tcg_gen_ld_i64(cpu_ir[ra], cpu_env, data); + } +} + +static void gen_mtpr(int rb, int regno) +{ + TCGv tmp; + int data; + + if (rb == 31) { + tmp = tcg_const_i64(0); + } else { + tmp = cpu_ir[rb]; + } + + /* The basic registers are data only, and unknown registers + are read-zero, write-ignore. */ + data = cpu_pr_data(regno); + if (data != 0) { + if (data & PR_BYTE) { + tcg_gen_st8_i64(tmp, cpu_env, data & ~PR_BYTE); + } else if (data & PR_LONG) { + tcg_gen_st32_i64(tmp, cpu_env, data & ~PR_LONG); + } else { + tcg_gen_st_i64(tmp, cpu_env, data); + } + } + + if (rb == 31) { + tcg_temp_free(tmp); + } +} +#endif /* !USER_ONLY*/ + static ExitStatus translate_one(DisasContext *ctx, uint32_t insn) { uint32_t palcode; @@ -2576,6 +2659,12 @@ static ExitStatus translate_one(DisasContext *ctx, uint32_t insn) break; case 0x19: /* HW_MFPR (PALcode) */ +#ifndef CONFIG_USER_ONLY + if (ctx->pal_mode) { + gen_mfpr(ra, insn & 0xffff); + break; + } +#endif goto invalid_opc; case 0x1A: /* JMP, JSR, RET, JSR_COROUTINE. These only differ by the branch @@ -2845,6 +2934,12 @@ static ExitStatus translate_one(DisasContext *ctx, uint32_t insn) break; case 0x1D: /* HW_MTPR (PALcode) */ +#ifndef CONFIG_USER_ONLY + if (ctx->pal_mode) { + gen_mtpr(ra, insn & 0xffff); + break; + } +#endif goto invalid_opc; case 0x1E: /* HW_RET (PALcode) */ @@ -3272,6 +3367,7 @@ CPUAlphaState * cpu_alpha_init (const char *cpu_model) | FPCR_UNFD | FPCR_INED | FPCR_DNOD)); #endif env->lock_addr = -1; + env->fen = 1; qemu_init_vcpu(env); return env;