[thirdparty/binutils-gdb.git] / sim / ppc / corefile.c

/*  This file is part of the program psim.

    Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
    */


#ifndef _CORE_C_
#define _CORE_C_

#ifndef STATIC_INLINE_CORE
#define STATIC_INLINE_CORE STATIC_INLINE
#endif


#include "basics.h"
#include "device_tree.h"
#include "corefile.h"


typedef struct _core_mapping core_mapping;
struct _core_mapping {
  /* ram map */
  int free_buffer;
  void *buffer;
  /* device map */
  const device *device;
  device_io_read_buffer_callback *reader;
  device_io_write_buffer_callback *writer;
  /* common */
  int space;
  unsigned_word base;
  unsigned_word bound;
  unsigned nr_bytes;
  core_mapping *next;
};

struct _core_map {
  core_mapping *first;
  core_mapping *default_map;
};

typedef enum {
  core_read_map,
  core_write_map,
  core_execute_map,
  nr_core_map_types,
} core_map_types;

struct _core {
  core_map map[nr_core_map_types];
};


INLINE_CORE core *
core_create(void)
{
  core *new_core = ZALLOC(core);
  return new_core;
}


STATIC_INLINE_CORE void
core_init(core *memory)
{
  core_map_types access_type;
  for (access_type = 0;
       access_type < nr_core_map_types;
       access_type++) {
    core_map *map = memory->map + access_type;
    /* blow away old mappings */
    core_mapping *curr = map->first;
    while (curr != NULL) {
      core_mapping *tbd = curr;
      curr = curr->next;
      if (tbd->free_buffer) {
	ASSERT(tbd->buffer != NULL);
	zfree(tbd->buffer);
      }
      zfree(tbd);
    }
    map->first = NULL;
    /* blow away the default */
    if (map->default_map != NULL) {
      ASSERT(map->default_map->buffer == NULL);
      zfree(map->default_map);
    }
    map->default_map = NULL;
  }
}


/* the core has three sub mappings that the more efficient
   read/write fixed quantity functions use */

INLINE_CORE core_map *
core_readable(core *memory)
{
  return memory->map + core_read_map;
}

INLINE_CORE core_map *
core_writeable(core *memory)
{
  return memory->map + core_write_map;
}

INLINE_CORE core_map *
core_executable(core *memory)
{
  return memory->map + core_execute_map;
}


STATIC_INLINE_CORE core_mapping *
new_core_mapping(attach_type attach,
		 int space,
		 unsigned_word addr,
		 unsigned nr_bytes,
		 const device *device,
		 void *buffer,
		 int free_buffer)
{
  core_mapping *new_mapping = ZALLOC(core_mapping);
  switch (attach) {
  case attach_default:
  case attach_callback:
    new_mapping->device = device;
    new_mapping->reader = device->callback->io_read_buffer;
    new_mapping->writer = device->callback->io_write_buffer;
    break;
  case attach_raw_memory:
    new_mapping->buffer = buffer;
    new_mapping->free_buffer = free_buffer;
    break;
  default:
    error("new_core_mapping() - internal error - unknown attach type %d\n",
	  attach);
  }
  /* common */
  new_mapping->space = space;
  new_mapping->base = addr;
  new_mapping->nr_bytes = nr_bytes;
  new_mapping->bound = addr + (nr_bytes - 1);
  return new_mapping;
}


STATIC_INLINE_CORE void
core_map_attach(core_map *access_map,
		attach_type attach,
		int space,
		unsigned_word addr,
		unsigned nr_bytes, /* host limited */
		const device *device, /*callback/default*/
		void *buffer, /*raw_memory*/
		int free_buffer) /*raw_memory*/
{
  if (attach == attach_default) {
    if (access_map->default_map != NULL)
      error("core_map_attach() default mapping already in place\n");
    ASSERT(buffer == NULL);
    access_map->default_map = new_core_mapping(attach, 
					       space, addr, nr_bytes,
					       device, buffer, free_buffer);
  }
  else {
    /* find the insertion point for this additional mapping and insert */
    core_mapping *next_mapping;
    core_mapping **last_mapping;

    /* actually do occasionally get a zero size map */
    if (nr_bytes == 0)
      error("core_map_attach() size == 0\n");

    /* find the insertion point (between last/next) */
    next_mapping = access_map->first;
    last_mapping = &access_map->first;
    while(next_mapping != NULL && next_mapping->bound < addr) {
      /* assert: next_mapping->base > all bases before next_mapping */
      /* assert: next_mapping->bound >= all bounds before next_mapping */
      last_mapping = &next_mapping->next;
      next_mapping = next_mapping->next;
    }

    /* check insertion point correct */
    if (next_mapping != NULL && next_mapping->base < (addr + (nr_bytes - 1))) {
      error("core_map_attach() map overlap\n");
    }

    /* create/insert the new mapping */
    *last_mapping = new_core_mapping(attach,
				     space, addr, nr_bytes,
				     device, buffer, free_buffer);
    (*last_mapping)->next = next_mapping;
  }
}


INLINE_CORE void
core_attach(core *memory,
	    attach_type attach,
	    int space,
	    access_type access,
	    unsigned_word addr,
	    unsigned nr_bytes, /* host limited */
	    const device *device) /*callback/default*/
{
  core_map_types access_map;
  int free_buffer = 0;
  void *buffer = NULL;
  ASSERT(attach == attach_default || nr_bytes > 0);
  if (attach == attach_raw_memory)
    buffer = zalloc(nr_bytes);
  for (access_map = 0; 
       access_map < nr_core_map_types;
       access_map++) {
    switch (access_map) {
    case core_read_map:
      if (access & access_read)
	core_map_attach(memory->map + access_map,
			attach,
			space, addr, nr_bytes,
			device, buffer, !free_buffer);
      free_buffer ++;
      break;
    case core_write_map:
      if (access & access_write)
	core_map_attach(memory->map + access_map,
			attach,
			space, addr, nr_bytes,
			device, buffer, !free_buffer);
      free_buffer ++;
      break;
    case core_execute_map:
      if (access & access_exec)
	core_map_attach(memory->map + access_map,
			attach,
			space, addr, nr_bytes,
			device, buffer, !free_buffer);
      free_buffer ++;
      break;
    default:
      error("core_attach() internal error\n");
      break;
    }
  }
  ASSERT(free_buffer > 0); /* must attach to at least one thing */
}


STATIC_INLINE_CORE core_mapping *
core_map_find_mapping(core_map *map,
		      unsigned_word addr,
		      unsigned nr_bytes,
		      cpu *processor,
		      unsigned_word cia,
		      int abort) /*either 0 or 1 - helps inline */
{
  core_mapping *mapping = map->first;
  ASSERT((addr & (nr_bytes - 1)) == 0); /* must be aligned */
  ASSERT((addr + (nr_bytes - 1)) >= addr); /* must not wrap */
  while (mapping != NULL) {
    if (addr >= mapping->base
	&& (addr + (nr_bytes - 1)) <= mapping->bound)
      return mapping;
    mapping = mapping->next;
  }
  if (map->default_map != NULL)
    return map->default_map;
  if (abort)
    error("core_find_mapping() - access to unmaped address, attach a default map to handle this - addr=0x%x nr_bytes=0x%x processor=0x%x cia=0x%x\n",
	  addr, nr_bytes, processor, cia);
  return NULL;
}


STATIC_INLINE_CORE void *
core_translate(core_mapping *mapping,
		     unsigned_word addr)
{
  return mapping->buffer + addr - mapping->base;
}


INLINE_CORE unsigned
core_map_read_buffer(core_map *map,
		     void *buffer,
		     unsigned_word addr,
		     unsigned len)
{
  unsigned count;
  unsigned_1 byte;
  for (count = 0; count < len; count++) {
    unsigned_word raddr = addr + count;
    core_mapping *mapping =
      core_map_find_mapping(map,
			    raddr, 1,
			    NULL, /*processor*/
			    0, /*cia*/
			    0); /*dont-abort*/
    if (mapping == NULL)
      break;
    if (mapping->reader != NULL) {
      if (mapping->reader(mapping->device,
			  &byte,
			  mapping->space,
			  raddr - mapping->base,
			  1, /* nr_bytes */
			  0, /*processor*/
			  0 /*cpu*/) != 1)
	break;
    }
    else
      byte = *(unsigned_1*)core_translate(mapping,
						raddr);
    ((unsigned_1*)buffer)[count] = T2H_1(byte);
  }
  return count;
}


INLINE_CORE unsigned
core_map_write_buffer(core_map *map,
		      const void *buffer,
		      unsigned_word addr,
		      unsigned len)
{
  unsigned count;
  unsigned_1 byte;
  for (count = 0; count < len; count++) {
    unsigned_word raddr = addr + count;
    core_mapping *mapping = core_map_find_mapping(map,
						  raddr, 1,
						  NULL, /*processor*/
						  0, /*cia*/
						  0); /*dont-abort*/
    if (mapping == NULL)
      break;
    byte = H2T_1(((unsigned_1*)buffer)[count]);
    if (mapping->writer != NULL) {
      if (mapping->writer(mapping->device,
			  &byte,
			  mapping->space,
			  raddr - mapping->base,
			  1, /*nr_bytes*/
			  0, /*processor*/
			  0 /*cpu*/) != 1)
	break;
    }
    else
      *(unsigned_1*)core_translate(mapping, raddr) = byte;
  }
  return count;
}


/* Top level core(root) device: core@garbage

   The core device captures incomming dma requests and changes them to
   outgoing io requests. */

STATIC_INLINE_CORE void
core_init_callback(const device *me,
		   psim *system)
{
  core *memory = (core*)me->data;
  DTRACE_INIT(core);
  core_init(memory);
}


STATIC_INLINE_CORE void
core_attach_address_callback(const device *me,
			     const char *name,
			     attach_type attach,
			     int space,
			     unsigned_word addr,
			     unsigned nr_bytes,
			     access_type access,
			     const device *who) /*callback/default*/
{
  core *memory = (core*)me->data;
  DTRACE_ATTACH_ADDRESS(core);
  if (space != 0)
    error("core_attach_address_callback() invalid address space\n");
  core_attach(memory,
	      attach,
	      space,
	      access,
	      addr,
	      nr_bytes,
	      who);
}


STATIC_INLINE_CORE unsigned
core_dma_read_buffer_callback(const device *me,
			      void *dest,
			      int space,
			      unsigned_word addr,
			      unsigned nr_bytes)
{
  core *memory = (core*)me->data;
  DTRACE_DMA_READ_BUFFER(core);
  return core_map_read_buffer(core_readable(memory),
			      dest,
			      addr,
			      nr_bytes);
}


STATIC_INLINE_CORE unsigned
core_dma_write_buffer_callback(const device *me,
			       const void *source,
			       int space,
			       unsigned_word addr,
			       unsigned nr_bytes,
			       int violate_read_only_section)
{
  core *memory = (core*)me->data;
  core_map *map = (violate_read_only_section
		   ? core_readable(memory)
		   : core_writeable(memory));
  DTRACE_DMA_WRITE_BUFFER(core);
  return core_map_write_buffer(map,
			       source,
			       addr,
			       nr_bytes);
}


static device_callbacks const core_callbacks = {
  core_init_callback,
  core_attach_address_callback,
  unimp_device_detach_address,
  unimp_device_io_read_buffer,
  unimp_device_io_write_buffer,
  core_dma_read_buffer_callback,
  core_dma_write_buffer_callback,
  unimp_device_attach_interrupt,
  unimp_device_detach_interrupt,
  unimp_device_interrupt,
  unimp_device_interrupt_ack,
  unimp_device_ioctl,
};


INLINE_CORE const device *
core_device_create(core *memory)
{
  return device_create_from("core", "/", memory, &core_callbacks, NULL);
}


/* define the read/write 1/2/4/8/word functions */

#undef N
#define N 1
#include "core_n.h"

#undef N
#define N 2
#include "core_n.h"

#undef N
#define N 4
#include "core_n.h"

#undef N
#define N 8
#include "core_n.h"

#undef N
#define N word
#include "core_n.h"

#endif /* _CORE_C_ */
Commit	Line	Data
cb7a6892 MM	1	/* This file is part of the program psim.
	2
	3	Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
	4
	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.
	9
	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.
	14
	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.
	18
	19	*/
	20
	21
	22	#ifndef _CORE_C_
	23	#define _CORE_C_
	24
	25	#ifndef STATIC_INLINE_CORE
	26	#define STATIC_INLINE_CORE STATIC_INLINE
	27	#endif
	28
dec38dac	29
cb7a6892 MM	30	#include "basics.h"
cb7a6892 MM	31	#include "device_tree.h"
01860b7e	32	#include "corefile.h"
cb7a6892 MM	33
cb7a6892 MM	34
dec38dac MM	35	typedef struct _core_mapping core_mapping;
	36	struct _core_mapping {
	37	/* ram map */
	38	int free_buffer;
	39	void *buffer;
	40	/* device map */
	41	const device *device;
	42	device_io_read_buffer_callback *reader;
	43	device_io_write_buffer_callback *writer;
	44	/* common */
5b4d72dd	45	int space;
dec38dac MM	46	unsigned_word base;
	47	unsigned_word bound;
	48	unsigned nr_bytes;
	49	core_mapping *next;
	50	};
	51
	52	struct _core_map {
	53	core_mapping *first;
	54	core_mapping *default_map;
	55	};
	56
	57	typedef enum {
	58	core_read_map,
	59	core_write_map,
	60	core_execute_map,
	61	nr_core_map_types,
	62	} core_map_types;
	63
cb7a6892	64	struct _core {
dec38dac	65	core_map map[nr_core_map_types];
cb7a6892 MM	66	};
	67
	68
dec38dac MM	69	INLINE_CORE core *
	70	core_create(void)
	71	{
	72	core *new_core = ZALLOC(core);
	73	return new_core;
	74	}
	75
	76
cb7a6892	77	STATIC_INLINE_CORE void
dec38dac	78	core_init(core *memory)
cb7a6892	79	{
dec38dac MM	80	core_map_types access_type;
	81	for (access_type = 0;
	82	access_type < nr_core_map_types;
	83	access_type++) {
	84	core_map *map = memory->map + access_type;
	85	/* blow away old mappings */
	86	core_mapping *curr = map->first;
	87	while (curr != NULL) {
	88	core_mapping *tbd = curr;
	89	curr = curr->next;
	90	if (tbd->free_buffer) {
	91	ASSERT(tbd->buffer != NULL);
	92	zfree(tbd->buffer);
cb7a6892	93	}
dec38dac MM	94	zfree(tbd);
	95	}
	96	map->first = NULL;
	97	/* blow away the default */
	98	if (map->default_map != NULL) {
	99	ASSERT(map->default_map->buffer == NULL);
	100	zfree(map->default_map);
cb7a6892	101	}
dec38dac	102	map->default_map = NULL;
cb7a6892 MM	103	}
	104	}
	105
	106
dec38dac MM	107
	108	/* the core has three sub mappings that the more efficient
	109	read/write fixed quantity functions use */
	110
	111	INLINE_CORE core_map *
	112	core_readable(core *memory)
cb7a6892	113	{
dec38dac	114	return memory->map + core_read_map;
cb7a6892 MM	115	}
cb7a6892 MM	116
dec38dac MM	117	INLINE_CORE core_map *
	118	core_writeable(core *memory)
	119	{
	120	return memory->map + core_write_map;
	121	}
cb7a6892	122
dec38dac MM	123	INLINE_CORE core_map *
dec38dac MM	124	core_executable(core *memory)
cb7a6892	125	{
dec38dac	126	return memory->map + core_execute_map;
cb7a6892 MM	127	}
cb7a6892 MM	128
dec38dac MM	129
	130
	131	STATIC_INLINE_CORE core_mapping *
	132	new_core_mapping(attach_type attach,
5b4d72dd MM	133	int space,
	134	unsigned_word addr,
	135	unsigned nr_bytes,
	136	const device *device,
	137	void *buffer,
	138	int free_buffer)
cb7a6892	139	{
dec38dac MM	140	core_mapping *new_mapping = ZALLOC(core_mapping);
	141	switch (attach) {
	142	case attach_default:
	143	case attach_callback:
	144	new_mapping->device = device;
	145	new_mapping->reader = device->callback->io_read_buffer;
	146	new_mapping->writer = device->callback->io_write_buffer;
	147	break;
	148	case attach_raw_memory:
	149	new_mapping->buffer = buffer;
	150	new_mapping->free_buffer = free_buffer;
	151	break;
	152	default:
	153	error("new_core_mapping() - internal error - unknown attach type %d\n",
	154	attach);
cb7a6892	155	}
dec38dac	156	/* common */
5b4d72dd	157	new_mapping->space = space;
dec38dac MM	158	new_mapping->base = addr;
	159	new_mapping->nr_bytes = nr_bytes;
	160	new_mapping->bound = addr + (nr_bytes - 1);
	161	return new_mapping;
cb7a6892 MM	162	}
cb7a6892 MM	163
dec38dac MM	164
	165	STATIC_INLINE_CORE void
	166	core_map_attach(core_map *access_map,
5b4d72dd MM	167	attach_type attach,
	168	int space,
	169	unsigned_word addr,
	170	unsigned nr_bytes, /* host limited */
	171	const device device, /callback/default*/
	172	void buffer, /raw_memory*/
	173	int free_buffer) /raw_memory/
cb7a6892	174	{
dec38dac MM	175	if (attach == attach_default) {
	176	if (access_map->default_map != NULL)
	177	error("core_map_attach() default mapping already in place\n");
	178	ASSERT(buffer == NULL);
	179	access_map->default_map = new_core_mapping(attach,
5b4d72dd MM	180	space, addr, nr_bytes,
5b4d72dd MM	181	device, buffer, free_buffer);
cb7a6892	182	}
dec38dac MM	183	else {
	184	/* find the insertion point for this additional mapping and insert */
	185	core_mapping *next_mapping;
	186	core_mapping **last_mapping;
	187
	188	/* actually do occasionally get a zero size map */
	189	if (nr_bytes == 0)
	190	error("core_map_attach() size == 0\n");
	191
	192	/* find the insertion point (between last/next) */
	193	next_mapping = access_map->first;
	194	last_mapping = &access_map->first;
	195	while(next_mapping != NULL && next_mapping->bound < addr) {
	196	/* assert: next_mapping->base > all bases before next_mapping */
	197	/* assert: next_mapping->bound >= all bounds before next_mapping */
	198	last_mapping = &next_mapping->next;
	199	next_mapping = next_mapping->next;
cb7a6892	200	}
cb7a6892	201
dec38dac MM	202	/* check insertion point correct */
	203	if (next_mapping != NULL && next_mapping->base < (addr + (nr_bytes - 1))) {
	204	error("core_map_attach() map overlap\n");
	205	}
cb7a6892	206
dec38dac MM	207	/* create/insert the new mapping */
dec38dac MM	208	*last_mapping = new_core_mapping(attach,
5b4d72dd MM	209	space, addr, nr_bytes,
5b4d72dd MM	210	device, buffer, free_buffer);
dec38dac MM	211	(*last_mapping)->next = next_mapping;
dec38dac MM	212	}
cb7a6892 MM	213	}
	214
	215
cb7a6892	216	INLINE_CORE void
dec38dac MM	217	core_attach(core *memory,
dec38dac MM	218	attach_type attach,
5b4d72dd	219	int space,
dec38dac MM	220	access_type access,
	221	unsigned_word addr,
	222	unsigned nr_bytes, /* host limited */
	223	const device device) /callback/default*/
cb7a6892	224	{
dec38dac MM	225	core_map_types access_map;
	226	int free_buffer = 0;
	227	void *buffer = NULL;
	228	ASSERT(attach == attach_default \|\| nr_bytes > 0);
	229	if (attach == attach_raw_memory)
	230	buffer = zalloc(nr_bytes);
	231	for (access_map = 0;
	232	access_map < nr_core_map_types;
	233	access_map++) {
	234	switch (access_map) {
	235	case core_read_map:
	236	if (access & access_read)
	237	core_map_attach(memory->map + access_map,
	238	attach,
5b4d72dd	239	space, addr, nr_bytes,
dec38dac MM	240	device, buffer, !free_buffer);
	241	free_buffer ++;
	242	break;
	243	case core_write_map:
	244	if (access & access_write)
	245	core_map_attach(memory->map + access_map,
	246	attach,
5b4d72dd	247	space, addr, nr_bytes,
dec38dac MM	248	device, buffer, !free_buffer);
	249	free_buffer ++;
	250	break;
	251	case core_execute_map:
	252	if (access & access_exec)
	253	core_map_attach(memory->map + access_map,
	254	attach,
5b4d72dd	255	space, addr, nr_bytes,
dec38dac MM	256	device, buffer, !free_buffer);
	257	free_buffer ++;
	258	break;
	259	default:
	260	error("core_attach() internal error\n");
	261	break;
	262	}
	263	}
	264	ASSERT(free_buffer > 0); /* must attach to at least one thing */
cb7a6892 MM	265	}
	266
	267
dec38dac MM	268	STATIC_INLINE_CORE core_mapping *
	269	core_map_find_mapping(core_map *map,
	270	unsigned_word addr,
	271	unsigned nr_bytes,
	272	cpu *processor,
	273	unsigned_word cia,
	274	int abort) /either 0 or 1 - helps inline /
cb7a6892	275	{
dec38dac MM	276	core_mapping *mapping = map->first;
	277	ASSERT((addr & (nr_bytes - 1)) == 0); /* must be aligned */
	278	ASSERT((addr + (nr_bytes - 1)) >= addr); /* must not wrap */
	279	while (mapping != NULL) {
	280	if (addr >= mapping->base
	281	&& (addr + (nr_bytes - 1)) <= mapping->bound)
	282	return mapping;
	283	mapping = mapping->next;
	284	}
	285	if (map->default_map != NULL)
	286	return map->default_map;
	287	if (abort)
	288	error("core_find_mapping() - access to unmaped address, attach a default map to handle this - addr=0x%x nr_bytes=0x%x processor=0x%x cia=0x%x\n",
	289	addr, nr_bytes, processor, cia);
	290	return NULL;
cb7a6892 MM	291	}
	292
	293
dec38dac MM	294	STATIC_INLINE_CORE void *
	295	core_translate(core_mapping *mapping,
	296	unsigned_word addr)
cb7a6892	297	{
dec38dac	298	return mapping->buffer + addr - mapping->base;
cb7a6892 MM	299	}
cb7a6892 MM	300
dec38dac MM	301
	302	INLINE_CORE unsigned
	303	core_map_read_buffer(core_map *map,
	304	void *buffer,
	305	unsigned_word addr,
	306	unsigned len)
cb7a6892	307	{
dec38dac MM	308	unsigned count;
	309	unsigned_1 byte;
	310	for (count = 0; count < len; count++) {
	311	unsigned_word raddr = addr + count;
	312	core_mapping *mapping =
	313	core_map_find_mapping(map,
	314	raddr, 1,
	315	NULL, /processor/
	316	0, /cia/
	317	0); /dont-abort/
	318	if (mapping == NULL)
	319	break;
	320	if (mapping->reader != NULL) {
	321	if (mapping->reader(mapping->device,
	322	&byte,
5b4d72dd	323	mapping->space,
dec38dac MM	324	raddr - mapping->base,
	325	1, /* nr_bytes */
	326	0, /processor/
	327	0 /cpu/) != 1)
	328	break;
	329	}
	330	else
	331	byte = (unsigned_1)core_translate(mapping,
	332	raddr);
	333	((unsigned_1*)buffer)[count] = T2H_1(byte);
	334	}
	335	return count;
cb7a6892 MM	336	}
	337
	338
dec38dac MM	339	INLINE_CORE unsigned
	340	core_map_write_buffer(core_map *map,
	341	const void *buffer,
	342	unsigned_word addr,
	343	unsigned len)
cb7a6892	344	{
dec38dac MM	345	unsigned count;
	346	unsigned_1 byte;
	347	for (count = 0; count < len; count++) {
	348	unsigned_word raddr = addr + count;
	349	core_mapping *mapping = core_map_find_mapping(map,
	350	raddr, 1,
	351	NULL, /processor/
	352	0, /cia/
	353	0); /dont-abort/
	354	if (mapping == NULL)
	355	break;
	356	byte = H2T_1(((unsigned_1*)buffer)[count]);
	357	if (mapping->writer != NULL) {
	358	if (mapping->writer(mapping->device,
	359	&byte,
5b4d72dd	360	mapping->space,
dec38dac MM	361	raddr - mapping->base,
	362	1, /nr_bytes/
	363	0, /processor/
	364	0 /cpu/) != 1)
	365	break;
	366	}
	367	else
	368	(unsigned_1)core_translate(mapping, raddr) = byte;
	369	}
	370	return count;
cb7a6892 MM	371	}
cb7a6892 MM	372
cb7a6892 MM	373
cb7a6892 MM	374
dec38dac MM	375	/* Top level core(root) device: core@garbage
	376
	377	The core device captures incomming dma requests and changes them to
	378	outgoing io requests. */
cb7a6892	379
dec38dac MM	380	STATIC_INLINE_CORE void
	381	core_init_callback(const device *me,
	382	psim *system)
cb7a6892	383	{
dec38dac	384	core memory = (core)me->data;
5b4d72dd	385	DTRACE_INIT(core);
dec38dac	386	core_init(memory);
cb7a6892 MM	387	}
	388
	389
dec38dac MM	390	STATIC_INLINE_CORE void
	391	core_attach_address_callback(const device *me,
	392	const char *name,
	393	attach_type attach,
5b4d72dd	394	int space,
dec38dac MM	395	unsigned_word addr,
	396	unsigned nr_bytes,
	397	access_type access,
	398	const device who) /callback/default*/
cb7a6892	399	{
dec38dac	400	core memory = (core)me->data;
5b4d72dd MM	401	DTRACE_ATTACH_ADDRESS(core);
5b4d72dd MM	402	if (space != 0)
dec38dac MM	403	error("core_attach_address_callback() invalid address space\n");
	404	core_attach(memory,
	405	attach,
5b4d72dd	406	space,
dec38dac MM	407	access,
	408	addr,
	409	nr_bytes,
	410	who);
cb7a6892 MM	411	}
	412
	413
dec38dac MM	414	STATIC_INLINE_CORE unsigned
dec38dac MM	415	core_dma_read_buffer_callback(const device *me,
5b4d72dd MM	416	void *dest,
	417	int space,
	418	unsigned_word addr,
dec38dac	419	unsigned nr_bytes)
cb7a6892	420	{
dec38dac	421	core memory = (core)me->data;
5b4d72dd	422	DTRACE_DMA_READ_BUFFER(core);
dec38dac	423	return core_map_read_buffer(core_readable(memory),
5b4d72dd MM	424	dest,
5b4d72dd MM	425	addr,
dec38dac	426	nr_bytes);
cb7a6892 MM	427	}
	428
	429
dec38dac MM	430	STATIC_INLINE_CORE unsigned
	431	core_dma_write_buffer_callback(const device *me,
	432	const void *source,
5b4d72dd MM	433	int space,
5b4d72dd MM	434	unsigned_word addr,
dec38dac MM	435	unsigned nr_bytes,
dec38dac MM	436	int violate_read_only_section)
cb7a6892	437	{
dec38dac MM	438	core memory = (core)me->data;
	439	core_map *map = (violate_read_only_section
	440	? core_readable(memory)
	441	: core_writeable(memory));
5b4d72dd	442	DTRACE_DMA_WRITE_BUFFER(core);
dec38dac MM	443	return core_map_write_buffer(map,
dec38dac MM	444	source,
5b4d72dd	445	addr,
dec38dac	446	nr_bytes);
cb7a6892 MM	447	}
	448
	449
dec38dac MM	450	static device_callbacks const core_callbacks = {
	451	core_init_callback,
	452	core_attach_address_callback,
	453	unimp_device_detach_address,
	454	unimp_device_io_read_buffer,
	455	unimp_device_io_write_buffer,
	456	core_dma_read_buffer_callback,
	457	core_dma_write_buffer_callback,
	458	unimp_device_attach_interrupt,
	459	unimp_device_detach_interrupt,
	460	unimp_device_interrupt,
	461	unimp_device_interrupt_ack,
	462	unimp_device_ioctl,
	463	};
	464
	465
	466	INLINE_CORE const device *
	467	core_device_create(core *memory)
cb7a6892	468	{
5b4d72dd	469	return device_create_from("core", "/", memory, &core_callbacks, NULL);
cb7a6892 MM	470	}
cb7a6892 MM	471
dec38dac MM	472
	473
	474	/* define the read/write 1/2/4/8/word functions */
	475
	476	#undef N
	477	#define N 1
	478	#include "core_n.h"
	479
	480	#undef N
	481	#define N 2
	482	#include "core_n.h"
	483
	484	#undef N
	485	#define N 4
	486	#include "core_n.h"
	487
	488	#undef N
	489	#define N 8
	490	#include "core_n.h"
	491
	492	#undef N
	493	#define N word
	494	#include "core_n.h"
	495
	496	#endif /* _CORE_C_ */