Home | History | Annotate | Download | only in libasm 
      1 /* Add integer to a section.
      2    Copyright (C) 2002 Red Hat, Inc.
      3    Written by Ulrich Drepper <drepper (at) redhat.com>, 2002.
      4 
      5    This program is Open Source software; you can redistribute it and/or
      6    modify it under the terms of the Open Software License version 1.0 as
      7    published by the Open Source Initiative.
      8 
      9    You should have received a copy of the Open Software License along
     10    with this program; if not, you may obtain a copy of the Open Software
     11    License version 1.0 from http://www.opensource.org/licenses/osl.php or
     12    by writing the Open Source Initiative c/o Lawrence Rosen, Esq.,
     13    3001 King Ranch Road, Ukiah, CA 95482.   */
     14 
     15 #ifdef HAVE_CONFIG_H
     16 # include <config.h>
     17 #endif
     18 
     19 #include <byteswap.h>
     20 #include <endian.h>
     21 #include <inttypes.h>
     22 #include <string.h>
     23 
     24 #include <libasmP.h>
     25 
     26 #ifndef SIZE
     27 # define SIZE 8
     28 #endif
     29 
     30 #define FCT(size) _FCT(size)
     31 #define _FCT(size) asm_addint##size
     32 #define TYPE(size) _TYPE(size)
     33 #define _TYPE(size) int##size##_t
     34 #define BSWAP(size) _BSWAP(size)
     35 #define _BSWAP(size) bswap_##size
     36 
     37 
     38 int
     39 FCT(SIZE) (asmscn, num)
     40      AsmScn_t *asmscn;
     41      TYPE(SIZE) num;
     42 {
     43   if (asmscn == NULL)
     44     return -1;
     45 
     46   if (asmscn->type == SHT_NOBITS && unlikely (num != 0))
     47     {
     48       __libasm_seterrno (ASM_E_TYPE);
     49       return -1;
     50     }
     51 
     52   if (unlikely (asmscn->ctx->textp))
     53     {
     54       // XXX Needs to use backend specified pseudo-ops
     55       if (SIZE == 8)
     56 	printf ("\t.byte\t%" PRId8 "\n", (int8_t) num);
     57       else if (SIZE == 16)
     58 	printf ("\t.value\t%" PRId16 "\n", (int16_t) num);
     59       else if (SIZE == 32)
     60 	printf ("\t.long\t%" PRId32 "\n", (int32_t) num);
     61       else
     62 	{
     63 	  // XXX This is not necessary for 64-bit machines
     64 	  bool is_leb = (elf_getident (asmscn->ctx->out.elf, NULL)[EI_DATA]
     65 			 == ELFDATA2LSB);
     66 
     67 	  printf ("\t.long\t%" PRId32 "\n\t.long\t%" PRId32 "\n",
     68 		  (int32_t) (is_leb
     69 			     ? num % 0x100000000ll : num / 0x100000000ll),
     70 		  (int32_t) (is_leb
     71 			     ? num / 0x100000000ll : num % 0x100000000ll));
     72 	}
     73     }
     74   else
     75     {
     76 #if SIZE > 8
     77       bool is_leb = (elf_getident (asmscn->ctx->out.elf, NULL)[EI_DATA]
     78 		     == ELFDATA2LSB);
     79 #endif
     80       TYPE(SIZE) var = num;
     81 
     82       /* Make sure we have enough room.  */
     83       if (__libasm_ensure_section_space (asmscn, SIZE / 8) != 0)
     84 	return -1;
     85 
     86 #if SIZE > 8
     87       if ((BYTE_ORDER == LITTLE_ENDIAN && !is_leb)
     88 	  || (BYTE_ORDER == BIG_ENDIAN && is_leb))
     89 	var = BSWAP(SIZE) (var);
     90 #endif
     91 
     92       /* Copy the variable value.  */
     93       if (likely (asmscn->type == SHT_NOBITS))
     94 	memcpy (&asmscn->content->data[asmscn->content->len], &var, SIZE / 8);
     95 
     96       /* Adjust the pointer in the data buffer.  */
     97       asmscn->content->len += SIZE / 8;
     98 
     99       /* Increment the offset in the (sub)section.  */
    100       asmscn->offset += SIZE / 8;
    101     }
    102 
    103   return 0;
    104 }
    105 INTDEF(FCT(SIZE))
    106