/* Handle #pragma, system V.4 style. Supports #pragma weak and #pragma pack.
Copyright (C) 1992 Free Software Foundation, Inc.
This file is part of GNU CC.
GNU CC 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 2, or (at your option)
GNU CC 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 GNU CC; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#ifdef HANDLE_SYSV_PRAGMA
/* Support #pragma weak by default if WEAK_ASM_OP is defined. */
#if !defined (HANDLE_PRAGMA_WEAK) && defined (WEAK_ASM_OP) && defined (SET_ASM_OP)
#define HANDLE_PRAGMA_WEAK 1
/* When structure field packing is in effect, this variable is the
number of bits to use as the maximum alignment. When packing is not
in effect, this is zero. */
extern int maximum_field_alignment
;
/* File used for outputting assembler code. */
extern FILE *asm_out_file
;
/* Handle one token of a pragma directive. TOKEN is the
current token, and STRING is its printable form. */
handle_pragma_token (string
, token
)
} state
= ps_start
, type
;
maximum_field_alignment
= align
* 8;
warning ("malformed `#pragma pack'");
else if (type
== ps_weak
)
#ifdef HANDLE_PRAGMA_WEAK
if (state
== ps_name
|| state
== ps_value
)
fprintf (asm_out_file
, "\t%s\t", WEAK_ASM_OP
);
ASM_OUTPUT_LABELREF (asm_out_file
, name
);
fputc ('\n', asm_out_file
);
fprintf (asm_out_file
, "\t%s\t", SET_ASM_OP
);
ASM_OUTPUT_LABELREF (asm_out_file
, name
);
fputc (',', asm_out_file
);
ASM_OUTPUT_LABELREF (asm_out_file
, value
);
fputc ('\n', asm_out_file
);
else if (! (state
== ps_done
|| state
== ps_start
))
warning ("malformed `#pragma weak'");
#endif /* HANDLE_PRAMA_WEAK */
if (token
&& TREE_CODE (token
) == IDENTIFIER_NODE
)
if (strcmp (IDENTIFIER_POINTER (token
), "pack") == 0)
else if (strcmp (IDENTIFIER_POINTER (token
), "weak") == 0)
if (token
&& TREE_CODE (token
) == IDENTIFIER_NODE
)
name
= IDENTIFIER_POINTER (token
);
state
= (strcmp (string
, "=") ? ps_bad
: ps_equals
);
if (token
&& TREE_CODE (token
) == IDENTIFIER_NODE
)
value
= IDENTIFIER_POINTER (token
);
if (strcmp (string
, "(") == 0)
if (token
&& TREE_CODE (token
) == INTEGER_CST
&& TREE_INT_CST_HIGH (token
) == 0)
switch (TREE_INT_CST_LOW (token
))
align
= TREE_INT_CST_LOW (token
);
else if (! token
&& strcmp (string
, ")") == 0)
if (strcmp (string
, ")") == 0)
#endif /* HANDLE_SYSV_PRAGMA */