Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/pru/pru-pragma.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* PRU target specific pragmas
2 Copyright (C) 2015-2020 Free Software Foundation, Inc.
3 Contributed by Dimitar Dimitrov <dimitar@dinux.eu>
4
5 This file is part of GCC.
6
7 GCC is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published
9 by the Free Software Foundation; either version 3, or (at your
10 option) any later version.
11
12 GCC is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
15 License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
20
21 #define IN_TARGET_CODE 1
22
23 #include "config.h"
24 #include "system.h"
25 #include "coretypes.h"
26 #include "tm.h"
27 #include "alias.h"
28 #include "symtab.h"
29 #include "tree.h"
30 #include "c-family/c-pragma.h"
31 #include "c-family/c-common.h"
32 #include "diagnostic-core.h"
33 #include "cpplib.h"
34 #include "pru-protos.h"
35
36
37 /* Implements the "pragma CTABLE_ENTRY" pragma. This pragma takes a
38 CTABLE index and an address, and instructs the compiler that
39 LBCO/SBCO can be used on that base address.
40
41 WARNING: Only immediate constant addresses are currently supported. */
42 static void
43 pru_pragma_ctable_entry (cpp_reader * reader ATTRIBUTE_UNUSED)
44 {
45 tree ctable_index, base_addr;
46 enum cpp_ttype type;
47
48 type = pragma_lex (&ctable_index);
49 if (type == CPP_NUMBER && tree_fits_uhwi_p (ctable_index))
50 {
51 type = pragma_lex (&base_addr);
52 if (type == CPP_NUMBER && tree_fits_uhwi_p (base_addr))
53 {
54 unsigned HOST_WIDE_INT i = tree_to_uhwi (ctable_index);
55 unsigned HOST_WIDE_INT base = tree_to_uhwi (base_addr);
56
57 type = pragma_lex (&base_addr);
58 if (type != CPP_EOF)
59 error ("junk at end of %<#pragma CTABLE_ENTRY%>");
60 else if (i >= ARRAY_SIZE (pru_ctable))
61 error ("%<CTABLE_ENTRY%> index %" HOST_WIDE_INT_PRINT "d"
62 " is not valid", i);
63 else if (pru_ctable[i].valid && pru_ctable[i].base != base)
64 error ("redefinition of %<CTABLE_ENTRY "
65 "%" HOST_WIDE_INT_PRINT "d%>", i);
66 else
67 {
68 if (base & 0xff)
69 warning (0, "%<CTABLE_ENTRY%> base address is not "
70 "a multiple of 256");
71 pru_ctable[i].base = base;
72 pru_ctable[i].valid = true;
73 }
74 return;
75 }
76 }
77 error ("malformed %<#pragma CTABLE_ENTRY%> variable address");
78 }
79
80 /* Implements REGISTER_TARGET_PRAGMAS. */
81 void
82 pru_register_pragmas (void)
83 {
84 c_register_pragma (NULL, "ctable_entry", pru_pragma_ctable_entry);
85 c_register_pragma (NULL, "CTABLE_ENTRY", pru_pragma_ctable_entry);
86 }