nkeynes@363: /**
nkeynes@365:  * $Id: testsh4x86.c,v 1.2 2007-09-04 08:32:10 nkeynes Exp $
nkeynes@363:  *
nkeynes@363:  * Test cases for the SH4 => x86 translator core. Takes as
nkeynes@363:  * input a binary SH4 object (and VMA), generates the
nkeynes@363:  * corresponding x86 code, and outputs the disassembly.
nkeynes@363:  *
nkeynes@363:  * Copyright (c) 2005 Nathan Keynes.
nkeynes@363:  *
nkeynes@363:  * This program is free software; you can redistribute it and/or modify
nkeynes@363:  * it under the terms of the GNU General Public License as published by
nkeynes@363:  * the Free Software Foundation; either version 2 of the License, or
nkeynes@363:  * (at your option) any later version.
nkeynes@363:  *
nkeynes@363:  * This program is distributed in the hope that it will be useful,
nkeynes@363:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
nkeynes@363:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
nkeynes@363:  * GNU General Public License for more details.
nkeynes@363:  */
nkeynes@363: 
nkeynes@363: #include <stdio.h>
nkeynes@363: #include <stdarg.h>
nkeynes@363: #include <getopt.h>
nkeynes@365: #include <sys/stat.h>
nkeynes@365: #include "x86dasm/x86dasm.h"
nkeynes@363: #include "sh4/sh4trans.h"
nkeynes@363: #include "sh4/sh4core.h"
nkeynes@363: 
nkeynes@363: #define MAX_INS_SIZE 32
nkeynes@363: 
nkeynes@363: char *option_list = "s:o:d:h";
nkeynes@363: struct option longopts[1] = { { NULL, 0, 0, 0 } };
nkeynes@363: 
nkeynes@363: char *input_file = NULL;
nkeynes@363: char *diff_file = NULL;
nkeynes@363: char *output_file = NULL;
nkeynes@363: uint32_t start_addr = 0x8C010000;
nkeynes@365: uint32_t sh4_cpu_period = 5;
nkeynes@363: FILE *in;
nkeynes@363: 
nkeynes@363: char *inbuf;
nkeynes@365: 
nkeynes@365: struct x86_symbol local_symbols[] = {
nkeynes@365:     { "_sh4_read_byte", sh4_read_byte },
nkeynes@365:     { "_sh4_read_word", sh4_read_word },
nkeynes@365:     { "_sh4_read_long", sh4_read_long },
nkeynes@365:     { "_sh4_write_byte", sh4_write_byte },
nkeynes@365:     { "_sh4_write_word", sh4_write_word },
nkeynes@365:     { "_sh4_write_long", sh4_write_long }
nkeynes@365: };
nkeynes@363: 
nkeynes@363: int32_t sh4_read_byte( uint32_t addr ) 
nkeynes@363: {
nkeynes@363:     return *(uint8_t *)(inbuf+(addr-start_addr));
nkeynes@363: }
nkeynes@363: int32_t sh4_read_word( uint32_t addr ) 
nkeynes@363: {
nkeynes@363:     return *(uint16_t *)(inbuf+(addr-start_addr));
nkeynes@363: }
nkeynes@363: int32_t sh4_read_long( uint32_t addr ) 
nkeynes@363: {
nkeynes@363:     return *(uint32_t *)(inbuf+(addr-start_addr));
nkeynes@363: }
nkeynes@363: // Stubs
nkeynes@363: gboolean sh4_execute_instruction( ) { }
nkeynes@363: void sh4_accept_interrupt() {}
nkeynes@363: void sh4_set_breakpoint( uint32_t pc, int type ) { }
nkeynes@363: gboolean sh4_clear_breakpoint( uint32_t pc, int type ) { }
nkeynes@363: int sh4_get_breakpoint( uint32_t pc ) { }
nkeynes@363: void event_execute() {}
nkeynes@363: void TMU_run_slice( uint32_t nanos ) {}
nkeynes@363: void SCIF_run_slice( uint32_t nanos ) {}
nkeynes@363: void sh4_write_byte( uint32_t addr, uint32_t val ) {}
nkeynes@363: void sh4_write_word( uint32_t addr, uint32_t val ) {}
nkeynes@363: void sh4_write_long( uint32_t addr, uint32_t val ) {}
nkeynes@365: gboolean sh4_raise_exception( int exc ) {}
nkeynes@363: 
nkeynes@363: void usage()
nkeynes@363: {
nkeynes@363:     fprintf( stderr, "Usage: testsh4x86 [options] <input bin file>\n");
nkeynes@363:     fprintf( stderr, "Options:\n");
nkeynes@363:     fprintf( stderr, "  -d <filename>  Diff results against contents of file\n" );
nkeynes@363:     fprintf( stderr, "  -h             Display this help message\n" );
nkeynes@363:     fprintf( stderr, "  -o <filename>  Output disassembly to file [stdout]\n" );
nkeynes@363:     fprintf( stderr, "  -s <addr>      Specify start address of binary [8C010000]\n" );
nkeynes@363: }
nkeynes@363: 
nkeynes@363: void emit( void *ptr, int level, const gchar *source, const char *msg, ... )
nkeynes@363: {
nkeynes@363:     va_list ap;
nkeynes@363:     va_start( ap, msg );
nkeynes@363:     vfprintf( stderr, msg, ap );
nkeynes@363:     fprintf( stderr, "\n" );
nkeynes@363:     va_end(ap);
nkeynes@363: }
nkeynes@363: 
nkeynes@363: 
nkeynes@363: struct sh4_registers sh4r;
nkeynes@363: 
nkeynes@363: 
nkeynes@363: int main( int argc, char *argv[] )
nkeynes@363: {
nkeynes@363:     struct stat st;
nkeynes@363:     int opt;
nkeynes@363:     while( (opt = getopt_long( argc, argv, option_list, longopts, NULL )) != -1 ) {
nkeynes@363: 	switch( opt ) {
nkeynes@363: 	case 'd':
nkeynes@363: 	    diff_file = optarg;
nkeynes@363: 	    break;
nkeynes@363: 	case 'o':
nkeynes@363: 	    output_file = optarg;
nkeynes@363: 	    break;
nkeynes@363: 	case 's':
nkeynes@363: 	    start_addr = strtoul(optarg, NULL, 0);
nkeynes@363: 	    break;
nkeynes@363: 	case 'h':
nkeynes@363: 	    usage();
nkeynes@363: 	    exit(0);
nkeynes@363: 	}
nkeynes@363:     }
nkeynes@363:     if( optind < argc ) {
nkeynes@363: 	input_file = argv[optind++];
nkeynes@363:     } else {
nkeynes@363: 	usage();
nkeynes@363: 	exit(1);
nkeynes@363:     }
nkeynes@363: 
nkeynes@363:     in = fopen( input_file, "ro" );
nkeynes@363:     if( in == NULL ) {
nkeynes@363: 	perror( "Unable to open input file" );
nkeynes@363: 	exit(2);
nkeynes@363:     }
nkeynes@363:     fstat( fileno(in), &st );
nkeynes@363:     inbuf = malloc( st.st_size );
nkeynes@363:     fread( inbuf, st.st_size, 1, in );
nkeynes@363: 
nkeynes@365:     xlat_cache_init();
nkeynes@363:     uint32_t pc;
nkeynes@365:     uint8_t *buf = sh4_translate_basic_block( start_addr );
nkeynes@365:     uint32_t buflen = xlat_get_block_size(buf);
nkeynes@365:     x86_disasm_init( buf, 0x8c010000, buflen );
nkeynes@365:     x86_set_symtab( local_symbols, 6 );
nkeynes@363:     for( pc = 0x8c010000; pc < 0x8c010000 + buflen;  ) {
nkeynes@363: 	char buf[256];
nkeynes@363: 	char op[256];
nkeynes@363: 	uint32_t pc2 = x86_disasm_instruction( pc, buf, sizeof(buf), op );
nkeynes@363: 	fprintf( stdout, "%08X: %-20s %s\n", pc, op, buf );
nkeynes@363: 	pc = pc2;
nkeynes@363:     }
nkeynes@363: }