1 /* This file is part of the program psim.
3 Copyright (C) 1994-1997, Andrew Cagney <cagney@highland.com.au>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
23 #error "N must be #defined"
26 /* NOTE: See end of file for #undef */
27 #define unsigned_N XCONCAT2(unsigned_,N)
28 #define T2H_N XCONCAT2(T2H_,N)
29 #define H2T_N XCONCAT2(H2T_,N)
30 #define vm_data_map_read_N XCONCAT2(vm_data_map_read_,N)
31 #define vm_data_map_write_N XCONCAT2(vm_data_map_write_,N)
36 vm_data_map_read_N(vm_data_map
*map
,
41 if ((ea
& (sizeof(unsigned_N
)-1)) == 0) {
42 unsigned ra
= vm_real_data_addr(map
, ea
, 1/*is-read*/, processor
, cia
);
45 ra
^= map
->translation
.xor[sizeof(unsigned_N
) - 1];
46 val
= XCONCAT2(core_map_read_
,N
)(map
->read
, ra
, processor
, cia
);
47 if (WITH_MON
& MONITOR_LOAD_STORE_UNIT
)
48 mon_read(ea
, ra
, sizeof(unsigned_N
), processor
, cia
);
49 TRACE(trace_load_store
, ("load cia=0x%lx ea=0x%lx N=%ld val=0x%lx\n",
50 (long)cia
, (long)ea
, (long)sizeof(unsigned_N
), (long)val
));
54 switch (CURRENT_ALIGNMENT
) {
55 case STRICT_ALIGNMENT
:
56 alignment_interrupt(processor
, cia
, ea
);
58 case NONSTRICT_ALIGNMENT
:
61 if (vm_data_map_read_buffer(map
, &val
, ea
, sizeof(unsigned_N
), processor
, cia
)
62 != sizeof(unsigned_N
)) {
63 cpu_error(processor
, cia
, "misaligned %d byte read to 0x%lx failed",
64 sizeof(unsigned_N
), (unsigned long)ea
);
67 if (WITH_MON
& MONITOR_LOAD_STORE_UNIT
) {
69 unsigned ra
= vm_real_data_addr(map
, ea
, 1, processor
, cia
);
70 mon_read(ea
, ra
, sizeof(unsigned_N
), processor
, cia
);
72 TRACE(trace_load_store
, ("load cia=0x%lx ea=0x%lx N=%ld data=0x%lx\n",
73 (long)cia
, (long)ea
, (long)sizeof(unsigned_N
), (long)val
));
77 error("internal error - vm_data_map_read_N - bad switch");
85 vm_data_map_write_N(vm_data_map
*map
,
91 if ((ea
& (sizeof(unsigned_N
)-1)) == 0) {
92 unsigned ra
= vm_real_data_addr(map
, ea
, 0/*is-read?*/, processor
, cia
);
94 ra
^= map
->translation
.xor[sizeof(unsigned_N
) - 1];
95 XCONCAT2(core_map_write_
,N
)(map
->write
, ra
, val
, processor
, cia
);
96 if (WITH_MON
& MONITOR_LOAD_STORE_UNIT
)
97 mon_write(ea
, ra
, sizeof(unsigned_N
), processor
, cia
);
98 TRACE(trace_load_store
, ("store cia=0x%lx ea=0x%lx N=%ld val=0x%lx\n",
99 (long)cia
, (long)ea
, (long)sizeof(unsigned_N
), (long)val
));
102 switch (CURRENT_ALIGNMENT
) {
103 case STRICT_ALIGNMENT
:
104 alignment_interrupt(processor
, cia
, ea
);
106 case NONSTRICT_ALIGNMENT
:
108 unsigned_N data
= H2T_N(val
);
109 if (vm_data_map_write_buffer(map
, &data
, ea
, sizeof(unsigned_N
), 0, processor
, cia
)
110 != sizeof(unsigned_N
)) {
111 cpu_error(processor
, cia
, "misaligned %d byte write to 0x%lx failed",
112 sizeof(unsigned_N
), (unsigned long)ea
);
114 if (WITH_MON
& MONITOR_LOAD_STORE_UNIT
) {
116 unsigned ra
= vm_real_data_addr(map
, ea
, 1, processor
, cia
);
117 mon_write(ea
, ra
, sizeof(unsigned_N
), processor
, cia
);
119 TRACE(trace_load_store
, ("store cia=0x%lx ea=0x%lx N=%ld val=0x%lx\n",
120 (long)cia
, (long)ea
, (long)sizeof(unsigned_N
), (long)val
));
124 error("internal error - vm_data_map_write_N - bad switch");
129 /* NOTE: see start of file for #define */
133 #undef vm_data_map_read_N
134 #undef vm_data_map_write_N
This page took 0.032188 seconds and 4 git commands to generate.