diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2013-08-13 17:13:47 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-08-13 17:13:47 +0000 |
| commit | bb29e9ff3e42ee0bd23cf85cbce0e459213b19d0 (patch) | |
| tree | 6f864ed6b97c9671f21543ea0f182b047174097a /gcc/testsuite | |
| parent | 761a8eb70ae4108515bd7d756832744350b4ff7a (diff) | |
| download | gcc-bb29e9ff3e42ee0bd23cf85cbce0e459213b19d0.zip gcc-bb29e9ff3e42ee0bd23cf85cbce0e459213b19d0.tar.gz gcc-bb29e9ff3e42ee0bd23cf85cbce0e459213b19d0.tar.bz2 | |
trans.c (Call_to_gnu): Deal with specific conditional expressions for misaligned actual parameters.
* gcc-interface/trans.c (Call_to_gnu): Deal with specific conditional
expressions for misaligned actual parameters.
From-SVN: r201700
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/valued_proc.adb | 12 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/valued_proc_pkg.ads | 15 |
3 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f962249..d1079e6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-08-13 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/valued_proc.adb: New test. + * gnat.dg/valued_proc_pkg.ads: New helper. + 2013-08-13 Jakub Jelinek <jakub@redhat.com> PR tree-optimization/57661 diff --git a/gcc/testsuite/gnat.dg/valued_proc.adb b/gcc/testsuite/gnat.dg/valued_proc.adb new file mode 100644 index 0000000..7030b43 --- /dev/null +++ b/gcc/testsuite/gnat.dg/valued_proc.adb @@ -0,0 +1,12 @@ +-- { dg-do compile } +-- { dg-options "-gnatdm -gnatws" } + +with Valued_Proc_Pkg; use Valued_Proc_Pkg; +with System; use System; + +procedure Valued_Proc is + Status : UNSIGNED_LONGWORD; + Length : POSITIVE; +begin + GetMsg (Status, UNSIGNED_WORD(Length)); +end; diff --git a/gcc/testsuite/gnat.dg/valued_proc_pkg.ads b/gcc/testsuite/gnat.dg/valued_proc_pkg.ads new file mode 100644 index 0000000..d5197ab --- /dev/null +++ b/gcc/testsuite/gnat.dg/valued_proc_pkg.ads @@ -0,0 +1,15 @@ +pragma Extend_System (Aux_DEC); +with System; use System; + +package Valued_Proc_Pkg is + + procedure GETMSG (STATUS : out UNSIGNED_LONGWORD; + MSGLEN : out UNSIGNED_WORD); + + pragma Interface (EXTERNAL, GETMSG); + + pragma IMPORT_VALUED_PROCEDURE (GETMSG, "SYS$GETMSG", + (UNSIGNED_LONGWORD, UNSIGNED_WORD), + (VALUE, REFERENCE)); + +end Valued_Proc_Pkg; |