1/* Subroutines for the C front end on the TMS320C[34]x 2 Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 3 Free Software Foundation, Inc. 4 5 Contributed by Michael Hayes (m.hayes@elec.canterbury.ac.nz) 6 and Herman Ten Brugge (Haj.Ten.Brugge@net.HCC.nl). 7 8This file is part of GCC. 9 10GCC is free software; you can redistribute it and/or modify 11it under the terms of the GNU General Public License as published by 12the Free Software Foundation; either version 2, or (at your option) 13any later version. 14 15GCC is distributed in the hope that it will be useful, 16but WITHOUT ANY WARRANTY; without even the implied warranty of 17MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18GNU General Public License for more details. 19 20You should have received a copy of the GNU General Public License 21along with GCC; see the file COPYING. If not, write to 22the Free Software Foundation, 51 Franklin Street, Fifth Floor, 23Boston, MA 02110-1301, USA. */ 24 25#include "config.h" 26#include "system.h" 27#include "coretypes.h" 28#include "tm.h" 29#include "tree.h" 30#include "toplev.h" 31#include "cpplib.h" 32#include "c-pragma.h" 33#include "tm_p.h" 34 35static int c4x_parse_pragma (const char *, tree *, tree *); 36 37/* Handle machine specific pragmas for compatibility with existing 38 compilers for the C3x/C4x. 39 40 pragma attribute 41 ---------------------------------------------------------- 42 CODE_SECTION(symbol,"section") section("section") 43 DATA_SECTION(symbol,"section") section("section") 44 FUNC_CANNOT_INLINE(function) 45 FUNC_EXT_CALLED(function) 46 FUNC_IS_PURE(function) const 47 FUNC_IS_SYSTEM(function) 48 FUNC_NEVER_RETURNS(function) noreturn 49 FUNC_NO_GLOBAL_ASG(function) 50 FUNC_NO_IND_ASG(function) 51 INTERRUPT(function) interrupt 52 53 */ 54 55/* Parse a C4x pragma, of the form ( function [, "section"] ) \n. 56 FUNC is loaded with the IDENTIFIER_NODE of the function, SECT with 57 the STRING_CST node of the string. If SECT is null, then this 58 pragma doesn't take a section string. Returns 0 for a good pragma, 59 -1 for a malformed pragma. */ 60#define BAD(gmsgid, arg) \ 61 do { warning (OPT_Wpragmas, gmsgid, arg); return -1; } while (0) 62 63static int 64c4x_parse_pragma (name, func, sect) 65 const char *name; 66 tree *func; 67 tree *sect; 68{ 69 tree f, s, x; 70 71 if (pragma_lex (&x) != CPP_OPEN_PAREN) 72 BAD ("missing '(' after '#pragma %s' - ignored", name); 73 74 if (pragma_lex (&f) != CPP_NAME) 75 BAD ("missing function name in '#pragma %s' - ignored", name); 76 77 if (sect) 78 { 79 if (pragma_lex (&x) != CPP_COMMA) 80 BAD ("malformed '#pragma %s' - ignored", name); 81 if (pragma_lex (&s) != CPP_STRING) 82 BAD ("missing section name in '#pragma %s' - ignored", name); 83 *sect = s; 84 } 85 86 if (pragma_lex (&x) != CPP_CLOSE_PAREN) 87 BAD ("missing ')' for '#pragma %s' - ignored", name); 88 89 if (pragma_lex (&x) != CPP_EOF) 90 warning (OPT_Wpragmas, "junk at end of '#pragma %s'", name); 91 92 *func = f; 93 return 0; 94} 95 96void 97c4x_pr_CODE_SECTION (pfile) 98 cpp_reader *pfile ATTRIBUTE_UNUSED; 99{ 100 tree func, sect; 101 102 if (c4x_parse_pragma ("CODE_SECTION", &func, §)) 103 return; 104 code_tree = chainon (code_tree, 105 build_tree_list (func, 106 build_tree_list (NULL_TREE, sect))); 107} 108 109void 110c4x_pr_DATA_SECTION (pfile) 111 cpp_reader *pfile ATTRIBUTE_UNUSED; 112{ 113 tree func, sect; 114 115 if (c4x_parse_pragma ("DATA_SECTION", &func, §)) 116 return; 117 data_tree = chainon (data_tree, 118 build_tree_list (func, 119 build_tree_list (NULL_TREE, sect))); 120} 121 122void 123c4x_pr_FUNC_IS_PURE (pfile) 124 cpp_reader *pfile ATTRIBUTE_UNUSED; 125{ 126 tree func; 127 128 if (c4x_parse_pragma ("FUNC_IS_PURE", &func, 0)) 129 return; 130 pure_tree = chainon (pure_tree, build_tree_list (func, NULL_TREE)); 131} 132 133void 134c4x_pr_FUNC_NEVER_RETURNS (pfile) 135 cpp_reader *pfile ATTRIBUTE_UNUSED; 136{ 137 tree func; 138 139 if (c4x_parse_pragma ("FUNC_NEVER_RETURNS", &func, 0)) 140 return; 141 noreturn_tree = chainon (noreturn_tree, build_tree_list (func, NULL_TREE)); 142} 143 144void 145c4x_pr_INTERRUPT (pfile) 146 cpp_reader *pfile ATTRIBUTE_UNUSED; 147{ 148 tree func; 149 150 if (c4x_parse_pragma ("INTERRUPT", &func, 0)) 151 return; 152 interrupt_tree = chainon (interrupt_tree, build_tree_list (func, NULL_TREE)); 153} 154 155/* Used for FUNC_CANNOT_INLINE, FUNC_EXT_CALLED, FUNC_IS_SYSTEM, 156 FUNC_NO_GLOBAL_ASG, and FUNC_NO_IND_ASG. */ 157void 158c4x_pr_ignored (pfile) 159 cpp_reader *pfile ATTRIBUTE_UNUSED; 160{ 161} 162