diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-11 00:00:06 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-11 00:00:06 +0000 |
| commit | 0eabc36b7fc9bb053cf7cf0d4be416a440f284cd (patch) | |
| tree | 0be9c7ce4e771eba0d32b285f6c3b562accf3a67 /gcc/ada/sem_prag.adb | |
| parent | 71b30311adf991d390a8f17e7bec75416ea5e676 (diff) | |
| download | gcc-0eabc36b7fc9bb053cf7cf0d4be416a440f284cd.tar.gz | |
* sem_prag.adb: Add processing for pragma External.
* snames.ads: Add entry for pragma External.
* par-prag.adb: Add pragma External.
* snames.adb: Updated to match snames.ads.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46167 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 4910c7842ac..73a4b08aada 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.558 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -5256,6 +5256,30 @@ package body Sem_Prag is Check_Arg_Is_One_Of (Arg1, Name_On, Name_Off); Extensions_Allowed := (Chars (Expression (Arg1)) = Name_On); + -------------- + -- External -- + -------------- + + -- pragma External ( + -- [ Convention =>] convention_IDENTIFIER, + -- [ Entity =>] local_NAME + -- [, [External_Name =>] static_string_EXPRESSION ] + -- [, [Link_Name =>] static_string_EXPRESSION ]); + + when Pragma_External => External : declare + C : Convention_Id; + Def_Id : Entity_Id; + + begin + GNAT_Pragma; + Check_At_Least_N_Arguments (2); + Check_At_Most_N_Arguments (4); + Process_Convention (C, Def_Id); + Note_Possible_Modification (Expression (Arg2)); + Process_Interface_Name (Def_Id, Arg3, Arg4); + Set_Exported (Def_Id, Arg2); + end External; + -------------------------- -- External_Name_Casing -- -------------------------- |