OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gcc-interface/trans.c (Subprogram_Body_to_gnu): Pop the stack of
[pf3gnuchains/gcc-fork.git]
/
gcc
/
ada
/
sem_attr.adb
diff --git
a/gcc/ada/sem_attr.adb
b/gcc/ada/sem_attr.adb
index
aa798b0
..
210e49c
100644
(file)
--- a/
gcc/ada/sem_attr.adb
+++ b/
gcc/ada/sem_attr.adb
@@
-4549,7
+4549,7
@@
package body Sem_Attr is
if Attr_Id = Attribute_Storage_Pool then
if Present (Get_Rep_Pragma (Etype (Entity (N)),
if Attr_Id = Attribute_Storage_Pool then
if Present (Get_Rep_Pragma (Etype (Entity (N)),
- Name_Simple_Storage_Pool))
+ Name_Simple_Storage_Pool
_Type
))
then
Error_Msg_Name_1 := Aname;
Error_Msg_N ("cannot use % attribute for type with simple " &
then
Error_Msg_Name_1 := Aname;
Error_Msg_N ("cannot use % attribute for type with simple " &
@@
-4570,7
+4570,7
@@
package body Sem_Attr is
else
if not Present (Get_Rep_Pragma (Etype (Entity (N)),
else
if not Present (Get_Rep_Pragma (Etype (Entity (N)),
- Name_Simple_Storage_Pool))
+ Name_Simple_Storage_Pool
_Type
))
then
Error_Attr_P
("cannot use % attribute for type without simple " &
then
Error_Attr_P
("cannot use % attribute for type without simple " &