void
mbus_dmamap_sync(void *v, bus_dmamap_t map, bus_addr_t off, bus_size_t len,
int ops)
{
bus_dma_segment_t *ps = map->dm_segs,
*es = &map->dm_segs[map->dm_nsegs];
if (off >= map->_dm_size)
return;
if ((off + len) > map->_dm_size)
len = map->_dm_size - off;
for (; len && ps < es; ps++)
if (off > ps->ds_len)
off -= ps->ds_len;
else {
bus_size_t l = ps->ds_len - off;
if (l > len)
l = len;
fdcache(HPPA_SID_KERNEL, ps->_ds_va + off, l);
len -= l;
off = 0;
}
/* for either operation sync the shit away */
sync_caches();
}
void
mg_isa_barrier(void *v, bus_space_handle_t h, bus_size_t o, bus_size_t l, int op)
{
sync_caches();
}
static int tcc_compile_and_run(char* filename)
{
console_printf("Compiling script %s...\n", filename);
void* tcc = NULL;
TCCState * script_state = NULL;
void* script_buf = NULL;
tcc = module_load("ML/MODULES/tcc.mo");
if (!tcc)
{
console_printf("Could not load TCC compiler.\n");
goto err;
}
script_state = (void*) module_exec(tcc, "tcc_new", 0);
if (!script_state)
{
console_printf("Could not initialize TCC compiler.\n");
goto err;
}
module_exec(tcc, "tcc_set_options", 2, script_state, "-nostdlib");
module_exec(tcc, "tcc_set_options", 2, script_state, "-Wall");
module_exec(tcc, "tcc_set_options", 2, script_state, "-IML/scripts");
module_exec(tcc, "tcc_set_output_type", 2, script_state, TCC_OUTPUT_MEMORY);
int ret_compile = module_exec(tcc, "tcc_add_file", 2, script_state, filename);
if (ret_compile < 0)
{
console_printf("Compilation error.\n");
goto err;
}
script_load_symbols(tcc, script_state, "ML/modules/5D3_113.sym");
int size = module_exec(tcc, "tcc_relocate", 2, script_state, NULL);
if (size <= 0)
{
console_printf("Linking error.\n");
goto err;
}
script_buf = (void*) tcc_malloc(size);
if (!script_buf)
{
console_printf("Malloc error.\n");
goto err;
}
int ret_link = module_exec(tcc, "tcc_relocate", 2, script_state, script_buf);
if (ret_link < 0)
{
console_printf("Relocate error.\n");
goto err;
}
void (*script_main)() = (void*) module_exec(tcc, "tcc_get_symbol", 2, script_state, "main");
if (!script_main)
{
console_printf("Your script should have a main function.\n");
goto err;
}
script_define_param_variables(tcc, script_state);
module_exec(tcc, "tcc_delete", 1, script_state); script_state = NULL;
module_unload(tcc); tcc = NULL;
console_printf("Running script %s...\n", filename);
/* http://repo.or.cz/w/tinycc.git/commit/6ed6a36a51065060bd5e9bb516b85ff796e05f30 */
sync_caches();
script_main();
tcc_free(script_buf); script_buf = NULL;
return 0;
err:
if (script_buf) tcc_free(script_buf);
if (script_state) module_exec(tcc, "tcc_delete", 1, script_state);
if (tcc) module_unload(tcc);
return 1;
}
