aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/adaint.c
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2012-05-15 13:02:25 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2012-05-15 13:02:25 +0200
commit8c5b2819fa3377dec06665fe8dfded5e3c638bc9 (patch)
tree03a8cd81be1c8ea5788d3f7a31ca35040a709cdc /gcc/ada/adaint.c
parent3ee8dde59cd9a08b9ad51aabed67dea280720fdf (diff)
downloadgcc-8c5b2819fa3377dec06665fe8dfded5e3c638bc9.zip
gcc-8c5b2819fa3377dec06665fe8dfded5e3c638bc9.tar.gz
gcc-8c5b2819fa3377dec06665fe8dfded5e3c638bc9.tar.bz2
[multiple changes]
2012-05-15 Yannick Moy <moy@adacore.com> * aspects.ads: Minor addition of comments to provide info on how to add new aspects. 2012-05-15 Thomas Quinot <quinot@adacore.com> * osint.ads: Minor reformatting. 2012-05-15 Thomas Quinot <quinot@adacore.com> * exp_ch5.adb, exp_pakd.adb, sem_util.adb, sem_util.ads (Expand_Assign_Array): Handle the case of a packed bit array within a record with reverse storage order (assign element by element in that case). (In_Reverse_Storage_Order_Record): New subprogram, code extracted from Exp_Pakd. 2012-05-15 Yannick Moy <moy@adacore.com> * a-ngelfu.ads: Add postconditions using Ada 2012 aspect syntax, reflecting some of the RM requirements for these functions, from Annex A.5.1 or G.2.4. 2012-05-15 Thomas Quinot <quinot@adacore.com> * adaint.c: Minor fix: move misplaced comment. 2012-05-15 Doug Rupp <rupp@adacore.com> * vms_data.ads: Enhance help for /IMMEDIATE_ERRORS to discourage use by customers. From-SVN: r187525
Diffstat (limited to 'gcc/ada/adaint.c')
-rw-r--r--gcc/ada/adaint.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 34136ff..b76b3c6 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -350,7 +350,6 @@ int __gnat_vmsp = 0;
/* Used for Ada bindings */
int __gnat_size_of_file_attributes = sizeof (struct file_attributes);
-/* Reset the file attributes as if no system call had been performed */
void __gnat_stat_to_attr (int fd, char* name, struct file_attributes* attr);
/* The __gnat_max_path_len variable is used to export the maximum
@@ -402,6 +401,8 @@ to_ptr32 (char **ptr64)
static const char ATTR_UNSET = 127;
+/* Reset the file attributes as if no system call had been performed */
+
void
__gnat_reset_attributes
(struct file_attributes* attr)