From 8c63448afe0c72becfeecda4557db3ff57c0b446 Mon Sep 17 00:00:00 2001 From: Ian Lance Taylor Date: Tue, 6 Sep 1994 15:51:09 +0000 Subject: [PATCH] * config/tc-mips.c (mips_cpu): New static variable. (insns_since_cache_access): New static variable. (md_begin): Set mips_cpu as well as mips_isa. (append_insn): If mips_cpu is 4600, require four nop instructions between an instruction which accesses the cache and certain CACHE instructions. Keep track of the number of instructions seen since an instruction which accesses the cache. (md_parse_option): Set mips_cpu as well as mips_isa. PR 5433. --- gas/ChangeLog | 13 ++++- gas/config/tc-mips.c | 131 ++++++++++++++++++++++++++++++++++++------- 2 files changed, 123 insertions(+), 21 deletions(-) diff --git a/gas/ChangeLog b/gas/ChangeLog index ff0c2b965dc..92faf8909e8 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,10 +1,21 @@ +Tue Sep 6 11:42:38 1994 Ian Lance Taylor (ian@sanguine.cygnus.com) + + * config/tc-mips.c (mips_cpu): New static variable. + (insns_since_cache_access): New static variable. + (md_begin): Set mips_cpu as well as mips_isa. + (append_insn): If mips_cpu is 4600, require four nop instructions + between an instruction which accesses the cache and certain CACHE + instructions. Keep track of the number of instructions seen since + an instruction which accesses the cache. + (md_parse_option): Set mips_cpu as well as mips_isa. + Mon Sep 5 07:09:00 1994 Ken Raeburn (raeburn@kr-pc.cygnus.com) * doc/Makefile.in (VPATH): Define using @srcdir@. (prefix, program_transform_name, exec_prefix): Use autoconf style @-substitutions. -Sun Sep 04 17:58:10 1994 Richard Earnshaw (rwe@pegasus.esprit.ec.org) +Sun Sep 04 17:58:10 1994 Richard Earnshaw (rwe@pegasus.esprit.ec.org) * config/ho-riscix.h, config/tc-arm.c, config/tc-arm.h: New files * configure.in: Recognize the arm. diff --git a/gas/config/tc-mips.c b/gas/config/tc-mips.c index 73639017de9..e60755723bb 100644 --- a/gas/config/tc-mips.c +++ b/gas/config/tc-mips.c @@ -114,6 +114,9 @@ static int mips_isa = -1; /* MIPS ISA we are using for this output file. */ static int file_mips_isa; +/* The CPU type as a number: 2000, 3000, 4000, 4400, etc. */ +static int mips_cpu; + /* MIPS PIC level. */ enum mips_pic_level @@ -249,6 +252,12 @@ static int prev_insn_unreordered; /* Non-zero if the previous previous instruction was in a .set noreorder. */ static int prev_prev_insn_unreordered; + +/* The number of instructions since the last instruction which + accesses the data cache. The instruction itself counts as 1, so 0 + means no information. This is used to work around a bug on the + r4600 (ORION) chip. */ +static int insns_since_cache_access; /* Since the MIPS does not have multiple forms of PC relative instructions, we do not have to do relaxing as is done on other @@ -500,17 +509,55 @@ md_begin () if (mips_isa == -1) { - if (strcmp (TARGET_CPU, "mips") == 0) - mips_isa = 1; - else if (strcmp (TARGET_CPU, "r6000") == 0 - || strcmp (TARGET_CPU, "mips2") == 0) - mips_isa = 2; - else if (strcmp (TARGET_CPU, "mips64") == 0 - || strcmp (TARGET_CPU, "r4000") == 0 - || strcmp (TARGET_CPU, "mips3") == 0) - mips_isa = 3; + const char *cpu; + char *a = NULL; + + cpu = TARGET_CPU; + if (strcmp (cpu + (sizeof TARGET_CPU) - 3, "el") == 0) + { + a = xmalloc (sizeof TARGET_CPU); + strcpy (a, TARGET_CPU); + a[(sizeof TARGET_CPU) - 3] = '\0'; + cpu = a; + } + + if (strcmp (cpu, "mips") == 0) + { + mips_isa = 1; + mips_cpu = 3000; + } + else if (strcmp (cpu, "r6000") == 0 + || strcmp (cpu, "mips2") == 0) + { + mips_isa = 2; + mips_cpu = 6000; + } + else if (strcmp (cpu, "mips64") == 0 + || strcmp (cpu, "r4000") == 0 + || strcmp (cpu, "mips3") == 0) + { + mips_isa = 3; + mips_cpu = 4000; + } + else if (strcmp (cpu, "r4400") == 0) + { + mips_isa = 3; + mips_cpu = 4400; + } + else if (strcmp (cpu, "mips64orion") == 0 + || strcmp (cpu, "r4600") == 0) + { + mips_isa = 3; + mips_cpu = 4600; + } else - mips_isa = 1; + { + mips_isa = 1; + mips_cpu = 3000; + } + + if (a != NULL) + free (a); } if (mips_isa < 2 && mips_trap) @@ -866,6 +913,18 @@ append_insn (place, ip, address_expr, reloc_type) && (pinfo & INSN_WRITE_HI)))) ++nops; + /* The r4600 (ORION) chip has a bug: at least four instructions + are required between an instruction which accesses memory and + a certain set of CACHE instructions. Handle that now. */ + if (mips_cpu == 4600 + && insns_since_cache_access != 0 + && 5 - insns_since_cache_access > nops + && ((ip->insn_opcode & 0xffff0000) == 0xbc0d0000 + || (ip->insn_opcode & 0xffff0000) == 0xbc110000 + || (ip->insn_opcode & 0xfc1f0000) == 0xbc150000 + || (ip->insn_opcode & 0xffff0000) == 0xbc190000)) + nops = 5 - insns_since_cache_access; + /* If we are being given a nop instruction, don't bother with one of the nops we would otherwise output. This will only happen when a nop instruction is used with mips_optimize set @@ -876,8 +935,9 @@ append_insn (place, ip, address_expr, reloc_type) /* Now emit the right number of NOP instructions. */ if (nops > 0) { - emit_nop (); - if (nops > 1) + int i; + + for (i = 0; i < nops; i++) emit_nop (); if (listing) listing_prev_line (); @@ -1168,6 +1228,11 @@ append_insn (place, ip, address_expr, reloc_type) prev_insn_where = f - frag_now->fr_literal; prev_insn_fixp = fixp; prev_insn_valid = 1; + if ((pinfo & INSN_LOAD_MEMORY_DELAY) != 0 + || (pinfo & INSN_STORE_MEMORY) != 0) + insns_since_cache_access = 1; + else if (insns_since_cache_access != 0) + ++insns_since_cache_access; } /* We just output an insn, so the next one doesn't have a label. */ @@ -4999,14 +5064,17 @@ md_parse_option (c, arg) case OPTION_MIPS1: mips_isa = 1; + mips_cpu = 3000; break; case OPTION_MIPS2: mips_isa = 2; + mips_cpu = 6000; break; case OPTION_MIPS3: mips_isa = 3; + mips_cpu = 4000; break; case OPTION_MCPU: @@ -5030,35 +5098,58 @@ md_parse_option (c, arg) if (strcmp (p, "2000") == 0 || strcmp (p, "2k") == 0 || strcmp (p, "2K") == 0) - mips_isa = 1; + { + mips_isa = 1; + mips_cpu = 2000; + } break; case '3': if (strcmp (p, "3000") == 0 || strcmp (p, "3k") == 0 || strcmp (p, "3K") == 0) - mips_isa = 1; + { + mips_isa = 1; + mips_cpu = 3000; + } break; case '4': if (strcmp (p, "4000") == 0 || strcmp (p, "4k") == 0 - || strcmp (p, "4K") == 0 - || strcmp (p, "4400") == 0 - || strcmp (p, "4600") == 0) - mips_isa = 3; + || strcmp (p, "4K") == 0) + { + mips_isa = 3; + mips_cpu = 4000; + } + else if (strcmp (p, "4400") == 0) + { + mips_isa = 3; + mips_cpu = 4400; + } + else if (strcmp (p, "4600") == 0) + { + mips_isa = 3; + mips_cpu = 4600; + } break; case '6': if (strcmp (p, "6000") == 0 || strcmp (p, "6k") == 0 || strcmp (p, "6K") == 0) - mips_isa = 2; + { + mips_isa = 2; + mips_cpu = 6000; + } break; case 'o': if (strcmp (p, "orion") == 0) - mips_isa = 3; + { + mips_isa = 3; + mips_cpu = 4600; + } break; } -- 2.30.2