head 1.1; branch 1.1.1; access; symbols netbsd-11-0-RC4:1.1.1.1 netbsd-11-0-RC3:1.1.1.1 gdb-17-1:1.1.1.1 netbsd-11-0-RC2:1.1.1.1 netbsd-11-0-RC1:1.1.1.1 gdb-16-3:1.1.1.1 perseant-exfatfs-base-20250801:1.1.1.1 netbsd-11:1.1.1.1.0.44 netbsd-11-base:1.1.1.1 netbsd-10-1-RELEASE:1.1.1.1 gdb-15-1:1.1.1.1 perseant-exfatfs-base-20240630:1.1.1.1 perseant-exfatfs:1.1.1.1.0.42 perseant-exfatfs-base:1.1.1.1 netbsd-8-3-RELEASE:1.1.1.1 netbsd-9-4-RELEASE:1.1.1.1 netbsd-10-0-RELEASE:1.1.1.1 netbsd-10-0-RC6:1.1.1.1 netbsd-10-0-RC5:1.1.1.1 netbsd-10-0-RC4:1.1.1.1 netbsd-10-0-RC3:1.1.1.1 netbsd-10-0-RC2:1.1.1.1 netbsd-10-0-RC1:1.1.1.1 gdb-13-2:1.1.1.1 netbsd-10:1.1.1.1.0.40 netbsd-10-base:1.1.1.1 netbsd-9-3-RELEASE:1.1.1.1 cjep_sun2x-base1:1.1.1.1 cjep_sun2x:1.1.1.1.0.38 cjep_sun2x-base:1.1.1.1 cjep_staticlib_x-base1:1.1.1.1 netbsd-9-2-RELEASE:1.1.1.1 cjep_staticlib_x:1.1.1.1.0.36 cjep_staticlib_x-base:1.1.1.1 netbsd-9-1-RELEASE:1.1.1.1 GDB-11-0-50-20200914-git:1.1.1.1 phil-wifi-20200421:1.1.1.1 phil-wifi-20200411:1.1.1.1 is-mlppp:1.1.1.1.0.34 is-mlppp-base:1.1.1.1 phil-wifi-20200406:1.1.1.1 netbsd-8-2-RELEASE:1.1.1.1 netbsd-9-0-RELEASE:1.1.1.1 netbsd-9-0-RC2:1.1.1.1 netbsd-9-0-RC1:1.1.1.1 phil-wifi-20191119:1.1.1.1 netbsd-9:1.1.1.1.0.32 netbsd-9-base:1.1.1.1 phil-wifi-20190609:1.1.1.1 netbsd-8-1-RELEASE:1.1.1.1 gdb-8-3:1.1.1.1 netbsd-8-1-RC1:1.1.1.1 pgoyette-compat-merge-20190127:1.1.1.1 pgoyette-compat-20190127:1.1.1.1 pgoyette-compat-20190118:1.1.1.1 pgoyette-compat-1226:1.1.1.1 pgoyette-compat-1126:1.1.1.1 pgoyette-compat-1020:1.1.1.1 pgoyette-compat-0930:1.1.1.1 pgoyette-compat-0906:1.1.1.1 netbsd-7-2-RELEASE:1.1.1.1 pgoyette-compat-0728:1.1.1.1 netbsd-8-0-RELEASE:1.1.1.1 phil-wifi:1.1.1.1.0.30 phil-wifi-base:1.1.1.1 pgoyette-compat-0625:1.1.1.1 netbsd-8-0-RC2:1.1.1.1 pgoyette-compat-0521:1.1.1.1 pgoyette-compat-0502:1.1.1.1 pgoyette-compat-0422:1.1.1.1 netbsd-8-0-RC1:1.1.1.1 pgoyette-compat-0415:1.1.1.1 pgoyette-compat-0407:1.1.1.1 pgoyette-compat-0330:1.1.1.1 pgoyette-compat-0322:1.1.1.1 pgoyette-compat-0315:1.1.1.1 netbsd-7-1-2-RELEASE:1.1.1.1 pgoyette-compat:1.1.1.1.0.28 pgoyette-compat-base:1.1.1.1 netbsd-7-1-1-RELEASE:1.1.1.1 gdb-8-0-1:1.1.1.1 matt-nb8-mediatek:1.1.1.1.0.26 matt-nb8-mediatek-base:1.1.1.1 perseant-stdc-iso10646:1.1.1.1.0.24 perseant-stdc-iso10646-base:1.1.1.1 netbsd-8:1.1.1.1.0.22 netbsd-8-base:1.1.1.1 prg-localcount2-base3:1.1.1.1 prg-localcount2-base2:1.1.1.1 prg-localcount2-base1:1.1.1.1 prg-localcount2:1.1.1.1.0.20 prg-localcount2-base:1.1.1.1 pgoyette-localcount-20170426:1.1.1.1 bouyer-socketcan-base1:1.1.1.1 pgoyette-localcount-20170320:1.1.1.1 netbsd-7-1:1.1.1.1.0.18 netbsd-7-1-RELEASE:1.1.1.1 netbsd-7-1-RC2:1.1.1.1 netbsd-7-nhusb-base-20170116:1.1.1.1 bouyer-socketcan:1.1.1.1.0.16 bouyer-socketcan-base:1.1.1.1 pgoyette-localcount-20170107:1.1.1.1 netbsd-7-1-RC1:1.1.1.1 pgoyette-localcount-20161104:1.1.1.1 netbsd-7-0-2-RELEASE:1.1.1.1 gdb-7-12:1.1.1.1 localcount-20160914:1.1.1.1 netbsd-7-nhusb:1.1.1.1.0.14 netbsd-7-nhusb-base:1.1.1.1 pgoyette-localcount-20160806:1.1.1.1 pgoyette-localcount-20160726:1.1.1.1 pgoyette-localcount:1.1.1.1.0.12 pgoyette-localcount-base:1.1.1.1 netbsd-7-0-1-RELEASE:1.1.1.1 gdb-7-10-1:1.1.1.1 netbsd-7-0:1.1.1.1.0.10 netbsd-7-0-RELEASE:1.1.1.1 gdb-7-9-1:1.1.1.1 netbsd-7-0-RC3:1.1.1.1 netbsd-7-0-RC2:1.1.1.1 netbsd-7-0-RC1:1.1.1.1 tls-maxphys-base:1.1.1.1 tls-maxphys:1.1.1.1.0.8 netbsd-7:1.1.1.1.0.6 netbsd-7-base:1.1.1.1 gdb-7-7-1:1.1.1.1 yamt-pagecache:1.1.1.1.0.4 yamt-pagecache-base9:1.1.1.1 tls-earlyentropy:1.1.1.1.0.2 tls-earlyentropy-base:1.1.1.1 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.1.1.1 riastradh-drm2-base3:1.1.1.1 gdb-7-6-1:1.1.1.1 FSF:1.1.1; locks; strict; comment @# @; 1.1 date 2013.10.03.15.44.24; author christos; state Exp; branches 1.1.1.1; next ; commitid m91IYDmHTME7wR7x; 1.1.1.1 date 2013.10.03.15.44.24; author christos; state Exp; branches 1.1.1.1.4.1 1.1.1.1.8.1; next ; commitid m91IYDmHTME7wR7x; 1.1.1.1.4.1 date 2013.10.03.15.44.24; author yamt; state dead; branches; next 1.1.1.1.4.2; commitid SRuOnF9k1i4dcyBx; 1.1.1.1.4.2 date 2014.05.22.16.00.32; author yamt; state Exp; branches; next ; commitid SRuOnF9k1i4dcyBx; 1.1.1.1.8.1 date 2013.10.03.15.44.24; author tls; state dead; branches; next 1.1.1.1.8.2; commitid jTnpym9Qu0o4R1Nx; 1.1.1.1.8.2 date 2014.08.19.23.58.39; author tls; state Exp; branches; next ; commitid jTnpym9Qu0o4R1Nx; desc @@ 1.1 log @Initial revision @ text @/* IP2K opcode support. -*- C -*- Copyright 2002, 2005, 2011 Free Software Foundation, Inc. Contributed by Red Hat Inc; This file is part of the GNU Binutils. 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ /* Each section is delimited with start and end markers. -opc.h additions use: "-- opc.h" -opc.c additions use: "-- opc.c" -asm.c additions use: "-- asm.c" -dis.c additions use: "-- dis.c" -ibd.h additions use: "-- ibd.h". */ /* -- opc.h */ /* Check applicability of instructions against machines. */ #define CGEN_VALIDATE_INSN_SUPPORTED /* Allows reason codes to be output when assembler errors occur. */ #define CGEN_VERBOSE_ASSEMBLER_ERRORS /* Override disassembly hashing - there are variable bits in the top byte of these instructions. */ #define CGEN_DIS_HASH_SIZE 8 #define CGEN_DIS_HASH(buf, value) \ (((* (unsigned char*) (buf)) >> 5) % CGEN_DIS_HASH_SIZE) #define CGEN_ASM_HASH_SIZE 127 #define CGEN_ASM_HASH(insn) ip2k_asm_hash (insn) extern unsigned int ip2k_asm_hash (const char *); extern int ip2k_cgen_insn_supported (CGEN_CPU_DESC, const CGEN_INSN *); /* -- opc.c */ #include "safe-ctype.h" /* A better hash function for instruction mnemonics. */ unsigned int ip2k_asm_hash (const char* insn) { unsigned int hash; const char* m = insn; for (hash = 0; *m && ! ISSPACE (*m); m++) hash = (hash * 23) ^ (0x1F & TOLOWER (*m)); /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */ return hash % CGEN_ASM_HASH_SIZE; } /* Special check to ensure that instruction exists for given machine. */ int ip2k_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn) { int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH); /* No mach attribute? Assume it's supported for all machs. */ if (machs == 0) return 1; return (machs & cd->machs) != 0; } /* -- asm.c */ static const char * parse_fr (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; const char *old_strp; char *afteroffset; enum cgen_parse_operand_result result_type; bfd_vma value; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; bfd_vma tempvalue; old_strp = *strp; afteroffset = NULL; /* Check here to see if you're about to try parsing a w as the first arg and return an error if you are. */ if ((strncmp (*strp, "w", 1) == 0) || (strncmp (*strp, "W", 1) == 0)) { (*strp)++; if ((strncmp (*strp, ",", 1) == 0) || ISSPACE (**strp)) { /* We've been passed a w. Return with an error message so that cgen will try the next parsing option. */ errmsg = _("W keyword invalid in FR operand slot."); return errmsg; } *strp = old_strp; } /* Attempt parse as register keyword. */ errmsg = cgen_parse_keyword (cd, strp, & ip2k_cgen_opval_register_names, (long *) valuep); if (*strp != NULL && errmsg == NULL) return errmsg; /* Attempt to parse for "(IP)". */ afteroffset = strstr (*strp, "(IP)"); if (afteroffset == NULL) /* Make sure it's not in lower case. */ afteroffset = strstr (*strp, "(ip)"); if (afteroffset != NULL) { if (afteroffset != *strp) { /* Invalid offset present. */ errmsg = _("offset(IP) is not a valid form"); return errmsg; } else { *strp += 4; *valuep = 0; errmsg = NULL; return errmsg; } } /* Attempt to parse for DP. ex: mov w, offset(DP) mov offset(DP),w */ /* Try parsing it as an address and see what comes back. */ afteroffset = strstr (*strp, "(DP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(dp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0100 | tempvalue; *strp += 4; /* Skip over the (DP) in *strp. */ return errmsg; } else { /* Found something there in front of (DP) but it's out of range. */ errmsg = _("(DP) offset out of range."); return errmsg; } } } /* Attempt to parse for SP. ex: mov w, offset(SP) mov offset(SP), w. */ afteroffset = strstr (*strp, "(SP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(sp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0180 | tempvalue; *strp += 4; /* Skip over the (SP) in *strp. */ return errmsg; } else { /* Found something there in front of (SP) but it's out of range. */ errmsg = _("(SP) offset out of range."); return errmsg; } } } /* Attempt to parse as an address. */ *strp = old_strp; errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR9, & result_type, & value); if (errmsg == NULL) { *valuep = value; /* If a parenthesis is found, warn about invalid form. */ if (**strp == '(') errmsg = _("illegal use of parentheses"); /* If a numeric value is specified, ensure that it is between 1 and 255. */ else if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if (value < 0x1 || value > 0xff) errmsg = _("operand out of range (not between 1 and 255)"); } } return errmsg; } static const char * parse_addr16 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16H) code = BFD_RELOC_IP2K_HI8DATA; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16L) code = BFD_RELOC_IP2K_LO8DATA; else { /* Something is very wrong. opindex has to be one of the above. */ errmsg = _("parse_addr16: invalid opindex."); return errmsg; } errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { /* We either have a relocation or a number now. */ if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { /* We got a number back. */ if (code == BFD_RELOC_IP2K_HI8DATA) value >>= 8; else /* code = BFD_RELOC_IP2K_LOW8DATA. */ value &= 0x00FF; } *valuep = value; } return errmsg; } static const char * parse_addr16_cjp (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) code = BFD_RELOC_IP2K_ADDR16CJP; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) code = BFD_RELOC_IP2K_PAGE3; errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if ((value & 0x1) == 0) /* If the address is even .... */ { if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) *valuep = (value >> 1) & 0x1FFF; /* Should mask be 1FFF? */ else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) *valuep = (value >> 14) & 0x7; } else errmsg = _("Byte address required. - must be even."); } else if (result_type == CGEN_PARSE_OPERAND_RESULT_QUEUED) { /* This will happen for things like (s2-s1) where s2 and s1 are labels. */ *valuep = value; } else errmsg = _("cgen_parse_address returned a symbol. Literal required."); } return errmsg; } static const char * parse_lit8 (CGEN_CPU_DESC cd, const char **strp, int opindex, long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; /* Parse %OP relocating operators. */ if (strncmp (*strp, "%bank", 5) == 0) { *strp += 5; code = BFD_RELOC_IP2K_BANK; } else if (strncmp (*strp, "%lo8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8DATA; } else if (strncmp (*strp, "%hi8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8DATA; } else if (strncmp (*strp, "%ex8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_EX8DATA; } else if (strncmp (*strp, "%lo8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8INSN; } else if (strncmp (*strp, "%hi8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8INSN; } /* Parse %op operand. */ if (code != BFD_RELOC_NONE) { errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if ((errmsg == NULL) && (result_type != CGEN_PARSE_OPERAND_RESULT_QUEUED)) errmsg = _("percent-operator operand is not a symbol"); *valuep = value; } /* Parse as a number. */ else { errmsg = cgen_parse_signed_integer (cd, strp, opindex, valuep); /* Truncate to eight bits to accept both signed and unsigned input. */ if (errmsg == NULL) *valuep &= 0xFF; } return errmsg; } static const char * parse_bit3 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; char mode = 0; long count = 0; unsigned long value; if (strncmp (*strp, "%bit", 4) == 0) { *strp += 4; mode = 1; } else if (strncmp (*strp, "%msbbit", 7) == 0) { *strp += 7; mode = 1; } else if (strncmp (*strp, "%lsbbit", 7) == 0) { *strp += 7; mode = 2; } errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep); if (errmsg) return errmsg; if (mode) { value = * valuep; if (value == 0) { errmsg = _("Attempt to find bit index of 0"); return errmsg; } if (mode == 1) { count = 31; while ((value & 0x80000000) == 0) { count--; value <<= 1; } } else if (mode == 2) { count = 0; while ((value & 0x00000001) == 0) { count++; value >>= 1; } } *valuep = count; } return errmsg; } /* -- dis.c */ static void print_fr (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; const CGEN_KEYWORD_ENTRY *ke; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; long offsettest; long offsetvalue; if (value == 0) /* This is (IP). */ { (*info->fprintf_func) (info->stream, "%s", "(IP)"); return; } offsettest = value >> 7; offsetvalue = value & 0x7F; /* Check to see if first two bits are 10 -> (DP). */ if (offsettest == 2) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s","(DP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue, "(DP)"); return; } /* Check to see if first two bits are 11 -> (SP). */ if (offsettest == 3) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s", "(SP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue,"(SP)"); return; } /* Attempt to print as a register keyword. */ ke = cgen_keyword_lookup_value (& ip2k_cgen_opval_register_names, value); if (ke != NULL) (*info->fprintf_func) (info->stream, "%s", ke->name); else /* Print as an address literal. */ (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%lx", value); } static void print_dollarhex8 (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex_addr16h (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; /* This is a loadh instruction. Shift the value to the left by 8 bits so that disassembled code will reassemble properly. */ value = ((value << 8) & 0xFF00); (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_addr16l (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_p (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 14) & 0x1C000); ;value = (value & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_dollarhex_cj (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 1) & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_decimal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "%ld", value); } /* -- */ @ 1.1.1.1 log @Import gdb 7.6.1 News from: http://sourceware.org/gdb/news: August 30th, 2013: GDB 7.6.1 Released! The latest version of GDB, version 7.6.1, is available for download. This is a minor corrective release over GDB 7.6, fixing the following issues: PR tdep/15420 (Cannot debug threaded programs on newer versions of x86-solaris - Solaris 10, Update 10 or later) PR remote/15455 (QTro remote packet broken) PR build/15476 (Build failure due to incomplete enum type in utils.h) PR server/15594 (tls support in 64x32 x86 gdbserver doesn't extend address to 64 bit) PR server/15075 (dprintf inteferes with "next") PR server/15434 (dprintf uses a synchronous 'continue' even in non-stop mode) PR tui/14880 (In split register layouts, up results in assertion failure in value.c) PR c++/15519 (GDB 7.6 is 94x slower than GDB 7.5.1 using a certain core file) PR gdb/15837 (GDB prints entry values for local variables) PR gdb/15415 (gdb resolves symbolic links when passing argv[0]) PR cli/15603 (CTRL-C can no longer interrupt inferior) PR gdb/15604 (gdbserver socket leak 7.5 regression) April 26th, 2013: GDB 7.6 Released! The latest version of GDB, version 7.6, is available for download. Changes in this release include: New native configurations (ARM AArch64 GNU/Linux, FreeBSD/powerpc, 86_64/Cygwin and Tilera TILE-Gx GNU/Linux) New target configurations (ARM AArch64, ARM AArch64 GNU/Linux, Lynx 178 PowerPC, x86_64/Cygwin, and Tilera TILE-Gx GNU/Linux) Support for the "mini debuginfo" section, .gnu_debugdata The C++ ABI now defaults to the GNU v3 ABI More Python scripting improvements Some GDB/MI improvements New configure options, new commands, and options New remote packets A new "target record-btrace" has been added while the "target record" command has been renamed to "target record-full" See the NEWS file for a more complete and detailed list of what this release includes. March 12th, 2013: GDB 7.6 branch created The GDB 7.6 branch (gdb_7_6-branch) has been created. To check out a copy of the branch use: cvs -d :pserver:anoncvs@@sourceware.org:/cvs/src co -r gdb_7_6-branch gdb November 29th, 2012: GDB 7.5.1 Released! The latest version of GDB, version 7.5.1, is available for download. This is a minor corrective release over GDB 7.5, fixing the following issues: An "Attempt to dereference a generic pointer" errors (-var-create). Backtrace problems on x32 (PR backtrace/14646). next/step/finish problems on x32 (PR gdb/14647). A "malformed linespec error: unexpected keyword, [...]" error (PR breakpoints/14643). GDB crash while stepping through powerpc (32bits) code. A failed assertion in linux_ptrace_test_ret_to_nx. A "!frame_id_inlined_p (frame_id)" failed assertion. A "No more reverse-execution history." error during reverse "next" execution (PR 14548). Incomplete command descriptions in "apropos" output. PR gdb/14494 (a GDB crash difficult to characterize). Various build warnings. August 17th, 2012: GDB 7.5 Released! The latest version of GDB, version 7.5, is available for download. Changes in this release include: Go language support. New targets (x32 ABI, microMIPS, Renesas RL78, HP OpenVMS ia64). More Python scripting improvements. SDT (Static Defined Tracing) probes support with SystemTap probes. GDBserver improvements (stdio connections, target-side evaluation of breakpoint conditions, remote protocol improvements). Other miscellaneous improvements (ability to stop when a shared library is loaded/unloaded, dynamic printf, etc). Reverse debugging on ARM. The binary "gdbtui" has been abandoned and can no longer be built. Use "gdb -tui" instead. See the NEWS file for a more complete and detailed list of what this release includes. July 17th, 2012: GDB 7.5 branch created The GDB 7.5 branch (gdb_7_5-branch) has been created. To check out a copy of the branch use: cvs -d :pserver:anoncvs@@sourceware.org:/cvs/src co -r gdb_7_5-branch gdb April 26th, 2012: GDB 7.4.1 Released! The latest version of GDB, version 7.4.1, is available for download. This is a minor corrective release over GDB 7.4, fixing the following issues: [GDB/MI] Error when resuming program execution in all-stop mode ("Cannot execute this command without a live selected thread"). [Pascal] Polluted display of class methods parameters. [target remote] Errror when connecting to remote target where disconnected tracing is in effect. [AVX] Float and ymm* register values not available. [GDB] Crash when using the "finish" command. [build] makeinfo should not be required to build GDB. January 24th, 2012: GDB 7.4 Released! The latest version of GDB, version 7.4, is available for download. Changes in this release include: Many Python scripting improvements Better support for ambiguous linespecs Masked watchpoints Tracepoint support improvements Support for Texas Instruments TMS320C6x (tic6x-*-*) A Renesas RL78 simulator (rl78-*-elf) Some minor Remote protocol extensions and GDB/MI changes See the NEWS file for a more complete and detailed list of what this release includes. Note that the gdbtui binary is deprecated, starting with GDB 7.5. Use "gdb -tui" instead. January 9, 2012: Extensibility support using Guile GDB ought to support extensibility using Guile, the GNU extensibility package (an implementation of Scheme). We are looking for people to write the code to interface the two. Please write to gdb-patches AT sourceware DOT org if you are interested. December 13, 2011: GDB 7.4 branch created The GDB 7.4 branch (gdb_7_4-branch) has been created. To check out a copy of the branch use: cvs -d :pserver:anoncvs@@sourceware.org:/cvs/src co -r gdb_7_4-branch gdb September 30, 2011: Release Mistakes in GDB Versions 6.0 - 7.3 A mistake has been detected in the release tar files for all GDB releases from version 6.0 to version 7.3 (included). The mistake has been corrected, and the FSF issued the following announcements: Making up for a release mistake in GDB versions 6.0 - 6.6 Making up for a release mistake in GDB versions 6.7 - 7.3 @ text @@ 1.1.1.1.8.1 log @file ip2k.opc was added on branch tls-maxphys on 2014-08-19 23:58:39 +0000 @ text @d1 633 @ 1.1.1.1.8.2 log @Rebase to HEAD as of a few days ago. @ text @a0 633 /* IP2K opcode support. -*- C -*- Copyright 2002, 2005, 2011 Free Software Foundation, Inc. Contributed by Red Hat Inc; This file is part of the GNU Binutils. 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ /* Each section is delimited with start and end markers. -opc.h additions use: "-- opc.h" -opc.c additions use: "-- opc.c" -asm.c additions use: "-- asm.c" -dis.c additions use: "-- dis.c" -ibd.h additions use: "-- ibd.h". */ /* -- opc.h */ /* Check applicability of instructions against machines. */ #define CGEN_VALIDATE_INSN_SUPPORTED /* Allows reason codes to be output when assembler errors occur. */ #define CGEN_VERBOSE_ASSEMBLER_ERRORS /* Override disassembly hashing - there are variable bits in the top byte of these instructions. */ #define CGEN_DIS_HASH_SIZE 8 #define CGEN_DIS_HASH(buf, value) \ (((* (unsigned char*) (buf)) >> 5) % CGEN_DIS_HASH_SIZE) #define CGEN_ASM_HASH_SIZE 127 #define CGEN_ASM_HASH(insn) ip2k_asm_hash (insn) extern unsigned int ip2k_asm_hash (const char *); extern int ip2k_cgen_insn_supported (CGEN_CPU_DESC, const CGEN_INSN *); /* -- opc.c */ #include "safe-ctype.h" /* A better hash function for instruction mnemonics. */ unsigned int ip2k_asm_hash (const char* insn) { unsigned int hash; const char* m = insn; for (hash = 0; *m && ! ISSPACE (*m); m++) hash = (hash * 23) ^ (0x1F & TOLOWER (*m)); /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */ return hash % CGEN_ASM_HASH_SIZE; } /* Special check to ensure that instruction exists for given machine. */ int ip2k_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn) { int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH); /* No mach attribute? Assume it's supported for all machs. */ if (machs == 0) return 1; return (machs & cd->machs) != 0; } /* -- asm.c */ static const char * parse_fr (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; const char *old_strp; char *afteroffset; enum cgen_parse_operand_result result_type; bfd_vma value; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; bfd_vma tempvalue; old_strp = *strp; afteroffset = NULL; /* Check here to see if you're about to try parsing a w as the first arg and return an error if you are. */ if ((strncmp (*strp, "w", 1) == 0) || (strncmp (*strp, "W", 1) == 0)) { (*strp)++; if ((strncmp (*strp, ",", 1) == 0) || ISSPACE (**strp)) { /* We've been passed a w. Return with an error message so that cgen will try the next parsing option. */ errmsg = _("W keyword invalid in FR operand slot."); return errmsg; } *strp = old_strp; } /* Attempt parse as register keyword. */ errmsg = cgen_parse_keyword (cd, strp, & ip2k_cgen_opval_register_names, (long *) valuep); if (*strp != NULL && errmsg == NULL) return errmsg; /* Attempt to parse for "(IP)". */ afteroffset = strstr (*strp, "(IP)"); if (afteroffset == NULL) /* Make sure it's not in lower case. */ afteroffset = strstr (*strp, "(ip)"); if (afteroffset != NULL) { if (afteroffset != *strp) { /* Invalid offset present. */ errmsg = _("offset(IP) is not a valid form"); return errmsg; } else { *strp += 4; *valuep = 0; errmsg = NULL; return errmsg; } } /* Attempt to parse for DP. ex: mov w, offset(DP) mov offset(DP),w */ /* Try parsing it as an address and see what comes back. */ afteroffset = strstr (*strp, "(DP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(dp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0100 | tempvalue; *strp += 4; /* Skip over the (DP) in *strp. */ return errmsg; } else { /* Found something there in front of (DP) but it's out of range. */ errmsg = _("(DP) offset out of range."); return errmsg; } } } /* Attempt to parse for SP. ex: mov w, offset(SP) mov offset(SP), w. */ afteroffset = strstr (*strp, "(SP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(sp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0180 | tempvalue; *strp += 4; /* Skip over the (SP) in *strp. */ return errmsg; } else { /* Found something there in front of (SP) but it's out of range. */ errmsg = _("(SP) offset out of range."); return errmsg; } } } /* Attempt to parse as an address. */ *strp = old_strp; errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR9, & result_type, & value); if (errmsg == NULL) { *valuep = value; /* If a parenthesis is found, warn about invalid form. */ if (**strp == '(') errmsg = _("illegal use of parentheses"); /* If a numeric value is specified, ensure that it is between 1 and 255. */ else if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if (value < 0x1 || value > 0xff) errmsg = _("operand out of range (not between 1 and 255)"); } } return errmsg; } static const char * parse_addr16 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16H) code = BFD_RELOC_IP2K_HI8DATA; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16L) code = BFD_RELOC_IP2K_LO8DATA; else { /* Something is very wrong. opindex has to be one of the above. */ errmsg = _("parse_addr16: invalid opindex."); return errmsg; } errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { /* We either have a relocation or a number now. */ if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { /* We got a number back. */ if (code == BFD_RELOC_IP2K_HI8DATA) value >>= 8; else /* code = BFD_RELOC_IP2K_LOW8DATA. */ value &= 0x00FF; } *valuep = value; } return errmsg; } static const char * parse_addr16_cjp (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) code = BFD_RELOC_IP2K_ADDR16CJP; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) code = BFD_RELOC_IP2K_PAGE3; errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if ((value & 0x1) == 0) /* If the address is even .... */ { if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) *valuep = (value >> 1) & 0x1FFF; /* Should mask be 1FFF? */ else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) *valuep = (value >> 14) & 0x7; } else errmsg = _("Byte address required. - must be even."); } else if (result_type == CGEN_PARSE_OPERAND_RESULT_QUEUED) { /* This will happen for things like (s2-s1) where s2 and s1 are labels. */ *valuep = value; } else errmsg = _("cgen_parse_address returned a symbol. Literal required."); } return errmsg; } static const char * parse_lit8 (CGEN_CPU_DESC cd, const char **strp, int opindex, long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; /* Parse %OP relocating operators. */ if (strncmp (*strp, "%bank", 5) == 0) { *strp += 5; code = BFD_RELOC_IP2K_BANK; } else if (strncmp (*strp, "%lo8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8DATA; } else if (strncmp (*strp, "%hi8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8DATA; } else if (strncmp (*strp, "%ex8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_EX8DATA; } else if (strncmp (*strp, "%lo8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8INSN; } else if (strncmp (*strp, "%hi8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8INSN; } /* Parse %op operand. */ if (code != BFD_RELOC_NONE) { errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if ((errmsg == NULL) && (result_type != CGEN_PARSE_OPERAND_RESULT_QUEUED)) errmsg = _("percent-operator operand is not a symbol"); *valuep = value; } /* Parse as a number. */ else { errmsg = cgen_parse_signed_integer (cd, strp, opindex, valuep); /* Truncate to eight bits to accept both signed and unsigned input. */ if (errmsg == NULL) *valuep &= 0xFF; } return errmsg; } static const char * parse_bit3 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; char mode = 0; long count = 0; unsigned long value; if (strncmp (*strp, "%bit", 4) == 0) { *strp += 4; mode = 1; } else if (strncmp (*strp, "%msbbit", 7) == 0) { *strp += 7; mode = 1; } else if (strncmp (*strp, "%lsbbit", 7) == 0) { *strp += 7; mode = 2; } errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep); if (errmsg) return errmsg; if (mode) { value = * valuep; if (value == 0) { errmsg = _("Attempt to find bit index of 0"); return errmsg; } if (mode == 1) { count = 31; while ((value & 0x80000000) == 0) { count--; value <<= 1; } } else if (mode == 2) { count = 0; while ((value & 0x00000001) == 0) { count++; value >>= 1; } } *valuep = count; } return errmsg; } /* -- dis.c */ static void print_fr (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; const CGEN_KEYWORD_ENTRY *ke; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; long offsettest; long offsetvalue; if (value == 0) /* This is (IP). */ { (*info->fprintf_func) (info->stream, "%s", "(IP)"); return; } offsettest = value >> 7; offsetvalue = value & 0x7F; /* Check to see if first two bits are 10 -> (DP). */ if (offsettest == 2) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s","(DP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue, "(DP)"); return; } /* Check to see if first two bits are 11 -> (SP). */ if (offsettest == 3) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s", "(SP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue,"(SP)"); return; } /* Attempt to print as a register keyword. */ ke = cgen_keyword_lookup_value (& ip2k_cgen_opval_register_names, value); if (ke != NULL) (*info->fprintf_func) (info->stream, "%s", ke->name); else /* Print as an address literal. */ (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%lx", value); } static void print_dollarhex8 (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex_addr16h (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; /* This is a loadh instruction. Shift the value to the left by 8 bits so that disassembled code will reassemble properly. */ value = ((value << 8) & 0xFF00); (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_addr16l (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_p (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 14) & 0x1C000); ;value = (value & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_dollarhex_cj (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 1) & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_decimal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "%ld", value); } /* -- */ @ 1.1.1.1.4.1 log @file ip2k.opc was added on branch yamt-pagecache on 2014-05-22 16:00:32 +0000 @ text @d1 633 @ 1.1.1.1.4.2 log @sync with head. for a reference, the tree before this commit was tagged as yamt-pagecache-tag8. this commit was splitted into small chunks to avoid a limitation of cvs. ("Protocol error: too many arguments") @ text @a0 633 /* IP2K opcode support. -*- C -*- Copyright 2002, 2005, 2011 Free Software Foundation, Inc. Contributed by Red Hat Inc; This file is part of the GNU Binutils. 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 3 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */ /* Each section is delimited with start and end markers. -opc.h additions use: "-- opc.h" -opc.c additions use: "-- opc.c" -asm.c additions use: "-- asm.c" -dis.c additions use: "-- dis.c" -ibd.h additions use: "-- ibd.h". */ /* -- opc.h */ /* Check applicability of instructions against machines. */ #define CGEN_VALIDATE_INSN_SUPPORTED /* Allows reason codes to be output when assembler errors occur. */ #define CGEN_VERBOSE_ASSEMBLER_ERRORS /* Override disassembly hashing - there are variable bits in the top byte of these instructions. */ #define CGEN_DIS_HASH_SIZE 8 #define CGEN_DIS_HASH(buf, value) \ (((* (unsigned char*) (buf)) >> 5) % CGEN_DIS_HASH_SIZE) #define CGEN_ASM_HASH_SIZE 127 #define CGEN_ASM_HASH(insn) ip2k_asm_hash (insn) extern unsigned int ip2k_asm_hash (const char *); extern int ip2k_cgen_insn_supported (CGEN_CPU_DESC, const CGEN_INSN *); /* -- opc.c */ #include "safe-ctype.h" /* A better hash function for instruction mnemonics. */ unsigned int ip2k_asm_hash (const char* insn) { unsigned int hash; const char* m = insn; for (hash = 0; *m && ! ISSPACE (*m); m++) hash = (hash * 23) ^ (0x1F & TOLOWER (*m)); /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */ return hash % CGEN_ASM_HASH_SIZE; } /* Special check to ensure that instruction exists for given machine. */ int ip2k_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn) { int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH); /* No mach attribute? Assume it's supported for all machs. */ if (machs == 0) return 1; return (machs & cd->machs) != 0; } /* -- asm.c */ static const char * parse_fr (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; const char *old_strp; char *afteroffset; enum cgen_parse_operand_result result_type; bfd_vma value; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; bfd_vma tempvalue; old_strp = *strp; afteroffset = NULL; /* Check here to see if you're about to try parsing a w as the first arg and return an error if you are. */ if ((strncmp (*strp, "w", 1) == 0) || (strncmp (*strp, "W", 1) == 0)) { (*strp)++; if ((strncmp (*strp, ",", 1) == 0) || ISSPACE (**strp)) { /* We've been passed a w. Return with an error message so that cgen will try the next parsing option. */ errmsg = _("W keyword invalid in FR operand slot."); return errmsg; } *strp = old_strp; } /* Attempt parse as register keyword. */ errmsg = cgen_parse_keyword (cd, strp, & ip2k_cgen_opval_register_names, (long *) valuep); if (*strp != NULL && errmsg == NULL) return errmsg; /* Attempt to parse for "(IP)". */ afteroffset = strstr (*strp, "(IP)"); if (afteroffset == NULL) /* Make sure it's not in lower case. */ afteroffset = strstr (*strp, "(ip)"); if (afteroffset != NULL) { if (afteroffset != *strp) { /* Invalid offset present. */ errmsg = _("offset(IP) is not a valid form"); return errmsg; } else { *strp += 4; *valuep = 0; errmsg = NULL; return errmsg; } } /* Attempt to parse for DP. ex: mov w, offset(DP) mov offset(DP),w */ /* Try parsing it as an address and see what comes back. */ afteroffset = strstr (*strp, "(DP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(dp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0100 | tempvalue; *strp += 4; /* Skip over the (DP) in *strp. */ return errmsg; } else { /* Found something there in front of (DP) but it's out of range. */ errmsg = _("(DP) offset out of range."); return errmsg; } } } /* Attempt to parse for SP. ex: mov w, offset(SP) mov offset(SP), w. */ afteroffset = strstr (*strp, "(SP)"); if (afteroffset == NULL) /* Maybe it's in lower case. */ afteroffset = strstr (*strp, "(sp)"); if (afteroffset != NULL) { if (afteroffset == *strp) { /* No offset present. Use 0 by default. */ tempvalue = 0; errmsg = NULL; } else errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR_OFFSET, & result_type, & tempvalue); if (errmsg == NULL) { if (tempvalue <= 127) { /* Value is ok. Fix up the first 2 bits and return. */ *valuep = 0x0180 | tempvalue; *strp += 4; /* Skip over the (SP) in *strp. */ return errmsg; } else { /* Found something there in front of (SP) but it's out of range. */ errmsg = _("(SP) offset out of range."); return errmsg; } } } /* Attempt to parse as an address. */ *strp = old_strp; errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_IP2K_FR9, & result_type, & value); if (errmsg == NULL) { *valuep = value; /* If a parenthesis is found, warn about invalid form. */ if (**strp == '(') errmsg = _("illegal use of parentheses"); /* If a numeric value is specified, ensure that it is between 1 and 255. */ else if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if (value < 0x1 || value > 0xff) errmsg = _("operand out of range (not between 1 and 255)"); } } return errmsg; } static const char * parse_addr16 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16H) code = BFD_RELOC_IP2K_HI8DATA; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16L) code = BFD_RELOC_IP2K_LO8DATA; else { /* Something is very wrong. opindex has to be one of the above. */ errmsg = _("parse_addr16: invalid opindex."); return errmsg; } errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { /* We either have a relocation or a number now. */ if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { /* We got a number back. */ if (code == BFD_RELOC_IP2K_HI8DATA) value >>= 8; else /* code = BFD_RELOC_IP2K_LOW8DATA. */ value &= 0x00FF; } *valuep = value; } return errmsg; } static const char * parse_addr16_cjp (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) code = BFD_RELOC_IP2K_ADDR16CJP; else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) code = BFD_RELOC_IP2K_PAGE3; errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if (errmsg == NULL) { if (result_type == CGEN_PARSE_OPERAND_RESULT_NUMBER) { if ((value & 0x1) == 0) /* If the address is even .... */ { if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16CJP) *valuep = (value >> 1) & 0x1FFF; /* Should mask be 1FFF? */ else if (opindex == (CGEN_OPERAND_TYPE) IP2K_OPERAND_ADDR16P) *valuep = (value >> 14) & 0x7; } else errmsg = _("Byte address required. - must be even."); } else if (result_type == CGEN_PARSE_OPERAND_RESULT_QUEUED) { /* This will happen for things like (s2-s1) where s2 and s1 are labels. */ *valuep = value; } else errmsg = _("cgen_parse_address returned a symbol. Literal required."); } return errmsg; } static const char * parse_lit8 (CGEN_CPU_DESC cd, const char **strp, int opindex, long *valuep) { const char *errmsg; enum cgen_parse_operand_result result_type; bfd_reloc_code_real_type code = BFD_RELOC_NONE; bfd_vma value; /* Parse %OP relocating operators. */ if (strncmp (*strp, "%bank", 5) == 0) { *strp += 5; code = BFD_RELOC_IP2K_BANK; } else if (strncmp (*strp, "%lo8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8DATA; } else if (strncmp (*strp, "%hi8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8DATA; } else if (strncmp (*strp, "%ex8data", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_EX8DATA; } else if (strncmp (*strp, "%lo8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_LO8INSN; } else if (strncmp (*strp, "%hi8insn", 8) == 0) { *strp += 8; code = BFD_RELOC_IP2K_HI8INSN; } /* Parse %op operand. */ if (code != BFD_RELOC_NONE) { errmsg = cgen_parse_address (cd, strp, opindex, code, & result_type, & value); if ((errmsg == NULL) && (result_type != CGEN_PARSE_OPERAND_RESULT_QUEUED)) errmsg = _("percent-operator operand is not a symbol"); *valuep = value; } /* Parse as a number. */ else { errmsg = cgen_parse_signed_integer (cd, strp, opindex, valuep); /* Truncate to eight bits to accept both signed and unsigned input. */ if (errmsg == NULL) *valuep &= 0xFF; } return errmsg; } static const char * parse_bit3 (CGEN_CPU_DESC cd, const char **strp, int opindex, unsigned long *valuep) { const char *errmsg; char mode = 0; long count = 0; unsigned long value; if (strncmp (*strp, "%bit", 4) == 0) { *strp += 4; mode = 1; } else if (strncmp (*strp, "%msbbit", 7) == 0) { *strp += 7; mode = 1; } else if (strncmp (*strp, "%lsbbit", 7) == 0) { *strp += 7; mode = 2; } errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep); if (errmsg) return errmsg; if (mode) { value = * valuep; if (value == 0) { errmsg = _("Attempt to find bit index of 0"); return errmsg; } if (mode == 1) { count = 31; while ((value & 0x80000000) == 0) { count--; value <<= 1; } } else if (mode == 2) { count = 0; while ((value & 0x00000001) == 0) { count++; value >>= 1; } } *valuep = count; } return errmsg; } /* -- dis.c */ static void print_fr (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; const CGEN_KEYWORD_ENTRY *ke; extern CGEN_KEYWORD ip2k_cgen_opval_register_names; long offsettest; long offsetvalue; if (value == 0) /* This is (IP). */ { (*info->fprintf_func) (info->stream, "%s", "(IP)"); return; } offsettest = value >> 7; offsetvalue = value & 0x7F; /* Check to see if first two bits are 10 -> (DP). */ if (offsettest == 2) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s","(DP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue, "(DP)"); return; } /* Check to see if first two bits are 11 -> (SP). */ if (offsettest == 3) { if (offsetvalue == 0) (*info->fprintf_func) (info->stream, "%s", "(SP)"); else (*info->fprintf_func) (info->stream, "$%lx%s", offsetvalue,"(SP)"); return; } /* Attempt to print as a register keyword. */ ke = cgen_keyword_lookup_value (& ip2k_cgen_opval_register_names, value); if (ke != NULL) (*info->fprintf_func) (info->stream, "%s", ke->name); else /* Print as an address literal. */ (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%lx", value); } static void print_dollarhex8 (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%02lx", value); } static void print_dollarhex_addr16h (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; /* This is a loadh instruction. Shift the value to the left by 8 bits so that disassembled code will reassemble properly. */ value = ((value << 8) & 0xFF00); (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_addr16l (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "$%04lx", value); } static void print_dollarhex_p (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 14) & 0x1C000); ;value = (value & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_dollarhex_cj (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; value = ((value << 1) & 0x1FFFF); (*info->fprintf_func) (info->stream, "$%05lx", value); } static void print_decimal (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED, void * dis_info, long value, unsigned int attrs ATTRIBUTE_UNUSED, bfd_vma pc ATTRIBUTE_UNUSED, int length ATTRIBUTE_UNUSED) { disassemble_info *info = (disassemble_info *) dis_info; (*info->fprintf_func) (info->stream, "%ld", value); } /* -- */ @