1 /* Darwin support needed only by C/C++ frontends.
3 Free Software Foundation, Inc.
4 Contributed by Apple Computer Inc.
6 This file is part of GNU CC.
8 GNU CC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2, or (at your option)
13 GNU CC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU CC; see the file COPYING. If not, write to
20 the Free Software Foundation, 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
25 #include "coretypes.h"
36 #define BAD(msgid) do { warning (msgid); return; } while (0)
38 /* Maintain a small stack of alignments. This is similar to pragma
39 pack's stack, but simpler. */
41 static void push_field_alignment PARAMS ((int));
42 static void pop_field_alignment PARAMS ((void));
44 typedef struct align_stack
47 struct align_stack * prev;
50 static struct align_stack * field_align_stack = NULL;
53 push_field_alignment (bit_alignment)
56 align_stack *entry = (align_stack *) xmalloc (sizeof (align_stack));
58 entry->alignment = maximum_field_alignment;
59 entry->prev = field_align_stack;
60 field_align_stack = entry;
62 maximum_field_alignment = bit_alignment;
66 pop_field_alignment ()
68 if (field_align_stack)
70 align_stack *entry = field_align_stack;
72 maximum_field_alignment = entry->alignment;
73 field_align_stack = entry->prev;
77 error ("too many #pragma options align=reset");
80 /* Handlers for Darwin-specific pragmas. */
83 darwin_pragma_ignore (pfile)
84 cpp_reader *pfile ATTRIBUTE_UNUSED;
89 /* #pragma options align={mac68k|power|reset} */
92 darwin_pragma_options (pfile)
93 cpp_reader *pfile ATTRIBUTE_UNUSED;
98 if (c_lex (&t) != CPP_NAME)
99 BAD ("malformed '#pragma options', ignoring");
100 arg = IDENTIFIER_POINTER (t);
101 if (strcmp (arg, "align"))
102 BAD ("malformed '#pragma options', ignoring");
103 if (c_lex (&t) != CPP_EQ)
104 BAD ("malformed '#pragma options', ignoring");
105 if (c_lex (&t) != CPP_NAME)
106 BAD ("malformed '#pragma options', ignoring");
108 if (c_lex (&x) != CPP_EOF)
109 warning ("junk at end of '#pragma options'");
111 arg = IDENTIFIER_POINTER (t);
112 if (!strcmp (arg, "mac68k"))
113 push_field_alignment (16);
114 else if (!strcmp (arg, "power"))
115 push_field_alignment (0);
116 else if (!strcmp (arg, "reset"))
117 pop_field_alignment ();
119 warning ("malformed '#pragma options align={mac68k|power|reset}', ignoring");
122 /* #pragma unused ([var {, var}*]) */
125 darwin_pragma_unused (pfile)
126 cpp_reader *pfile ATTRIBUTE_UNUSED;
131 if (c_lex (&x) != CPP_OPEN_PAREN)
132 BAD ("missing '(' after '#pragma unused', ignoring");
137 if (tok == CPP_NAME && decl)
139 tree local = IDENTIFIER_LOCAL_VALUE (decl);
140 if (local && (TREE_CODE (local) == PARM_DECL
141 || TREE_CODE (local) == VAR_DECL))
142 TREE_USED (local) = 1;
144 if (tok != CPP_COMMA)
149 if (tok != CPP_CLOSE_PAREN)
150 BAD ("missing ')' after '#pragma unused', ignoring");
152 if (c_lex (&x) != CPP_EOF)
153 warning ("junk at end of '#pragma unused'");