diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 11:53:11 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 11:53:11 +0200 |
commit | 3c777b50a71002d3b0cb8c62a9bbdb846e286e96 (patch) | |
tree | d31771f34536bd99b3f7a1a240d50799a237c1ba /gcc/ada/bindgen.ads | |
parent | 7188885e569f18885615d4064e393d4c6db77e80 (diff) | |
download | gcc-3c777b50a71002d3b0cb8c62a9bbdb846e286e96.zip gcc-3c777b50a71002d3b0cb8c62a9bbdb846e286e96.tar.gz gcc-3c777b50a71002d3b0cb8c62a9bbdb846e286e96.tar.bz2 |
[multiple changes]
2015-10-20 Thomas Quinot <quinot@adacore.com>
* Makefile.rtl: add the following...
* g-binenv.ads, g-binenv.adb: New unit providing runtime access
to bind time captured values ("bind environment")
* init.c: declare new global variable __gl_bind_env_addr.
* bindgen.ads, bindgen.adb (Set_Bind_Env): record a bind
environment key=value pair.
(Gen_Bind_Env_String): helper to produce the bind environment data
called in the binder generated file.
(Gen_Output_File_Ada): Call the above (Gen_Adainit): Set
__gl_bind_env_addr accordingly.
* switch-b.adb: Support for command line switch -V (user interface
to set a build environment key=value pair)
* bindusg.adb: Document the above
2015-10-20 Vincent Celier <celier@adacore.com>
* sem_prag.adb (Analyse_Pragma: Pragma Pure): Do not set the
entity as Pure if Debug_Flag_U is set.
From-SVN: r229031
Diffstat (limited to 'gcc/ada/bindgen.ads')
-rw-r--r-- | gcc/ada/bindgen.ads | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/bindgen.ads b/gcc/ada/bindgen.ads index 7159628..2f4cc78 100644 --- a/gcc/ada/bindgen.ads +++ b/gcc/ada/bindgen.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT 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- -- @@ -37,4 +37,8 @@ package Bindgen is procedure Gen_Output_File (Filename : String); -- Filename is the full path name of the binder output file + procedure Set_Bind_Env (Key, Value : String); + -- Add (Key, Value) pair to bind environment. These associations + -- are made available at run time using System.Bind_Environment. + end Bindgen; |