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