added flags computation optimization (dc99065b) · Commits · SUMMER2020 / students / proj-2021291

Makefile

+1 −1

Original line number	Diff line number	Diff line
		@@ -33,7 +33,7 @@ LIBS+=-ldl -lm
		# profiling code
		ifdef TARGET_GPROF
		LDFLAGS+=-p
		CFLAGS+=-p
		main.o: CFLAGS+=-p
		endif

		OBJS= elfload.o main.o thunk.o syscall.o

TODO

+3 −5

Original line number	Diff line number	Diff line
		- optimize translated cache chaining (DLL PLT like system)
		- improved 16 bit support
		- optimize inverse flags propagation (easy by generating intermediate
		micro operation array).
		- optimize translated cache chaining (DLL PLT-like system)
		- 64 bit syscalls
		- signals
		- threads
		- make it self runnable (use same trick as ld.so : include its own relocator and libc)
		- improved 16 bit support
		- fix FPU exceptions (in particular: gen_op_fpush not before mem load)
		- tests

dis-asm.h

0 → 100644

+237 −0

Original line number	Diff line number	Diff line
		/* Interface between the opcode library and its callers.
		Written by Cygnus Support, 1993.

		The opcode library (libopcodes.a) provides instruction decoders for
		a large variety of instruction sets, callable with an identical
		interface, for making instruction-processing programs more independent
		of the instruction set being processed. */

		#ifndef DIS_ASM_H
		#define DIS_ASM_H

		#include <stdio.h>
		#include "bfd.h"

		typedef int (fprintf_ftype) PARAMS((FILE, const char*, ...));

		enum dis_insn_type {
		dis_noninsn, /* Not a valid instruction */
		dis_nonbranch, /* Not a branch instruction */
		dis_branch, /* Unconditional branch */
		dis_condbranch, /* Conditional branch */
		dis_jsr, /* Jump to subroutine */
		dis_condjsr, /* Conditional jump to subroutine */
		dis_dref, /* Data reference instruction */
		dis_dref2 /* Two data references in instruction */
		};

		/* This struct is passed into the instruction decoding routine,
		and is passed back out into each callback. The various fields are used
		for conveying information from your main routine into your callbacks,
		for passing information into the instruction decoders (such as the
		addresses of the callback functions), or for passing information
		back from the instruction decoders to their callers.

		It must be initialized before it is first passed; this can be done
		by hand, or using one of the initialization macros below. */

		typedef struct disassemble_info {
		fprintf_ftype fprintf_func;
		FILE *stream;
		PTR application_data;

		/* Target description. We could replace this with a pointer to the bfd,
		but that would require one. There currently isn't any such requirement
		so to avoid introducing one we record these explicitly. */
		/* The bfd_flavour. This can be bfd_target_unknown_flavour. */
		enum bfd_flavour flavour;
		/* The bfd_arch value. */
		enum bfd_architecture arch;
		/* The bfd_mach value. */
		unsigned long mach;
		/* Endianness (for bi-endian cpus). Mono-endian cpus can ignore this. */
		enum bfd_endian endian;

		/* An array of pointers to symbols either at the location being disassembled
		or at the start of the function being disassembled. The array is sorted
		so that the first symbol is intended to be the one used. The others are
		present for any misc. purposes. This is not set reliably, but if it is
		not NULL, it is correct. */
		asymbol **symbols;
		/* Number of symbols in array. */
		int num_symbols;

		/* For use by the disassembler.
		The top 16 bits are reserved for public use (and are documented here).
		The bottom 16 bits are for the internal use of the disassembler. */
		unsigned long flags;
		#define INSN_HAS_RELOC 0x80000000
		PTR private_data;

		/* Function used to get bytes to disassemble. MEMADDR is the
		address of the stuff to be disassembled, MYADDR is the address to
		put the bytes in, and LENGTH is the number of bytes to read.
		INFO is a pointer to this struct.
		Returns an errno value or 0 for success. */
		int (*read_memory_func)
		PARAMS ((bfd_vma memaddr, bfd_byte *myaddr, int length,
		struct disassemble_info *info));

		/* Function which should be called if we get an error that we can't
		recover from. STATUS is the errno value from read_memory_func and
		MEMADDR is the address that we were trying to read. INFO is a
		pointer to this struct. */
		void (*memory_error_func)
		PARAMS ((int status, bfd_vma memaddr, struct disassemble_info *info));

		/* Function called to print ADDR. */
		void (*print_address_func)
		PARAMS ((bfd_vma addr, struct disassemble_info *info));

		/* Function called to determine if there is a symbol at the given ADDR.
		If there is, the function returns 1, otherwise it returns 0.
		This is used by ports which support an overlay manager where
		the overlay number is held in the top part of an address. In
		some circumstances we want to include the overlay number in the
		address, (normally because there is a symbol associated with
		that address), but sometimes we want to mask out the overlay bits. */
		int (* symbol_at_address_func)
		PARAMS ((bfd_vma addr, struct disassemble_info * info));

		/* These are for buffer_read_memory. */
		bfd_byte *buffer;
		bfd_vma buffer_vma;
		int buffer_length;

		/* This variable may be set by the instruction decoder. It suggests
		the number of bytes objdump should display on a single line. If
		the instruction decoder sets this, it should always set it to
		the same value in order to get reasonable looking output. */
		int bytes_per_line;

		/* the next two variables control the way objdump displays the raw data */
		/* For example, if bytes_per_line is 8 and bytes_per_chunk is 4, the */
		/* output will look like this:
		00: 00000000 00000000
		with the chunks displayed according to "display_endian". */
		int bytes_per_chunk;
		enum bfd_endian display_endian;

		/* Results from instruction decoders. Not all decoders yet support
		this information. This info is set each time an instruction is
		decoded, and is only valid for the last such instruction.

		To determine whether this decoder supports this information, set
		insn_info_valid to 0, decode an instruction, then check it. */

		char insn_info_valid; /* Branch info has been set. */
		char branch_delay_insns; /* How many sequential insn's will run before
		a branch takes effect. (0 = normal) */
		char data_size; /* Size of data reference in insn, in bytes */
		enum dis_insn_type insn_type; /* Type of instruction */
		bfd_vma target; /* Target address of branch or dref, if known;
		zero if unknown. */
		bfd_vma target2; /* Second target address for dref2 */

		} disassemble_info;


		/* Standard disassemblers. Disassemble one instruction at the given
		target address. Return number of bytes processed. */
		typedef int (*disassembler_ftype)
		PARAMS((bfd_vma, disassemble_info *));

		extern int print_insn_big_mips PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_little_mips PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_i386 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_m68k PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_z8001 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_z8002 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_h8300 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_h8300h PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_h8300s PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_h8500 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_alpha PARAMS ((bfd_vma, disassemble_info*));
		extern disassembler_ftype arc_get_disassembler PARAMS ((int, int));
		extern int print_insn_big_arm PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_little_arm PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_sparc PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_big_a29k PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_little_a29k PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_i960 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_sh PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_shl PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_hppa PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_m32r PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_m88k PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_mn10200 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_mn10300 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_ns32k PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_big_powerpc PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_little_powerpc PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_rs6000 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_w65 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_d10v PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_v850 PARAMS ((bfd_vma, disassemble_info*));
		extern int print_insn_tic30 PARAMS ((bfd_vma, disassemble_info*));

		/* Fetch the disassembler for a given BFD, if that support is available. */
		extern disassembler_ftype disassembler PARAMS ((bfd *));


		/* This block of definitions is for particular callers who read instructions
		into a buffer before calling the instruction decoder. */

		/* Here is a function which callers may wish to use for read_memory_func.
		It gets bytes from a buffer. */
		extern int buffer_read_memory
		PARAMS ((bfd_vma, bfd_byte , int, struct disassemble_info ));

		/* This function goes with buffer_read_memory.
		It prints a message using info->fprintf_func and info->stream. */
		extern void perror_memory PARAMS ((int, bfd_vma, struct disassemble_info *));


		/* Just print the address in hex. This is included for completeness even
		though both GDB and objdump provide their own (to print symbolic
		addresses). */
		extern void generic_print_address
		PARAMS ((bfd_vma, struct disassemble_info *));

		/* Always true. */
		extern int generic_symbol_at_address
		PARAMS ((bfd_vma, struct disassemble_info *));

		/* Macro to initialize a disassemble_info struct. This should be called
		by all applications creating such a struct. */
		#define INIT_DISASSEMBLE_INFO(INFO, STREAM, FPRINTF_FUNC) \
		(INFO).flavour = bfd_target_unknown_flavour, \
		(INFO).arch = bfd_arch_unknown, \
		(INFO).mach = 0, \
		(INFO).endian = BFD_ENDIAN_UNKNOWN, \
		INIT_DISASSEMBLE_INFO_NO_ARCH(INFO, STREAM, FPRINTF_FUNC)

		/* Call this macro to initialize only the internal variables for the
		disassembler. Architecture dependent things such as byte order, or machine
		variant are not touched by this macro. This makes things much easier for
		GDB which must initialize these things seperatly. */

		#define INIT_DISASSEMBLE_INFO_NO_ARCH(INFO, STREAM, FPRINTF_FUNC) \
		(INFO).fprintf_func = (FPRINTF_FUNC), \
		(INFO).stream = (STREAM), \
		(INFO).symbols = NULL, \
		(INFO).num_symbols = 0, \
		(INFO).buffer = NULL, \
		(INFO).buffer_vma = 0, \
		(INFO).buffer_length = 0, \
		(INFO).read_memory_func = buffer_read_memory, \
		(INFO).memory_error_func = perror_memory, \
		(INFO).print_address_func = generic_print_address, \
		(INFO).symbol_at_address_func = generic_symbol_at_address, \
		(INFO).flags = 0, \
		(INFO).bytes_per_line = 0, \
		(INFO).bytes_per_chunk = 0, \
		(INFO).display_endian = BFD_ENDIAN_UNKNOWN, \
		(INFO).insn_info_valid = 0

		#endif /* ! defined (DIS_ASM_H) */

dis-buf.c

0 → 100644

+79 −0

Original line number	Diff line number	Diff line
		/* Disassemble from a buffer, for GNU.
		Copyright (C) 1993, 1994 Free Software Foundation, Inc.

		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. */

		#include "dis-asm.h"
		#include <errno.h>

		/* Get LENGTH bytes from info's buffer, at target address memaddr.
		Transfer them to myaddr. */
		int
		buffer_read_memory (memaddr, myaddr, length, info)
		bfd_vma memaddr;
		bfd_byte *myaddr;
		int length;
		struct disassemble_info *info;
		{
		if (memaddr < info->buffer_vma
		\|\| memaddr + length > info->buffer_vma + info->buffer_length)
		/* Out of bounds. Use EIO because GDB uses it. */
		return EIO;
		memcpy (myaddr, info->buffer + (memaddr - info->buffer_vma), length);
		return 0;
		}

		/* Print an error message. We can assume that this is in response to
		an error return from buffer_read_memory. */
		void
		perror_memory (status, memaddr, info)
		int status;
		bfd_vma memaddr;
		struct disassemble_info *info;
		{
		if (status != EIO)
		/* Can't happen. */
		(*info->fprintf_func) (info->stream, "Unknown error %d\n", status);
		else
		/* Actually, address between memaddr and memaddr + len was
		out of bounds. */
		(*info->fprintf_func) (info->stream,
		"Address 0x%x is out of bounds.\n", memaddr);
		}

		/* This could be in a separate file, to save miniscule amounts of space
		in statically linked executables. */

		/* Just print the address is hex. This is included for completeness even
		though both GDB and objdump provide their own (to print symbolic
		addresses). */

		void
		generic_print_address (addr, info)
		bfd_vma addr;
		struct disassemble_info *info;
		{
		(*info->fprintf_func) (info->stream, "0x%x", addr);
		}

		/* Just return the given address. */

		int
		generic_symbol_at_address (addr, info)
		bfd_vma addr;
		struct disassemble_info * info;
		{
		return 1;
		}

dyngen.c

+155 −55

Original line number	Diff line number	Diff line
		@@ -28,7 +28,7 @@
		#include "thunk.h"

		/* all dynamically generated functions begin with this code */
		#define OP_PREFIX "op"
		#define OP_PREFIX "op_"

		int elf_must_swap(Elf32_Ehdr *h)
		{
		@@ -201,7 +201,7 @@ int strstart(const char str, const char val, const char **ptr)
		/* generate op code */
		void gen_code(const char *name, unsigned long offset, unsigned long size,
		FILE outfile, uint8_t text, void *relocs, int nb_relocs, int reloc_sh_type,
		Elf32_Sym symtab, char strtab)
		Elf32_Sym symtab, char strtab, int gen_switch)
		{
		int copy_size = 0;
		uint8_t p_start, p_end;
		@@ -258,8 +258,6 @@ void gen_code(const char *name, unsigned long offset, unsigned long size,
		if (n >= MAX_ARGS)
		error("too many arguments in %s", name);
		args_present[n - 1] = 1;
		} else {
		fprintf(outfile, "extern char %s;\n", sym_name);
		}
		}
		}
		@@ -274,8 +272,6 @@ void gen_code(const char *name, unsigned long offset, unsigned long size,
		if (n >= MAX_ARGS)
		error("too many arguments in %s", name);
		args_present[n - 1] = 1;
		} else {
		fprintf(outfile, "extern char %s;\n", sym_name);
		}
		}
		}
		@@ -289,21 +285,47 @@ void gen_code(const char *name, unsigned long offset, unsigned long size,
		error("inconsistent argument numbering in %s", name);
		}

		if (gen_switch) {

		/* output C code */
		fprintf(outfile, "extern void %s();\n", name);
		fprintf(outfile, "static inline void gen_%s(", name);
		if (nb_args == 0) {
		fprintf(outfile, "void");
		} else {
		fprintf(outfile, "case INDEX_%s: {\n", name);
		if (nb_args > 0) {
		fprintf(outfile, " long ");
		for(i = 0; i < nb_args; i++) {
		if (i != 0)
		fprintf(outfile, ", ");
		fprintf(outfile, "long param%d", i + 1);
		fprintf(outfile, "param%d", i + 1);
		}
		fprintf(outfile, ";\n");
		}
		fprintf(outfile, ")\n");
		fprintf(outfile, "{\n");
		fprintf(outfile, " extern void %s();\n", name);

		if (reloc_sh_type == SHT_REL) {
		Elf32_Rel *rel;
		for(i = 0, rel = relocs;i < nb_relocs; i++, rel++) {
		if (rel->r_offset >= offset && rel->r_offset < offset + copy_size) {
		sym_name = strtab + symtab[ELF32_R_SYM(rel->r_info)].st_name;
		if (!strstart(sym_name, "__op_param", &p)) {
		fprintf(outfile, "extern char %s;\n", sym_name);
		}
		}
		}
		} else {
		Elf32_Rela *rel;
		for(i = 0, rel = relocs;i < nb_relocs; i++, rel++) {
		if (rel->r_offset >= offset && rel->r_offset < offset + copy_size) {
		sym_name = strtab + symtab[ELF32_R_SYM(rel->r_info)].st_name;
		if (!strstart(sym_name, "__op_param", &p)) {
		fprintf(outfile, "extern char %s;\n", sym_name);
		}
		}
		}
		}

		fprintf(outfile, " memcpy(gen_code_ptr, &%s, %d);\n", name, copy_size);
		for(i = 0; i < nb_args; i++) {
		fprintf(outfile, " param%d = *opparam_ptr++;\n", i + 1);
		}

		/* patch relocations */
		switch(e_machine) {
		@@ -342,14 +364,32 @@ void gen_code(const char *name, unsigned long offset, unsigned long size,
		default:
		error("unsupported CPU for relocations (%d)", e_machine);
		}


		fprintf(outfile, " gen_code_ptr += %d;\n", copy_size);
		fprintf(outfile, "}\n");
		fprintf(outfile, "break;\n\n");
		} else {
		fprintf(outfile, "static inline void gen_%s(", name);
		if (nb_args == 0) {
		fprintf(outfile, "void");
		} else {
		for(i = 0; i < nb_args; i++) {
		if (i != 0)
		fprintf(outfile, ", ");
		fprintf(outfile, "long param%d", i + 1);
		}
		}
		fprintf(outfile, ")\n");
		fprintf(outfile, "{\n");
		for(i = 0; i < nb_args; i++) {
		fprintf(outfile, " *gen_opparam_ptr++ = param%d;\n", i + 1);
		}
		fprintf(outfile, " *gen_opc_ptr++ = INDEX_%s;\n", name);
		fprintf(outfile, "}\n\n");
		}
		}

		/* load an elf object file */
		int load_elf(const char filename, FILE outfile)
		int load_elf(const char filename, FILE outfile, int do_print_enum)
		{
		int fd;
		Elf32_Ehdr ehdr;
		@@ -476,15 +516,35 @@ int load_elf(const char filename, FILE outfile)
		error("unsupported CPU (e_machine=%d)", e_machine);
		}

		fprintf(outfile, "#include \"gen-%s.h\"\n\n", cpu_name);
		if (do_print_enum) {
		fprintf(outfile, "DEF(end)\n");
		for(i = 0, sym = symtab; i < nb_syms; i++, sym++) {
		const char name, p;
		name = strtab + sym->st_name;
		if (strstart(name, OP_PREFIX, &p)) {
		fprintf(outfile, "DEF(%s)\n", p);
		}
		}
		} else {
		/* generate big code generation switch */
		fprintf(outfile,
		"int dyngen_code(uint8_t *gen_code_buf,\n"
		" const uint16_t opc_buf, const uint32_t opparam_buf)\n"
		"{\n"
		" uint8_t *gen_code_ptr;\n"
		" const uint16_t *opc_ptr;\n"
		" const uint32_t *opparam_ptr;\n"
		" gen_code_ptr = gen_code_buf;\n"
		" opc_ptr = opc_buf;\n"
		" opparam_ptr = opparam_buf;\n"
		" for(;;) {\n"
		" switch(*opc_ptr++) {\n"
		);

		for(i = 0, sym = symtab; i < nb_syms; i++, sym++) {
		const char *name;
		name = strtab + sym->st_name;
		if (strstart(name, "op_", NULL) \|\|
		strstart(name, "op1_", NULL) \|\|
		strstart(name, "op2_", NULL) \|\|
		strstart(name, "op3_", NULL)) {
		if (strstart(name, OP_PREFIX, NULL)) {
		#if 0
		printf("%4d: %s pos=0x%08x len=%d\n",
		i, name, sym->st_value, sym->st_size);
		@@ -492,7 +552,41 @@ int load_elf(const char filename, FILE outfile)
		if (sym->st_shndx != (text_sec - shdr))
		error("invalid section for opcode (0x%x)", sym->st_shndx);
		gen_code(name, sym->st_value, sym->st_size, outfile,
		text, relocs, nb_relocs, reloc_sh_type, symtab, strtab);
		text, relocs, nb_relocs, reloc_sh_type, symtab, strtab, 1);
		}
		}

		fprintf(outfile,
		" default:\n"
		" goto the_end;\n"
		" }\n"
		" }\n"
		" the_end:\n"
		);

		/* generate a return */
		switch(e_machine) {
		case EM_386:
		fprintf(outfile, "gen_code_ptr++ = 0xc3; / ret */\n");
		break;
		default:
		error("no return generation for cpu '%s'", cpu_name);
		}

		fprintf(outfile, "return gen_code_ptr - gen_code_buf;\n");
		fprintf(outfile, "}\n\n");

		/* generate gen_xxx functions */
		/* XXX: suppress the use of these functions to simplify code */
		for(i = 0, sym = symtab; i < nb_syms; i++, sym++) {
		const char *name;
		name = strtab + sym->st_name;
		if (strstart(name, OP_PREFIX, NULL)) {
		if (sym->st_shndx != (text_sec - shdr))
		error("invalid section for opcode (0x%x)", sym->st_shndx);
		gen_code(name, sym->st_value, sym->st_size, outfile,
		text, relocs, nb_relocs, reloc_sh_type, symtab, strtab, 0);
		}
		}
		}

		@@ -503,20 +597,23 @@ int load_elf(const char filename, FILE outfile)
		void usage(void)
		{
		printf("dyngen (c) 2003 Fabrice Bellard\n"
		"usage: dyngen [-o outfile] objfile\n"
		"Generate a dynamic code generator from an object file\n");
		"usage: dyngen [-o outfile] [-c] objfile\n"
		"Generate a dynamic code generator from an object file\n"
		"-c output enum of operations\n"
		);
		exit(1);
		}

		int main(int argc, char **argv)
		{
		int c;
		int c, do_print_enum;
		const char filename, outfilename;
		FILE *outfile;

		outfilename = "out.c";
		do_print_enum = 0;
		for(;;) {
		c = getopt(argc, argv, "ho:");
		c = getopt(argc, argv, "ho:c");
		if (c == -1)
		break;
		switch(c) {
		@@ -526,6 +623,9 @@ int main(int argc, char **argv)
		case 'o':
		outfilename = optarg;
		break;
		case 'c':
		do_print_enum = 1;
		break;
		}
		}
		if (optind >= argc)
		@@ -534,7 +634,7 @@ int main(int argc, char **argv)
		outfile = fopen(outfilename, "w");
		if (!outfile)
		error("could not open '%s'", outfilename);
		load_elf(filename, outfile);
		load_elf(filename, outfile, do_print_enum);
		fclose(outfile);
		return 0;
		}