summaryrefslogtreecommitdiff
path: root/gcc/ada/s-tpopde-vms.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2007-12-13 10:19:04 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2007-12-13 10:19:04 +0000
commitff84c916d0b0a60f7b83fbe7729b275b9d6abcc2 (patch)
tree2d7d450cb2b59f3695b897cfe5157b878e24aa40 /gcc/ada/s-tpopde-vms.ads
parente2a33c1825a7cbbb0061b24d7fccf70c172ddd5e (diff)
downloadgcc-ff84c916d0b0a60f7b83fbe7729b275b9d6abcc2.tar.gz
2007-12-06 Robert Dewar <dewar@adacore.com>
* s-osinte-lynxos-3.ads, s-osinte-hpux.ads, s-osinte-solaris-posix.ads, s-osinte-freebsd.ads, s-osinte-lynxos.ads, s-osinte-tru64.ads, s-osinte-mingw.ads, s-osinte-aix.ads, s-osinte-hpux-dce.ads, s-osinte-irix.ads, s-osinte-solaris.ads, s-intman-vms.adb, s-osinte-vms.ads, s-osinte-vxworks6.ads, s-osinte-vxworks.ads, s-auxdec.ads, s-auxdec-vms_64.ads, s-osinte-darwin.ads, s-taprop-vms.adb, s-interr-sigaction.adb, s-osinte-linux-hppa.ads, i-vxwork-x86.ads, s-tpopde-vms.ads: Add missing pragma Convention C for subprogram pointers. * g-ctrl_c.adb: New file. * g-ctrl_c.ads (Install_Handler): New body. * freeze.adb (Freeze_Subprogram): Use new flag Has_Pragma_Inline_Always instead of obsolete function Is_Always_Inlined. (Freeze_Entity): check for tagged type in imported C subprogram (Freeze_Entity): check for 8-bit boolean in imported C subprogram (Freeze_Entity): check for convention Ada subprogram pointer in imported C subprogram. (Freeze_Fixed_Point_Type): In the case of a base type where the low bound would be chopped off and go from negative to zero, force Loval_Excl_EP to be the same as Loval_Incl_EP (the included lower bound) so that the size computation for the base type will take negative values into account. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130813 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tpopde-vms.ads')
-rw-r--r--gcc/ada/s-tpopde-vms.ads3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/s-tpopde-vms.ads b/gcc/ada/s-tpopde-vms.ads
index 34722416f72..3e2c742caa9 100644
--- a/gcc/ada/s-tpopde-vms.ads
+++ b/gcc/ada/s-tpopde-vms.ads
@@ -7,7 +7,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 2000-2005 Free Software Foundation, Inc. --
+-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -38,6 +38,7 @@ with System.Aux_DEC;
package System.Task_Primitives.Operations.DEC is
procedure Interrupt_AST_Handler (ID : Address);
+ pragma Convention (C, Interrupt_AST_Handler);
-- Handles the AST for Ada95 Interrupts.
procedure RMS_AST_Handler (ID : Address);