[deliverable/binutils-gdb.git] / bfd / cpu-i386.c

/* BFD support for the Intel 386 architecture.
   Copyright (C) 1992-2020 Free Software Foundation, Inc.

   This file is part of BFD, the Binary File Descriptor library.

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

#include "sysdep.h"
#include "bfd.h"
#include "libbfd.h"
#include "libiberty.h"

extern void * bfd_arch_i386_short_nop_fill (bfd_size_type, bfd_boolean,
					    bfd_boolean);

static const bfd_arch_info_type *
bfd_i386_compatible (const bfd_arch_info_type *a,
		     const bfd_arch_info_type *b)
{
  const bfd_arch_info_type *compat = bfd_default_compatible (a, b);

  /* Don't allow mixing x64_32 with x86_64.  */
  if (compat
      && (a->mach & bfd_mach_x64_32) != (b->mach & bfd_mach_x64_32))
    compat = NULL;

  return compat;
}

/* Fill the buffer with zero or nop instruction if CODE is TRUE.  Use
   multi byte nop instructions if LONG_NOP is TRUE.  */

static void *
bfd_arch_i386_fill (bfd_size_type count, bfd_boolean code,
		    bfd_boolean long_nop)
{
  /* nop */
  static const char nop_1[] = { 0x90 };
  /* xchg %ax,%ax */
  static const char nop_2[] = { 0x66, 0x90 };
  /* nopl (%[re]ax) */
  static const char nop_3[] = { 0x0f, 0x1f, 0x00 };
  /* nopl 0(%[re]ax) */
  static const char nop_4[] = { 0x0f, 0x1f, 0x40, 0x00 };
  /* nopl 0(%[re]ax,%[re]ax,1) */
  static const char nop_5[] = { 0x0f, 0x1f, 0x44, 0x00, 0x00 };
  /* nopw 0(%[re]ax,%[re]ax,1) */
  static const char nop_6[] = { 0x66, 0x0f, 0x1f, 0x44, 0x00, 0x00 };
  /* nopl 0L(%[re]ax) */
  static const char nop_7[] = { 0x0f, 0x1f, 0x80, 0x00, 0x00, 0x00, 0x00 };
  /* nopl 0L(%[re]ax,%[re]ax,1) */
  static const char nop_8[] =
    { 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00};
  /* nopw 0L(%[re]ax,%[re]ax,1) */
  static const char nop_9[] =
    { 0x66, 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00 };
  /* nopw %cs:0L(%[re]ax,%[re]ax,1) */
  static const char nop_10[] =
    { 0x66, 0x2e, 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00 };
  static const char *const nops[] =
    { nop_1, nop_2, nop_3, nop_4, nop_5,
      nop_6, nop_7, nop_8, nop_9, nop_10 };
  bfd_size_type nop_size = long_nop ? ARRAY_SIZE (nops) : 2;

  void *fill = bfd_malloc (count);
  if (fill == NULL)
    return fill;

  if (code)
    {
      bfd_byte *p = fill;
      while (count >= nop_size)
	{
	  memcpy (p, nops[nop_size - 1], nop_size);
	  p += nop_size;
	  count -= nop_size;
	}
      if (count != 0)
	memcpy (p, nops[count - 1], count);
    }
  else
    memset (fill, 0, count);

  return fill;
}

/* Fill the buffer with zero or short nop instruction if CODE is TRUE.  */

void *
bfd_arch_i386_short_nop_fill (bfd_size_type count,
			      bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
			      bfd_boolean code)
{
  return bfd_arch_i386_fill (count, code, FALSE);
}

/* Fill the buffer with zero or long nop instruction if CODE is TRUE.  */

static void *
bfd_arch_i386_long_nop_fill (bfd_size_type count,
			     bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
			     bfd_boolean code)
{
  return bfd_arch_i386_fill (count, code, TRUE);
}

/* Fill the buffer with zero, or one-byte nop instructions if CODE is TRUE.  */

static void *
bfd_arch_i386_onebyte_nop_fill (bfd_size_type count,
				bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
				bfd_boolean code)
{
  void *fill = bfd_malloc (count);
  if (fill != NULL)
    memset (fill, code ? 0x90 : 0, count);
  return fill;
}

#define N(BITS, MACH, NAME, PRINT, DEF, FILL, NEXT)	\
  { BITS, /* Bits in a word.  */		\
    BITS, /* Bits in an address.  */		\
    8,    /* Bits in a byte. */			\
    bfd_arch_i386,				\
    MACH, /* Machine number.  */		\
    NAME,					\
    PRINT,					\
    3,   /* Section alignment power.  */	\
    DEF, /* Default architecture version ?  */	\
    bfd_i386_compatible,			\
    bfd_default_scan,				\
    FILL,					\
    NEXT,					\
    0 /* Maximum instruction length.  */	\
  }


static const bfd_arch_info_type bfd_x64_32_nacl_arch =
  N (64, bfd_mach_x64_32_nacl, "i386", "i386:x64-32:nacl",
     FALSE, bfd_arch_i386_onebyte_nop_fill, NULL);

static const bfd_arch_info_type bfd_x86_64_nacl_arch =
  N (64, bfd_mach_x86_64_nacl, "i386", "i386:x86-64:nacl",
     FALSE, bfd_arch_i386_onebyte_nop_fill, &bfd_x64_32_nacl_arch);

const bfd_arch_info_type bfd_i386_nacl_arch =
  N (32, bfd_mach_i386_i386_nacl, "i386", "i386:nacl",
     TRUE, bfd_arch_i386_onebyte_nop_fill, &bfd_x86_64_nacl_arch);


static const bfd_arch_info_type bfd_x64_32_arch_intel_syntax =
  N (64, bfd_mach_x64_32_intel_syntax, "i386:intel", "i386:x64-32:intel",
     FALSE, bfd_arch_i386_long_nop_fill, &bfd_i386_nacl_arch);

static const bfd_arch_info_type bfd_x86_64_arch_intel_syntax =
  N (64, bfd_mach_x86_64_intel_syntax, "i386:intel", "i386:x86-64:intel",
     FALSE, bfd_arch_i386_long_nop_fill, &bfd_x64_32_arch_intel_syntax);

static const bfd_arch_info_type bfd_i386_arch_intel_syntax =
  N (32, bfd_mach_i386_i386_intel_syntax, "i386:intel", "i386:intel",
     TRUE, bfd_arch_i386_short_nop_fill, &bfd_x86_64_arch_intel_syntax);


static const bfd_arch_info_type i8086_arch =
  N (32, bfd_mach_i386_i8086, "i8086", "i8086",
     FALSE, bfd_arch_i386_short_nop_fill, &bfd_i386_arch_intel_syntax);

static const bfd_arch_info_type bfd_x64_32_arch =
  N (64, bfd_mach_x64_32, "i386", "i386:x64-32",
     FALSE, bfd_arch_i386_long_nop_fill, &i8086_arch);

static const bfd_arch_info_type bfd_x86_64_arch =
  N (64, bfd_mach_x86_64, "i386", "i386:x86-64",
     FALSE, bfd_arch_i386_long_nop_fill, &bfd_x64_32_arch);

const bfd_arch_info_type bfd_i386_arch =
  N (32, bfd_mach_i386_i386, "i386", "i386",
     TRUE, bfd_arch_i386_short_nop_fill, &bfd_x86_64_arch);
Commit	Line	Data
252b5132	1	/* BFD support for the Intel 386 architecture.
b3adc24a	2	Copyright (C) 1992-2020 Free Software Foundation, Inc.
252b5132	3
cd123cb7	4	This file is part of BFD, the Binary File Descriptor library.
252b5132	5
cd123cb7 NC	6	This program is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 3 of the License, or
	9	(at your option) any later version.
252b5132	10
cd123cb7 NC	11	This program is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
252b5132	15
cd123cb7 NC	16	You should have received a copy of the GNU General Public License
	17	along with this program; if not, write to the Free Software
	18	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	19	MA 02110-1301, USA. */
252b5132	20
252b5132	21	#include "sysdep.h"
3db64b00	22	#include "bfd.h"
252b5132	23	#include "libbfd.h"
b7761f11 L	24	#include "libiberty.h"
b7761f11 L	25
923f257f L	26	extern void * bfd_arch_i386_short_nop_fill (bfd_size_type, bfd_boolean,
923f257f L	27	bfd_boolean);
252b5132	28
889a4d3e L	29	static const bfd_arch_info_type *
	30	bfd_i386_compatible (const bfd_arch_info_type *a,
	31	const bfd_arch_info_type *b)
	32	{
	33	const bfd_arch_info_type *compat = bfd_default_compatible (a, b);
	34
	35	/* Don't allow mixing x64_32 with x86_64. */
d7921315 L	36	if (compat
d7921315 L	37	&& (a->mach & bfd_mach_x64_32) != (b->mach & bfd_mach_x64_32))
889a4d3e L	38	compat = NULL;
	39
	40	return compat;
	41	}
	42
923f257f L	43	/* Fill the buffer with zero or nop instruction if CODE is TRUE. Use
923f257f L	44	multi byte nop instructions if LONG_NOP is TRUE. */
b7761f11	45
923f257f L	46	static void *
	47	bfd_arch_i386_fill (bfd_size_type count, bfd_boolean code,
	48	bfd_boolean long_nop)
b7761f11 L	49	{
b7761f11 L	50	/* nop */
68ffbac6	51	static const char nop_1[] = { 0x90 };
923f257f	52	/* xchg %ax,%ax */
b7761f11 L	53	static const char nop_2[] = { 0x66, 0x90 };
	54	/* nopl (%[re]ax) */
	55	static const char nop_3[] = { 0x0f, 0x1f, 0x00 };
	56	/* nopl 0(%[re]ax) */
	57	static const char nop_4[] = { 0x0f, 0x1f, 0x40, 0x00 };
	58	/* nopl 0(%[re]ax,%[re]ax,1) */
	59	static const char nop_5[] = { 0x0f, 0x1f, 0x44, 0x00, 0x00 };
	60	/* nopw 0(%[re]ax,%[re]ax,1) */
	61	static const char nop_6[] = { 0x66, 0x0f, 0x1f, 0x44, 0x00, 0x00 };
	62	/* nopl 0L(%[re]ax) */
	63	static const char nop_7[] = { 0x0f, 0x1f, 0x80, 0x00, 0x00, 0x00, 0x00 };
	64	/* nopl 0L(%[re]ax,%[re]ax,1) */
	65	static const char nop_8[] =
	66	{ 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00};
	67	/* nopw 0L(%[re]ax,%[re]ax,1) */
	68	static const char nop_9[] =
	69	{ 0x66, 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00 };
	70	/* nopw %cs:0L(%[re]ax,%[re]ax,1) */
	71	static const char nop_10[] =
	72	{ 0x66, 0x2e, 0x0f, 0x1f, 0x84, 0x00, 0x00, 0x00, 0x00, 0x00 };
	73	static const char *const nops[] =
	74	{ nop_1, nop_2, nop_3, nop_4, nop_5,
	75	nop_6, nop_7, nop_8, nop_9, nop_10 };
923f257f	76	bfd_size_type nop_size = long_nop ? ARRAY_SIZE (nops) : 2;
b7761f11 L	77
	78	void *fill = bfd_malloc (count);
	79	if (fill == NULL)
	80	return fill;
	81
	82	if (code)
	83	{
	84	bfd_byte *p = fill;
923f257f	85	while (count >= nop_size)
b7761f11	86	{
923f257f L	87	memcpy (p, nops[nop_size - 1], nop_size);
	88	p += nop_size;
	89	count -= nop_size;
b7761f11 L	90	}
	91	if (count != 0)
	92	memcpy (p, nops[count - 1], count);
	93	}
	94	else
	95	memset (fill, 0, count);
	96
	97	return fill;
	98	}
	99
923f257f L	100	/* Fill the buffer with zero or short nop instruction if CODE is TRUE. */
	101
	102	void *
	103	bfd_arch_i386_short_nop_fill (bfd_size_type count,
	104	bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
	105	bfd_boolean code)
	106	{
	107	return bfd_arch_i386_fill (count, code, FALSE);
	108	}
	109
	110	/* Fill the buffer with zero or long nop instruction if CODE is TRUE. */
	111
	112	static void *
	113	bfd_arch_i386_long_nop_fill (bfd_size_type count,
	114	bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
	115	bfd_boolean code)
	116	{
	117	return bfd_arch_i386_fill (count, code, TRUE);
	118	}
	119
1098fd41 RM	120	/* Fill the buffer with zero, or one-byte nop instructions if CODE is TRUE. */
	121
	122	static void *
	123	bfd_arch_i386_onebyte_nop_fill (bfd_size_type count,
	124	bfd_boolean is_bigendian ATTRIBUTE_UNUSED,
	125	bfd_boolean code)
	126	{
	127	void *fill = bfd_malloc (count);
	128	if (fill != NULL)
	129	memset (fill, code ? 0x90 : 0, count);
	130	return fill;
	131	}
	132
aebcfb76 NC	133	#define N(BITS, MACH, NAME, PRINT, DEF, FILL, NEXT) \
	134	{ BITS, /* Bits in a word. */ \
	135	BITS, /* Bits in an address. */ \
	136	8, /* Bits in a byte. */ \
	137	bfd_arch_i386, \
	138	MACH, /* Machine number. */ \
	139	NAME, \
	140	PRINT, \
	141	3, /* Section alignment power. */ \
	142	DEF, /* Default architecture version ? */ \
	143	bfd_i386_compatible, \
	144	bfd_default_scan, \
	145	FILL, \
	146	NEXT, \
	147	0 /* Maximum instruction length. */ \
	148	}
	149
1098fd41 RM	150
1098fd41 RM	151	static const bfd_arch_info_type bfd_x64_32_nacl_arch =
aebcfb76 NC	152	N (64, bfd_mach_x64_32_nacl, "i386", "i386:x64-32:nacl",
aebcfb76 NC	153	FALSE, bfd_arch_i386_onebyte_nop_fill, NULL);
1098fd41 RM	154
1098fd41 RM	155	static const bfd_arch_info_type bfd_x86_64_nacl_arch =
aebcfb76 NC	156	N (64, bfd_mach_x86_64_nacl, "i386", "i386:x86-64:nacl",
aebcfb76 NC	157	FALSE, bfd_arch_i386_onebyte_nop_fill, &bfd_x64_32_nacl_arch);
1098fd41 RM	158
1098fd41 RM	159	const bfd_arch_info_type bfd_i386_nacl_arch =
aebcfb76 NC	160	N (32, bfd_mach_i386_i386_nacl, "i386", "i386:nacl",
	161	TRUE, bfd_arch_i386_onebyte_nop_fill, &bfd_x86_64_nacl_arch);
	162
1098fd41	163
351f65ca	164	static const bfd_arch_info_type bfd_x64_32_arch_intel_syntax =
aebcfb76 NC	165	N (64, bfd_mach_x64_32_intel_syntax, "i386:intel", "i386:x64-32:intel",
aebcfb76 NC	166	FALSE, bfd_arch_i386_long_nop_fill, &bfd_i386_nacl_arch);
351f65ca	167
34274ccc	168	static const bfd_arch_info_type bfd_x86_64_arch_intel_syntax =
aebcfb76 NC	169	N (64, bfd_mach_x86_64_intel_syntax, "i386:intel", "i386:x86-64:intel",
aebcfb76 NC	170	FALSE, bfd_arch_i386_long_nop_fill, &bfd_x64_32_arch_intel_syntax);
1abc8597	171
34274ccc	172	static const bfd_arch_info_type bfd_i386_arch_intel_syntax =
aebcfb76 NC	173	N (32, bfd_mach_i386_i386_intel_syntax, "i386:intel", "i386:intel",
	174	TRUE, bfd_arch_i386_short_nop_fill, &bfd_x86_64_arch_intel_syntax);
	175
1abc8597	176
34274ccc	177	static const bfd_arch_info_type i8086_arch =
aebcfb76 NC	178	N (32, bfd_mach_i386_i8086, "i8086", "i8086",
aebcfb76 NC	179	FALSE, bfd_arch_i386_short_nop_fill, &bfd_i386_arch_intel_syntax);
8d88c4ca	180
351f65ca	181	static const bfd_arch_info_type bfd_x64_32_arch =
aebcfb76 NC	182	N (64, bfd_mach_x64_32, "i386", "i386:x64-32",
aebcfb76 NC	183	FALSE, bfd_arch_i386_long_nop_fill, &i8086_arch);
351f65ca	184
34274ccc	185	static const bfd_arch_info_type bfd_x86_64_arch =
aebcfb76 NC	186	N (64, bfd_mach_x86_64, "i386", "i386:x86-64",
aebcfb76 NC	187	FALSE, bfd_arch_i386_long_nop_fill, &bfd_x64_32_arch);
252b5132 RH	188
252b5132 RH	189	const bfd_arch_info_type bfd_i386_arch =
aebcfb76 NC	190	N (32, bfd_mach_i386_i386, "i386", "i386",
aebcfb76 NC	191	TRUE, bfd_arch_i386_short_nop_fill, &bfd_x86_64_arch);