123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275 |
- /* Assorted BFD support routines, only used internally.
- Copyright (C) 1990-2022 Free Software Foundation, Inc.
- Written by Cygnus Support.
- 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"
- #ifndef HAVE_GETPAGESIZE
- #define getpagesize() 2048
- #endif
- /*
- SECTION
- Implementation details
- SUBSECTION
- Internal functions
- DESCRIPTION
- These routines are used within BFD.
- They are not intended for export, but are documented here for
- completeness.
- */
- bool
- _bfd_bool_bfd_false (bfd *abfd ATTRIBUTE_UNUSED)
- {
- return false;
- }
- bool
- _bfd_bool_bfd_asymbol_false (bfd *abfd ATTRIBUTE_UNUSED,
- asymbol *sym ATTRIBUTE_UNUSED)
- {
- return false;
- }
- /* A routine which is used in target vectors for unsupported
- operations. */
- bool
- _bfd_bool_bfd_false_error (bfd *ignore ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return false;
- }
- bool
- _bfd_bool_bfd_link_false_error (bfd *abfd,
- struct bfd_link_info *info ATTRIBUTE_UNUSED)
- {
- return _bfd_bool_bfd_false_error (abfd);
- }
- /* A routine which is used in target vectors for supported operations
- which do not actually do anything. */
- bool
- _bfd_bool_bfd_true (bfd *ignore ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_link_true (bfd *abfd ATTRIBUTE_UNUSED,
- struct bfd_link_info *info ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_bfd_true (bfd *ibfd ATTRIBUTE_UNUSED,
- bfd *obfd ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_uint_true (bfd *abfd ATTRIBUTE_UNUSED,
- unsigned int flags ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_asection_bfd_asection_true (bfd *ibfd ATTRIBUTE_UNUSED,
- asection *isec ATTRIBUTE_UNUSED,
- bfd *obfd ATTRIBUTE_UNUSED,
- asection *osec ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_asymbol_bfd_asymbol_true (bfd *ibfd ATTRIBUTE_UNUSED,
- asymbol *isym ATTRIBUTE_UNUSED,
- bfd *obfd ATTRIBUTE_UNUSED,
- asymbol *osym ATTRIBUTE_UNUSED)
- {
- return true;
- }
- bool
- _bfd_bool_bfd_ptr_true (bfd *abfd ATTRIBUTE_UNUSED,
- void *ptr ATTRIBUTE_UNUSED)
- {
- return true;
- }
- /* A routine which is used in target vectors for unsupported
- operations which return a pointer value. */
- void *
- _bfd_ptr_bfd_null_error (bfd *ignore ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return NULL;
- }
- int
- _bfd_int_bfd_0 (bfd *ignore ATTRIBUTE_UNUSED)
- {
- return 0;
- }
- unsigned int
- _bfd_uint_bfd_0 (bfd *ignore ATTRIBUTE_UNUSED)
- {
- return 0;
- }
- long
- _bfd_long_bfd_0 (bfd *ignore ATTRIBUTE_UNUSED)
- {
- return 0;
- }
- /* A routine which is used in target vectors for unsupported
- operations which return -1 on error. */
- long
- _bfd_long_bfd_n1_error (bfd *ignore_abfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return -1;
- }
- void
- _bfd_void_bfd (bfd *ignore ATTRIBUTE_UNUSED)
- {
- }
- void
- _bfd_void_bfd_link (bfd *abfd ATTRIBUTE_UNUSED,
- struct bfd_link_info *info ATTRIBUTE_UNUSED)
- {
- }
- void
- _bfd_void_bfd_asection (bfd *abfd ATTRIBUTE_UNUSED,
- asection *sec ATTRIBUTE_UNUSED)
- {
- }
- long
- _bfd_norelocs_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED,
- asection *sec ATTRIBUTE_UNUSED)
- {
- return sizeof (arelent *);
- }
- long
- _bfd_norelocs_canonicalize_reloc (bfd *abfd ATTRIBUTE_UNUSED,
- asection *sec ATTRIBUTE_UNUSED,
- arelent **relptr,
- asymbol **symbols ATTRIBUTE_UNUSED)
- {
- *relptr = NULL;
- return 0;
- }
- void
- _bfd_norelocs_set_reloc (bfd *abfd ATTRIBUTE_UNUSED,
- asection *sec ATTRIBUTE_UNUSED,
- arelent **relptr ATTRIBUTE_UNUSED,
- unsigned int count ATTRIBUTE_UNUSED)
- {
- /* Do nothing. */
- }
- bool
- _bfd_nocore_core_file_matches_executable_p
- (bfd *ignore_core_bfd ATTRIBUTE_UNUSED,
- bfd *ignore_exec_bfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return false;
- }
- /* Routine to handle core_file_failing_command entry point for targets
- without core file support. */
- char *
- _bfd_nocore_core_file_failing_command (bfd *ignore_abfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return NULL;
- }
- /* Routine to handle core_file_failing_signal entry point for targets
- without core file support. */
- int
- _bfd_nocore_core_file_failing_signal (bfd *ignore_abfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return 0;
- }
- /* Routine to handle the core_file_pid entry point for targets without
- core file support. */
- int
- _bfd_nocore_core_file_pid (bfd *ignore_abfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_invalid_operation);
- return 0;
- }
- bfd_cleanup
- _bfd_dummy_target (bfd *ignore_abfd ATTRIBUTE_UNUSED)
- {
- bfd_set_error (bfd_error_wrong_format);
- return 0;
- }
- /* Allocate memory using malloc. */
- #ifndef SSIZE_MAX
- #define SSIZE_MAX ((size_t) -1 >> 1)
- #endif
- /*
- INTERNAL_FUNCTION
- bfd_malloc
- SYNOPSIS
- extern void * bfd_malloc (bfd_size_type SIZE) ATTRIBUTE_HIDDEN;
- DESCRIPTION
- Returns a pointer to an allocated block of memory that is at least
- SIZE bytes long. If SIZE is 0 then it will be treated as if it were
- 1. If SIZE is too big then NULL will be returned.
-
- Returns NULL upon error and sets bfd_error.
- */
- void *
- bfd_malloc (bfd_size_type size)
- {
- void *ptr;
- size_t sz = (size_t) size;
- if (size != sz
- /* This is to pacify memory checkers like valgrind. */
- || sz > SSIZE_MAX)
- {
- bfd_set_error (bfd_error_no_memory);
- return NULL;
- }
- ptr = malloc (sz ? sz : 1);
- if (ptr == NULL)
- bfd_set_error (bfd_error_no_memory);
- return ptr;
- }
- /*
- INTERNAL_FUNCTION
- bfd_realloc
- SYNOPSIS
- extern void * bfd_realloc (void * MEM, bfd_size_type SIZE) ATTRIBUTE_HIDDEN;
- DESCRIPTION
- Returns a pointer to an allocated block of memory that is at least
- SIZE bytes long. If SIZE is 0 then it will be treated as if it were
- 1. If SIZE is too big then NULL will be returned.
-
- If MEM is not NULL then it must point to an allocated block of memory.
- If this block is large enough then MEM may be used as the return
- value for this function, but this is not guaranteed.
- If MEM is not returned then the first N bytes in the returned block
- will be identical to the first N bytes in region pointed to by MEM,
- where N is the lessor of SIZE and the length of the region of memory
- currently addressed by MEM.
- Returns NULL upon error and sets bfd_error.
- */
- void *
- bfd_realloc (void *ptr, bfd_size_type size)
- {
- void *ret;
- size_t sz = (size_t) size;
- if (ptr == NULL)
- return bfd_malloc (size);
- if (size != sz
- /* This is to pacify memory checkers like valgrind. */
- || sz > SSIZE_MAX)
- {
- bfd_set_error (bfd_error_no_memory);
- return NULL;
- }
- /* The behaviour of realloc(0) is implementation defined,
- but for this function we always allocate memory. */
- ret = realloc (ptr, sz ? sz : 1);
- if (ret == NULL)
- bfd_set_error (bfd_error_no_memory);
- return ret;
- }
- /*
- INTERNAL_FUNCTION
- bfd_realloc_or_free
- SYNOPSIS
- extern void * bfd_realloc_or_free (void * MEM, bfd_size_type SIZE) ATTRIBUTE_HIDDEN;
- DESCRIPTION
- Returns a pointer to an allocated block of memory that is at least
- SIZE bytes long. If SIZE is 0 then no memory will be allocated,
- MEM will be freed, and NULL will be returned. This will not cause
- bfd_error to be set.
- If SIZE is too big then NULL will be returned and bfd_error will be
- set.
-
- If MEM is not NULL then it must point to an allocated block of memory.
- If this block is large enough then MEM may be used as the return
- value for this function, but this is not guaranteed.
- If MEM is not returned then the first N bytes in the returned block
- will be identical to the first N bytes in region pointed to by MEM,
- where N is the lessor of SIZE and the length of the region of memory
- currently addressed by MEM.
- */
- void *
- bfd_realloc_or_free (void *ptr, bfd_size_type size)
- {
- void *ret;
- /* The behaviour of realloc(0) is implementation defined, but
- for this function we treat it is always freeing the memory. */
- if (size == 0)
- {
- free (ptr);
- return NULL;
- }
-
- ret = bfd_realloc (ptr, size);
- if (ret == NULL)
- free (ptr);
- return ret;
- }
- /*
- INTERNAL_FUNCTION
- bfd_zmalloc
- SYNOPSIS
- extern void * bfd_zmalloc (bfd_size_type SIZE) ATTRIBUTE_HIDDEN;
- DESCRIPTION
- Returns a pointer to an allocated block of memory that is at least
- SIZE bytes long. If SIZE is 0 then it will be treated as if it were
- 1. If SIZE is too big then NULL will be returned.
-
- Returns NULL upon error and sets bfd_error.
- If NULL is not returned then the allocated block of memory will
- have been cleared.
- */
- void *
- bfd_zmalloc (bfd_size_type size)
- {
- void *ptr = bfd_malloc (size);
- if (ptr != NULL)
- memset (ptr, 0, size ? (size_t) size : 1);
- return ptr;
- }
- /*
- INTERNAL_FUNCTION
- bfd_write_bigendian_4byte_int
- SYNOPSIS
- bool bfd_write_bigendian_4byte_int (bfd *, unsigned int);
- DESCRIPTION
- Write a 4 byte integer @var{i} to the output BFD @var{abfd}, in big
- endian order regardless of what else is going on. This is useful in
- archives.
- */
- bool
- bfd_write_bigendian_4byte_int (bfd *abfd, unsigned int i)
- {
- bfd_byte buffer[4];
- bfd_putb32 ((bfd_vma) i, buffer);
- return bfd_bwrite (buffer, (bfd_size_type) 4, abfd) == 4;
- }
- /** The do-it-yourself (byte) sex-change kit */
- /* The middle letter e.g. get<b>short indicates Big or Little endian
- target machine. It doesn't matter what the byte order of the host
- machine is; these routines work for either. */
- /* FIXME: Should these take a count argument?
- Answer (gnu@cygnus.com): No, but perhaps they should be inline
- functions in swap.h #ifdef __GNUC__.
- Gprof them later and find out. */
- /*
- FUNCTION
- bfd_put_size
- FUNCTION
- bfd_get_size
- DESCRIPTION
- These macros as used for reading and writing raw data in
- sections; each access (except for bytes) is vectored through
- the target format of the BFD and mangled accordingly. The
- mangling performs any necessary endian translations and
- removes alignment restrictions. Note that types accepted and
- returned by these macros are identical so they can be swapped
- around in macros---for example, @file{libaout.h} defines <<GET_WORD>>
- to either <<bfd_get_32>> or <<bfd_get_64>>.
- In the put routines, @var{val} must be a <<bfd_vma>>. If we are on a
- system without prototypes, the caller is responsible for making
- sure that is true, with a cast if necessary. We don't cast
- them in the macro definitions because that would prevent <<lint>>
- or <<gcc -Wall>> from detecting sins such as passing a pointer.
- To detect calling these with less than a <<bfd_vma>>, use
- <<gcc -Wconversion>> on a host with 64 bit <<bfd_vma>>'s.
- .
- .{* Byte swapping macros for user section data. *}
- .
- .#define bfd_put_8(abfd, val, ptr) \
- . ((void) (*((unsigned char *) (ptr)) = (val) & 0xff))
- .#define bfd_put_signed_8 \
- . bfd_put_8
- .#define bfd_get_8(abfd, ptr) \
- . ((bfd_vma) *(const unsigned char *) (ptr) & 0xff)
- .#define bfd_get_signed_8(abfd, ptr) \
- . ((((bfd_signed_vma) *(const unsigned char *) (ptr) & 0xff) ^ 0x80) - 0x80)
- .
- .#define bfd_put_16(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_putx16, ((val),(ptr)))
- .#define bfd_put_signed_16 \
- . bfd_put_16
- .#define bfd_get_16(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx16, (ptr))
- .#define bfd_get_signed_16(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx_signed_16, (ptr))
- .
- .#define bfd_put_24(abfd, val, ptr) \
- . do \
- . if (bfd_big_endian (abfd)) \
- . bfd_putb24 ((val), (ptr)); \
- . else \
- . bfd_putl24 ((val), (ptr)); \
- . while (0)
- .
- .bfd_vma bfd_getb24 (const void *p);
- .bfd_vma bfd_getl24 (const void *p);
- .
- .#define bfd_get_24(abfd, ptr) \
- . (bfd_big_endian (abfd) ? bfd_getb24 (ptr) : bfd_getl24 (ptr))
- .
- .#define bfd_put_32(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_putx32, ((val),(ptr)))
- .#define bfd_put_signed_32 \
- . bfd_put_32
- .#define bfd_get_32(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx32, (ptr))
- .#define bfd_get_signed_32(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx_signed_32, (ptr))
- .
- .#define bfd_put_64(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_putx64, ((val), (ptr)))
- .#define bfd_put_signed_64 \
- . bfd_put_64
- .#define bfd_get_64(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx64, (ptr))
- .#define bfd_get_signed_64(abfd, ptr) \
- . BFD_SEND (abfd, bfd_getx_signed_64, (ptr))
- .
- .#define bfd_get(bits, abfd, ptr) \
- . ((bits) == 8 ? bfd_get_8 (abfd, ptr) \
- . : (bits) == 16 ? bfd_get_16 (abfd, ptr) \
- . : (bits) == 32 ? bfd_get_32 (abfd, ptr) \
- . : (bits) == 64 ? bfd_get_64 (abfd, ptr) \
- . : (abort (), (bfd_vma) - 1))
- .
- .#define bfd_put(bits, abfd, val, ptr) \
- . ((bits) == 8 ? bfd_put_8 (abfd, val, ptr) \
- . : (bits) == 16 ? bfd_put_16 (abfd, val, ptr) \
- . : (bits) == 32 ? bfd_put_32 (abfd, val, ptr) \
- . : (bits) == 64 ? bfd_put_64 (abfd, val, ptr) \
- . : (abort (), (void) 0))
- .
- */
- /*
- FUNCTION
- bfd_h_put_size
- bfd_h_get_size
- DESCRIPTION
- These macros have the same function as their <<bfd_get_x>>
- brethren, except that they are used for removing information
- for the header records of object files. Believe it or not,
- some object files keep their header records in big endian
- order and their data in little endian order.
- .
- .{* Byte swapping macros for file header data. *}
- .
- .#define bfd_h_put_8(abfd, val, ptr) \
- . bfd_put_8 (abfd, val, ptr)
- .#define bfd_h_put_signed_8(abfd, val, ptr) \
- . bfd_put_8 (abfd, val, ptr)
- .#define bfd_h_get_8(abfd, ptr) \
- . bfd_get_8 (abfd, ptr)
- .#define bfd_h_get_signed_8(abfd, ptr) \
- . bfd_get_signed_8 (abfd, ptr)
- .
- .#define bfd_h_put_16(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_h_putx16, (val, ptr))
- .#define bfd_h_put_signed_16 \
- . bfd_h_put_16
- .#define bfd_h_get_16(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx16, (ptr))
- .#define bfd_h_get_signed_16(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx_signed_16, (ptr))
- .
- .#define bfd_h_put_32(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_h_putx32, (val, ptr))
- .#define bfd_h_put_signed_32 \
- . bfd_h_put_32
- .#define bfd_h_get_32(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx32, (ptr))
- .#define bfd_h_get_signed_32(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx_signed_32, (ptr))
- .
- .#define bfd_h_put_64(abfd, val, ptr) \
- . BFD_SEND (abfd, bfd_h_putx64, (val, ptr))
- .#define bfd_h_put_signed_64 \
- . bfd_h_put_64
- .#define bfd_h_get_64(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx64, (ptr))
- .#define bfd_h_get_signed_64(abfd, ptr) \
- . BFD_SEND (abfd, bfd_h_getx_signed_64, (ptr))
- .
- .{* Aliases for the above, which should eventually go away. *}
- .
- .#define H_PUT_64 bfd_h_put_64
- .#define H_PUT_32 bfd_h_put_32
- .#define H_PUT_16 bfd_h_put_16
- .#define H_PUT_8 bfd_h_put_8
- .#define H_PUT_S64 bfd_h_put_signed_64
- .#define H_PUT_S32 bfd_h_put_signed_32
- .#define H_PUT_S16 bfd_h_put_signed_16
- .#define H_PUT_S8 bfd_h_put_signed_8
- .#define H_GET_64 bfd_h_get_64
- .#define H_GET_32 bfd_h_get_32
- .#define H_GET_16 bfd_h_get_16
- .#define H_GET_8 bfd_h_get_8
- .#define H_GET_S64 bfd_h_get_signed_64
- .#define H_GET_S32 bfd_h_get_signed_32
- .#define H_GET_S16 bfd_h_get_signed_16
- .#define H_GET_S8 bfd_h_get_signed_8
- .
- .*/
- /* Sign extension to bfd_signed_vma. */
- #define COERCE16(x) (((bfd_vma) (x) ^ 0x8000) - 0x8000)
- #define COERCE32(x) (((bfd_vma) (x) ^ 0x80000000) - 0x80000000)
- #define COERCE64(x) \
- (((bfd_uint64_t) (x) ^ ((bfd_uint64_t) 1 << 63)) - ((bfd_uint64_t) 1 << 63))
- bfd_vma
- bfd_getb16 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- return (addr[0] << 8) | addr[1];
- }
- bfd_vma
- bfd_getl16 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- return (addr[1] << 8) | addr[0];
- }
- bfd_signed_vma
- bfd_getb_signed_16 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- return COERCE16 ((addr[0] << 8) | addr[1]);
- }
- bfd_signed_vma
- bfd_getl_signed_16 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- return COERCE16 ((addr[1] << 8) | addr[0]);
- }
- void
- bfd_putb16 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = (data >> 8) & 0xff;
- addr[1] = data & 0xff;
- }
- void
- bfd_putl16 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = data & 0xff;
- addr[1] = (data >> 8) & 0xff;
- }
- void
- bfd_putb24 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = (data >> 16) & 0xff;
- addr[1] = (data >> 8) & 0xff;
- addr[2] = data & 0xff;
- }
- void
- bfd_putl24 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = data & 0xff;
- addr[1] = (data >> 8) & 0xff;
- addr[2] = (data >> 16) & 0xff;
- }
- bfd_vma
- bfd_getb24 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0] << 16;
- v |= (unsigned long) addr[1] << 8;
- v |= (unsigned long) addr[2];
- return v;
- }
- bfd_vma
- bfd_getl24 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0];
- v |= (unsigned long) addr[1] << 8;
- v |= (unsigned long) addr[2] << 16;
- return v;
- }
- bfd_vma
- bfd_getb32 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0] << 24;
- v |= (unsigned long) addr[1] << 16;
- v |= (unsigned long) addr[2] << 8;
- v |= (unsigned long) addr[3];
- return v;
- }
- bfd_vma
- bfd_getl32 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0];
- v |= (unsigned long) addr[1] << 8;
- v |= (unsigned long) addr[2] << 16;
- v |= (unsigned long) addr[3] << 24;
- return v;
- }
- bfd_signed_vma
- bfd_getb_signed_32 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0] << 24;
- v |= (unsigned long) addr[1] << 16;
- v |= (unsigned long) addr[2] << 8;
- v |= (unsigned long) addr[3];
- return COERCE32 (v);
- }
- bfd_signed_vma
- bfd_getl_signed_32 (const void *p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- unsigned long v;
- v = (unsigned long) addr[0];
- v |= (unsigned long) addr[1] << 8;
- v |= (unsigned long) addr[2] << 16;
- v |= (unsigned long) addr[3] << 24;
- return COERCE32 (v);
- }
- bfd_uint64_t
- bfd_getb64 (const void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- const bfd_byte *addr = (const bfd_byte *) p;
- bfd_uint64_t v;
- v = addr[0]; v <<= 8;
- v |= addr[1]; v <<= 8;
- v |= addr[2]; v <<= 8;
- v |= addr[3]; v <<= 8;
- v |= addr[4]; v <<= 8;
- v |= addr[5]; v <<= 8;
- v |= addr[6]; v <<= 8;
- v |= addr[7];
- return v;
- #else
- BFD_FAIL();
- return 0;
- #endif
- }
- bfd_uint64_t
- bfd_getl64 (const void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- const bfd_byte *addr = (const bfd_byte *) p;
- bfd_uint64_t v;
- v = addr[7]; v <<= 8;
- v |= addr[6]; v <<= 8;
- v |= addr[5]; v <<= 8;
- v |= addr[4]; v <<= 8;
- v |= addr[3]; v <<= 8;
- v |= addr[2]; v <<= 8;
- v |= addr[1]; v <<= 8;
- v |= addr[0];
- return v;
- #else
- BFD_FAIL();
- return 0;
- #endif
- }
- bfd_int64_t
- bfd_getb_signed_64 (const void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- const bfd_byte *addr = (const bfd_byte *) p;
- bfd_uint64_t v;
- v = addr[0]; v <<= 8;
- v |= addr[1]; v <<= 8;
- v |= addr[2]; v <<= 8;
- v |= addr[3]; v <<= 8;
- v |= addr[4]; v <<= 8;
- v |= addr[5]; v <<= 8;
- v |= addr[6]; v <<= 8;
- v |= addr[7];
- return COERCE64 (v);
- #else
- BFD_FAIL();
- return 0;
- #endif
- }
- bfd_int64_t
- bfd_getl_signed_64 (const void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- const bfd_byte *addr = (const bfd_byte *) p;
- bfd_uint64_t v;
- v = addr[7]; v <<= 8;
- v |= addr[6]; v <<= 8;
- v |= addr[5]; v <<= 8;
- v |= addr[4]; v <<= 8;
- v |= addr[3]; v <<= 8;
- v |= addr[2]; v <<= 8;
- v |= addr[1]; v <<= 8;
- v |= addr[0];
- return COERCE64 (v);
- #else
- BFD_FAIL();
- return 0;
- #endif
- }
- void
- bfd_putb32 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = (data >> 24) & 0xff;
- addr[1] = (data >> 16) & 0xff;
- addr[2] = (data >> 8) & 0xff;
- addr[3] = data & 0xff;
- }
- void
- bfd_putl32 (bfd_vma data, void *p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = data & 0xff;
- addr[1] = (data >> 8) & 0xff;
- addr[2] = (data >> 16) & 0xff;
- addr[3] = (data >> 24) & 0xff;
- }
- void
- bfd_putb64 (bfd_uint64_t data ATTRIBUTE_UNUSED, void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- bfd_byte *addr = (bfd_byte *) p;
- addr[0] = (data >> (7*8)) & 0xff;
- addr[1] = (data >> (6*8)) & 0xff;
- addr[2] = (data >> (5*8)) & 0xff;
- addr[3] = (data >> (4*8)) & 0xff;
- addr[4] = (data >> (3*8)) & 0xff;
- addr[5] = (data >> (2*8)) & 0xff;
- addr[6] = (data >> (1*8)) & 0xff;
- addr[7] = (data >> (0*8)) & 0xff;
- #else
- BFD_FAIL();
- #endif
- }
- void
- bfd_putl64 (bfd_uint64_t data ATTRIBUTE_UNUSED, void *p ATTRIBUTE_UNUSED)
- {
- #ifdef BFD_HOST_64_BIT
- bfd_byte *addr = (bfd_byte *) p;
- addr[7] = (data >> (7*8)) & 0xff;
- addr[6] = (data >> (6*8)) & 0xff;
- addr[5] = (data >> (5*8)) & 0xff;
- addr[4] = (data >> (4*8)) & 0xff;
- addr[3] = (data >> (3*8)) & 0xff;
- addr[2] = (data >> (2*8)) & 0xff;
- addr[1] = (data >> (1*8)) & 0xff;
- addr[0] = (data >> (0*8)) & 0xff;
- #else
- BFD_FAIL();
- #endif
- }
- void
- bfd_put_bits (bfd_uint64_t data, void *p, int bits, bool big_p)
- {
- bfd_byte *addr = (bfd_byte *) p;
- int i;
- int bytes;
- if (bits % 8 != 0)
- abort ();
- bytes = bits / 8;
- for (i = 0; i < bytes; i++)
- {
- int addr_index = big_p ? bytes - i - 1 : i;
- addr[addr_index] = data & 0xff;
- data >>= 8;
- }
- }
- bfd_uint64_t
- bfd_get_bits (const void *p, int bits, bool big_p)
- {
- const bfd_byte *addr = (const bfd_byte *) p;
- bfd_uint64_t data;
- int i;
- int bytes;
- if (bits % 8 != 0)
- abort ();
- data = 0;
- bytes = bits / 8;
- for (i = 0; i < bytes; i++)
- {
- int addr_index = big_p ? i : bytes - i - 1;
- data = (data << 8) | addr[addr_index];
- }
- return data;
- }
- /* Default implementation */
- bool
- _bfd_generic_get_section_contents (bfd *abfd,
- sec_ptr section,
- void *location,
- file_ptr offset,
- bfd_size_type count)
- {
- bfd_size_type sz;
- if (count == 0)
- return true;
- if (section->compress_status != COMPRESS_SECTION_NONE)
- {
- _bfd_error_handler
- /* xgettext:c-format */
- (_("%pB: unable to get decompressed section %pA"),
- abfd, section);
- bfd_set_error (bfd_error_invalid_operation);
- return false;
- }
- /* We do allow reading of a section after bfd_final_link has
- written the contents out to disk. In that situation, rawsize is
- just a stale version of size, so ignore it. Otherwise we must be
- reading an input section, where rawsize, if different to size,
- is the on-disk size. */
- if (abfd->direction != write_direction && section->rawsize != 0)
- sz = section->rawsize;
- else
- sz = section->size;
- if (offset + count < count
- || offset + count > sz
- || (abfd->my_archive != NULL
- && !bfd_is_thin_archive (abfd->my_archive)
- && ((ufile_ptr) section->filepos + offset + count
- > arelt_size (abfd))))
- {
- bfd_set_error (bfd_error_invalid_operation);
- return false;
- }
- if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
- || bfd_bread (location, count, abfd) != count)
- return false;
- return true;
- }
- bool
- _bfd_generic_get_section_contents_in_window
- (bfd *abfd ATTRIBUTE_UNUSED,
- sec_ptr section ATTRIBUTE_UNUSED,
- bfd_window *w ATTRIBUTE_UNUSED,
- file_ptr offset ATTRIBUTE_UNUSED,
- bfd_size_type count ATTRIBUTE_UNUSED)
- {
- #ifdef USE_MMAP
- bfd_size_type sz;
- if (count == 0)
- return true;
- if (abfd->xvec->_bfd_get_section_contents
- != _bfd_generic_get_section_contents)
- {
- /* We don't know what changes the bfd's get_section_contents
- method may have to make. So punt trying to map the file
- window, and let get_section_contents do its thing. */
- /* @@ FIXME : If the internal window has a refcount of 1 and was
- allocated with malloc instead of mmap, just reuse it. */
- bfd_free_window (w);
- w->i = bfd_zmalloc (sizeof (bfd_window_internal));
- if (w->i == NULL)
- return false;
- w->i->data = bfd_malloc (count);
- if (w->i->data == NULL)
- {
- free (w->i);
- w->i = NULL;
- return false;
- }
- w->i->mapped = 0;
- w->i->refcount = 1;
- w->size = w->i->size = count;
- w->data = w->i->data;
- return bfd_get_section_contents (abfd, section, w->data, offset, count);
- }
- if (abfd->direction != write_direction && section->rawsize != 0)
- sz = section->rawsize;
- else
- sz = section->size;
- if (offset + count < count
- || offset + count > sz
- || (abfd->my_archive != NULL
- && !bfd_is_thin_archive (abfd->my_archive)
- && ((ufile_ptr) section->filepos + offset + count
- > arelt_size (abfd)))
- || ! bfd_get_file_window (abfd, section->filepos + offset, count, w,
- true))
- return false;
- return true;
- #else
- abort ();
- #endif
- }
- /* This generic function can only be used in implementations where creating
- NEW sections is disallowed. It is useful in patching existing sections
- in read-write files, though. See other set_section_contents functions
- to see why it doesn't work for new sections. */
- bool
- _bfd_generic_set_section_contents (bfd *abfd,
- sec_ptr section,
- const void *location,
- file_ptr offset,
- bfd_size_type count)
- {
- if (count == 0)
- return true;
- if (bfd_seek (abfd, section->filepos + offset, SEEK_SET) != 0
- || bfd_bwrite (location, count, abfd) != count)
- return false;
- return true;
- }
- /*
- INTERNAL_FUNCTION
- bfd_log2
- SYNOPSIS
- unsigned int bfd_log2 (bfd_vma x);
- DESCRIPTION
- Return the log base 2 of the value supplied, rounded up. E.g., an
- @var{x} of 1025 returns 11. A @var{x} of 0 returns 0.
- */
- unsigned int
- bfd_log2 (bfd_vma x)
- {
- unsigned int result = 0;
- if (x <= 1)
- return result;
- --x;
- do
- ++result;
- while ((x >>= 1) != 0);
- return result;
- }
- bool
- bfd_generic_is_local_label_name (bfd *abfd, const char *name)
- {
- char locals_prefix = (bfd_get_symbol_leading_char (abfd) == '_') ? 'L' : '.';
- return name[0] == locals_prefix;
- }
- /* Give a warning at runtime if someone compiles code which calls
- old routines. */
- void
- _bfd_warn_deprecated (const char *what,
- const char *file,
- int line,
- const char *func)
- {
- /* Poor man's tracking of functions we've already warned about. */
- static size_t mask = 0;
- if (~(size_t) func & ~mask)
- {
- fflush (stdout);
- /* Note: separate sentences in order to allow
- for translation into other languages. */
- if (func)
- /* xgettext:c-format */
- fprintf (stderr, _("Deprecated %s called at %s line %d in %s\n"),
- what, file, line, func);
- else
- fprintf (stderr, _("Deprecated %s called\n"), what);
- fflush (stderr);
- mask |= ~(size_t) func;
- }
- }
- /* Helper function for reading uleb128 encoded data. */
- bfd_vma
- _bfd_read_unsigned_leb128 (bfd *abfd ATTRIBUTE_UNUSED,
- bfd_byte *buf,
- unsigned int *bytes_read_ptr)
- {
- bfd_vma result;
- unsigned int num_read;
- unsigned int shift;
- unsigned char byte;
- result = 0;
- shift = 0;
- num_read = 0;
- do
- {
- byte = bfd_get_8 (abfd, buf);
- buf++;
- num_read++;
- if (shift < 8 * sizeof (result))
- {
- result |= (((bfd_vma) byte & 0x7f) << shift);
- shift += 7;
- }
- }
- while (byte & 0x80);
- *bytes_read_ptr = num_read;
- return result;
- }
- /* Read in a LEB128 encoded value from ABFD starting at *PTR.
- If SIGN is true, return a signed LEB128 value.
- *PTR is incremented by the number of bytes read.
- No bytes will be read at address END or beyond. */
- bfd_vma
- _bfd_safe_read_leb128 (bfd *abfd ATTRIBUTE_UNUSED,
- bfd_byte **ptr,
- bool sign,
- const bfd_byte * const end)
- {
- bfd_vma result = 0;
- unsigned int shift = 0;
- unsigned char byte = 0;
- bfd_byte *data = *ptr;
- while (data < end)
- {
- byte = bfd_get_8 (abfd, data);
- data++;
- if (shift < 8 * sizeof (result))
- {
- result |= ((bfd_vma) (byte & 0x7f)) << shift;
- shift += 7;
- }
- if ((byte & 0x80) == 0)
- break;
- }
- *ptr = data;
- if (sign && (shift < 8 * sizeof (result)) && (byte & 0x40))
- result |= -((bfd_vma) 1 << shift);
- return result;
- }
- /* Helper function for reading sleb128 encoded data. */
- bfd_signed_vma
- _bfd_read_signed_leb128 (bfd *abfd ATTRIBUTE_UNUSED,
- bfd_byte *buf,
- unsigned int *bytes_read_ptr)
- {
- bfd_vma result;
- unsigned int shift;
- unsigned int num_read;
- unsigned char byte;
- result = 0;
- shift = 0;
- num_read = 0;
- do
- {
- byte = bfd_get_8 (abfd, buf);
- buf ++;
- num_read ++;
- if (shift < 8 * sizeof (result))
- {
- result |= (((bfd_vma) byte & 0x7f) << shift);
- shift += 7;
- }
- }
- while (byte & 0x80);
- if (shift < 8 * sizeof (result) && (byte & 0x40))
- result |= (((bfd_vma) -1) << shift);
- *bytes_read_ptr = num_read;
- return result;
- }
- /* Write VAL in uleb128 format to P.
- END indicates the last byte of allocated space for the uleb128 value to fit
- in.
- Return a pointer to the byte following the last byte that was written, or
- NULL if the uleb128 value does not fit in the allocated space between P and
- END. */
- bfd_byte *
- _bfd_write_unsigned_leb128 (bfd_byte *p, bfd_byte *end, bfd_vma val)
- {
- bfd_byte c;
- do
- {
- if (p > end)
- return NULL;
- c = val & 0x7f;
- val >>= 7;
- if (val)
- c |= 0x80;
- *(p++) = c;
- }
- while (val);
- return p;
- }
- bool
- _bfd_generic_init_private_section_data (bfd *ibfd ATTRIBUTE_UNUSED,
- asection *isec ATTRIBUTE_UNUSED,
- bfd *obfd ATTRIBUTE_UNUSED,
- asection *osec ATTRIBUTE_UNUSED,
- struct bfd_link_info *link_info ATTRIBUTE_UNUSED)
- {
- return true;
- }
|