]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | * Alpha emulation cpu micro-operations for memory accesses for qemu. | |
3 | * | |
4 | * Copyright (c) 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 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, write to the Free Software | |
18 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
19 | */ | |
20 | ||
21 | #define DEBUG_MEM_ACCESSES | |
22 | #if defined (DEBUG_MEM_ACCESSES) | |
23 | void helper_print_mem_EA (target_ulong EA); | |
24 | #define print_mem_EA(EA) do { helper_print_mem_EA(EA); } while (0) | |
25 | #else | |
26 | #define print_mem_EA(EA) do { } while (0) | |
27 | #endif | |
28 | ||
29 | static inline uint32_t glue(ldl_l, MEMSUFFIX) (target_ulong EA) | |
30 | { | |
31 | env->lock = EA; | |
32 | ||
33 | return glue(ldl, MEMSUFFIX)(EA); | |
34 | } | |
35 | ||
36 | static inline uint32_t glue(ldq_l, MEMSUFFIX) (target_ulong EA) | |
37 | { | |
38 | env->lock = EA; | |
39 | ||
40 | return glue(ldq, MEMSUFFIX)(EA); | |
41 | } | |
42 | ||
43 | static inline void glue(stl_c, MEMSUFFIX) (target_ulong EA, uint32_t data) | |
44 | { | |
45 | if (EA == env->lock) { | |
46 | glue(stl, MEMSUFFIX)(EA, data); | |
47 | T0 = 0; | |
48 | } else { | |
49 | T0 = 1; | |
50 | } | |
51 | env->lock = -1; | |
52 | } | |
53 | ||
54 | static inline void glue(stq_c, MEMSUFFIX) (target_ulong EA, uint64_t data) | |
55 | { | |
56 | if (EA == env->lock) { | |
57 | glue(stq, MEMSUFFIX)(EA, data); | |
58 | T0 = 0; | |
59 | } else { | |
60 | T0 = 1; | |
61 | } | |
62 | env->lock = -1; | |
63 | } | |
64 | ||
65 | #define ALPHA_LD_OP(name, op) \ | |
66 | void OPPROTO glue(glue(op_ld, name), MEMSUFFIX) (void) \ | |
67 | { \ | |
68 | print_mem_EA(T0); \ | |
69 | T1 = glue(op, MEMSUFFIX)(T0); \ | |
70 | RETURN(); \ | |
71 | } | |
72 | ||
73 | #define ALPHA_ST_OP(name, op) \ | |
74 | void OPPROTO glue(glue(op_st, name), MEMSUFFIX) (void) \ | |
75 | { \ | |
76 | print_mem_EA(T0); \ | |
77 | glue(op, MEMSUFFIX)(T0, T1); \ | |
78 | RETURN(); \ | |
79 | } | |
80 | ||
81 | ALPHA_LD_OP(bu, ldub); | |
82 | ALPHA_ST_OP(b, stb); | |
83 | ALPHA_LD_OP(wu, lduw); | |
84 | ALPHA_ST_OP(w, stw); | |
85 | ALPHA_LD_OP(l, ldl); | |
86 | ALPHA_ST_OP(l, stl); | |
87 | ALPHA_LD_OP(q, ldq); | |
88 | ALPHA_ST_OP(q, stq); | |
89 | ||
90 | ALPHA_LD_OP(q_u, ldq); | |
91 | ALPHA_ST_OP(q_u, stq); | |
92 | ||
93 | ALPHA_LD_OP(l_l, ldl_l); | |
94 | ALPHA_LD_OP(q_l, ldq_l); | |
95 | ALPHA_ST_OP(l_c, stl_c); | |
96 | ALPHA_ST_OP(q_c, stq_c); | |
97 | ||
98 | #define ALPHA_LDF_OP(name, op) \ | |
99 | void OPPROTO glue(glue(op_ld, name), MEMSUFFIX) (void) \ | |
100 | { \ | |
101 | print_mem_EA(T0); \ | |
102 | FT1 = glue(op, MEMSUFFIX)(T0); \ | |
103 | RETURN(); \ | |
104 | } | |
105 | ||
106 | #define ALPHA_STF_OP(name, op) \ | |
107 | void OPPROTO glue(glue(op_st, name), MEMSUFFIX) (void) \ | |
108 | { \ | |
109 | print_mem_EA(T0); \ | |
110 | glue(op, MEMSUFFIX)(T0, FT1); \ | |
111 | RETURN(); \ | |
112 | } | |
113 | ||
114 | ALPHA_LDF_OP(t, ldfq); | |
115 | ALPHA_STF_OP(t, stfq); | |
116 | ALPHA_LDF_OP(s, ldfl); | |
117 | ALPHA_STF_OP(s, stfl); | |
118 | ||
119 | /* VAX floating point */ | |
120 | ALPHA_LDF_OP(f, helper_ldff); | |
121 | ALPHA_STF_OP(f, helper_stff); | |
122 | ALPHA_LDF_OP(g, helper_ldfg); | |
123 | ALPHA_STF_OP(g, helper_stfg); | |
124 | ||
125 | #undef MEMSUFFIX |