aboutsummaryrefslogtreecommitdiff
path: root/gas/macro.h
blob: 893b0c6660b606877c5db7e5b9d3c67381df1786 (plain)
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
/* macro.h - header file for macro support for gas
   Copyright (C) 1994-2022 Free Software Foundation, Inc.

   Written by Steve and Judy Chamberlain of Cygnus Support,
      sac@cygnus.com

   This file is part of GAS, the GNU Assembler.

   GAS 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, or (at your option)
   any later version.

   GAS 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 GAS; see the file COPYING.  If not, write to the Free
   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */

#ifndef MACRO_H

#define MACRO_H

/* Structures used to store macros.

   Each macro knows its name and included text.  It gets built with a
   list of formal arguments, and also keeps a hash table which points
   into the list to speed up formal search.  Each formal knows its
   name and its default value.  Each time the macro is expanded, the
   formals get the actual values attached to them.  */

enum formal_type
  {
    FORMAL_OPTIONAL,
    FORMAL_REQUIRED,
    FORMAL_VARARG
  };

/* Describe the formal arguments to a macro.  */

typedef struct formal_struct {
  struct formal_struct *next;	/* Next formal in list.  */
  sb name;			/* Name of the formal.  */
  sb def;			/* The default value.  */
  sb actual;			/* The actual argument (changed on each expansion).  */
  int index;			/* The index of the formal 0..formal_count - 1.  */
  enum formal_type type;	/* The kind of the formal.  */
} formal_entry;

/* Other values found in the index field of a formal_entry.  */
#define QUAL_INDEX (-1)
#define NARG_INDEX (-2)
#define LOCAL_INDEX (-3)

/* Describe the macro.  */

typedef struct macro_struct
{
  sb sub;				/* Substitution text.  */
  int formal_count;			/* Number of formal args.  */
  formal_entry *formals;		/* Pointer to list of formal_structs.  */
  struct htab *formal_hash;		/* Hash table of formals.  */
  const char *name;			/* Macro name.  */
  const char *file;				/* File the macro was defined in.  */
  unsigned int line;			/* Line number of definition.  */
} macro_entry;

/* Whether any macros have been defined.  */

extern int macro_defined;

/* The macro nesting level.  */

extern int macro_nest;

/* The macro hash table.  */

extern struct htab *macro_hash;

struct macro_hash_entry
{
  const char *name;
  macro_entry *macro;
};

typedef struct macro_hash_entry macro_hash_entry_t;

/* Hash function for a macro_hash_entry.  */

static inline hashval_t
hash_macro_entry (const void *e)
{
  const macro_hash_entry_t *entry = (const macro_hash_entry_t *) e;
  return htab_hash_string (entry->name);
}

/* Equality function for a macro_hash_entry.  */

static inline int
eq_macro_entry (const void *a, const void *b)
{
  const macro_hash_entry_t *ea = (const macro_hash_entry_t *) a;
  const macro_hash_entry_t *eb = (const macro_hash_entry_t *) b;

  return strcmp (ea->name, eb->name) == 0;
}

static inline macro_hash_entry_t *
macro_entry_alloc (const char *name, macro_entry *macro)
{
  macro_hash_entry_t *entry = XNEW (macro_hash_entry_t);
  entry->name = name;
  entry->macro = macro;
  return entry;
}

static inline macro_entry *
macro_entry_find (htab_t table, const char *name)
{
  macro_hash_entry_t needle = { name, NULL };
  macro_hash_entry_t *entry = htab_find (table, &needle);
  return entry != NULL ? entry->macro : NULL;
}

struct formal_hash_entry
{
  const char *name;
  formal_entry *formal;
};

typedef struct formal_hash_entry formal_hash_entry_t;

/* Hash function for a macro_hash_entry.  */

static inline hashval_t
hash_formal_entry (const void *e)
{
  const formal_hash_entry_t *entry = (const formal_hash_entry_t *) e;
  return htab_hash_string (entry->name);
}

/* Equality function for a formal_hash_entry.  */

static inline int
eq_formal_entry (const void *a, const void *b)
{
  const formal_hash_entry_t *ea = (const formal_hash_entry_t *) a;
  const formal_hash_entry_t *eb = (const formal_hash_entry_t *) b;

  return strcmp (ea->name, eb->name) == 0;
}

static inline formal_hash_entry_t *
formal_entry_alloc (const char *name, formal_entry *formal)
{
  formal_hash_entry_t *entry = XNEW (formal_hash_entry_t);
  entry->name = name;
  entry->formal = formal;
  return entry;
}

static inline formal_entry *
formal_entry_find (htab_t table, const char *name)
{
  formal_hash_entry_t needle = { name, NULL };
  formal_hash_entry_t *entry = htab_find (table, &needle);
  return entry != NULL ? entry->formal : NULL;
}

extern int buffer_and_nest (const char *, const char *, sb *,
			    size_t (*) (sb *));
extern void macro_init (int, int, int,
			size_t (*) (const char *, size_t, sb *, offsetT *));
extern void macro_set_alternate (int);
extern void macro_mri_mode (int);
extern const char *define_macro (size_t, sb *, sb *, size_t (*) (sb *),
				 const char *, unsigned int, const char **);
extern int check_macro (const char *, sb *, const char **, macro_entry **);
extern void delete_macro (const char *);
extern const char *expand_irp (int, size_t, sb *, sb *, size_t (*) (sb *));

#endif