OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [config/] [c4x/] [c4x-c.c] - Blame information for rev 154

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.