1 /* 2 * PowerPC emulation helpers for QEMU. 3 * 4 * Copyright (c) 2003-2007 Jocelyn Mayer 5 * 6 * This library is free software; you can redistribute it and/or 7 * modify it under the terms of the GNU Lesser General Public 8 * License as published by the Free Software Foundation; either 9 * version 2.1 of the License, or (at your option) any later version. 10 * 11 * This library is distributed in the hope that it will be useful, 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 14 * Lesser General Public License for more details. 15 * 16 * You should have received a copy of the GNU Lesser General Public 17 * License along with this library; if not, see <http://www.gnu.org/licenses/>. 18 */ 19 #include "qemu/osdep.h" 20 #include "cpu.h" 21 #include "exec/helper-proto.h" 22 #include "exec/exec-all.h" 23 #include "qemu/log.h" 24 #include "qemu/main-loop.h" 25 26 /*****************************************************************************/ 27 /* SPR accesses */ 28 29 target_ulong helper_load_tbl(CPUPPCState *env) 30 { 31 return (target_ulong)cpu_ppc_load_tbl(env); 32 } 33 34 target_ulong helper_load_tbu(CPUPPCState *env) 35 { 36 return cpu_ppc_load_tbu(env); 37 } 38 39 target_ulong helper_load_atbl(CPUPPCState *env) 40 { 41 return (target_ulong)cpu_ppc_load_atbl(env); 42 } 43 44 target_ulong helper_load_atbu(CPUPPCState *env) 45 { 46 return cpu_ppc_load_atbu(env); 47 } 48 49 target_ulong helper_load_vtb(CPUPPCState *env) 50 { 51 return cpu_ppc_load_vtb(env); 52 } 53 54 #if defined(TARGET_PPC64) && !defined(CONFIG_USER_ONLY) 55 target_ulong helper_load_purr(CPUPPCState *env) 56 { 57 return (target_ulong)cpu_ppc_load_purr(env); 58 } 59 60 void helper_store_purr(CPUPPCState *env, target_ulong val) 61 { 62 cpu_ppc_store_purr(env, val); 63 } 64 #endif 65 66 #if !defined(CONFIG_USER_ONLY) 67 void helper_store_tbl(CPUPPCState *env, target_ulong val) 68 { 69 cpu_ppc_store_tbl(env, val); 70 } 71 72 void helper_store_tbu(CPUPPCState *env, target_ulong val) 73 { 74 cpu_ppc_store_tbu(env, val); 75 } 76 77 void helper_store_atbl(CPUPPCState *env, target_ulong val) 78 { 79 cpu_ppc_store_atbl(env, val); 80 } 81 82 void helper_store_atbu(CPUPPCState *env, target_ulong val) 83 { 84 cpu_ppc_store_atbu(env, val); 85 } 86 87 target_ulong helper_load_decr(CPUPPCState *env) 88 { 89 return cpu_ppc_load_decr(env); 90 } 91 92 void helper_store_decr(CPUPPCState *env, target_ulong val) 93 { 94 cpu_ppc_store_decr(env, val); 95 } 96 97 target_ulong helper_load_hdecr(CPUPPCState *env) 98 { 99 return cpu_ppc_load_hdecr(env); 100 } 101 102 void helper_store_hdecr(CPUPPCState *env, target_ulong val) 103 { 104 cpu_ppc_store_hdecr(env, val); 105 } 106 107 void helper_store_vtb(CPUPPCState *env, target_ulong val) 108 { 109 cpu_ppc_store_vtb(env, val); 110 } 111 112 void helper_store_tbu40(CPUPPCState *env, target_ulong val) 113 { 114 cpu_ppc_store_tbu40(env, val); 115 } 116 117 target_ulong helper_load_40x_pit(CPUPPCState *env) 118 { 119 return load_40x_pit(env); 120 } 121 122 void helper_store_40x_pit(CPUPPCState *env, target_ulong val) 123 { 124 store_40x_pit(env, val); 125 } 126 127 void helper_store_40x_tcr(CPUPPCState *env, target_ulong val) 128 { 129 store_40x_tcr(env, val); 130 } 131 132 void helper_store_40x_tsr(CPUPPCState *env, target_ulong val) 133 { 134 store_40x_tsr(env, val); 135 } 136 137 void helper_store_booke_tcr(CPUPPCState *env, target_ulong val) 138 { 139 store_booke_tcr(env, val); 140 } 141 142 void helper_store_booke_tsr(CPUPPCState *env, target_ulong val) 143 { 144 store_booke_tsr(env, val); 145 } 146 147 #if defined(TARGET_PPC64) 148 /* POWER processor Timebase Facility */ 149 target_ulong helper_load_tfmr(CPUPPCState *env) 150 { 151 return env->spr[SPR_TFMR]; 152 } 153 154 void helper_store_tfmr(CPUPPCState *env, target_ulong val) 155 { 156 env->spr[SPR_TFMR] = val; 157 } 158 #endif 159 160 /*****************************************************************************/ 161 /* Embedded PowerPC specific helpers */ 162 163 /* XXX: to be improved to check access rights when in user-mode */ 164 target_ulong helper_load_dcr(CPUPPCState *env, target_ulong dcrn) 165 { 166 uint32_t val = 0; 167 168 if (unlikely(env->dcr_env == NULL)) { 169 qemu_log_mask(LOG_GUEST_ERROR, "No DCR environment\n"); 170 raise_exception_err_ra(env, POWERPC_EXCP_PROGRAM, 171 POWERPC_EXCP_INVAL | 172 POWERPC_EXCP_INVAL_INVAL, GETPC()); 173 } else { 174 int ret; 175 176 bql_lock(); 177 ret = ppc_dcr_read(env->dcr_env, (uint32_t)dcrn, &val); 178 bql_unlock(); 179 if (unlikely(ret != 0)) { 180 qemu_log_mask(LOG_GUEST_ERROR, "DCR read error %d %03x\n", 181 (uint32_t)dcrn, (uint32_t)dcrn); 182 raise_exception_err_ra(env, POWERPC_EXCP_PROGRAM, 183 POWERPC_EXCP_INVAL | 184 POWERPC_EXCP_INVAL_INVAL, GETPC()); 185 } 186 } 187 return val; 188 } 189 190 void helper_store_dcr(CPUPPCState *env, target_ulong dcrn, target_ulong val) 191 { 192 if (unlikely(env->dcr_env == NULL)) { 193 qemu_log_mask(LOG_GUEST_ERROR, "No DCR environment\n"); 194 raise_exception_err_ra(env, POWERPC_EXCP_PROGRAM, 195 POWERPC_EXCP_INVAL | 196 POWERPC_EXCP_INVAL_INVAL, GETPC()); 197 } else { 198 int ret; 199 bql_lock(); 200 ret = ppc_dcr_write(env->dcr_env, (uint32_t)dcrn, (uint32_t)val); 201 bql_unlock(); 202 if (unlikely(ret != 0)) { 203 qemu_log_mask(LOG_GUEST_ERROR, "DCR write error %d %03x\n", 204 (uint32_t)dcrn, (uint32_t)dcrn); 205 raise_exception_err_ra(env, POWERPC_EXCP_PROGRAM, 206 POWERPC_EXCP_INVAL | 207 POWERPC_EXCP_INVAL_INVAL, GETPC()); 208 } 209 } 210 } 211 #endif 212