diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 09:53:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 09:53:11 +0000 |
| commit | d1cd139765481d2a4c9082b96ca83e9eae543ad6 (patch) | |
| tree | d31771f34536bd99b3f7a1a240d50799a237c1ba /gcc/ada/bindusg.adb | |
| parent | 5c9329f44ef22adb94632ff7e4ec5abf78973ca2 (diff) | |
| download | gcc-d1cd139765481d2a4c9082b96ca83e9eae543ad6.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229031 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/bindusg.adb')
| -rw-r--r-- | gcc/ada/bindusg.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb index b1029487dfa..e5c0e362faa 100644 --- a/gcc/ada/bindusg.adb +++ b/gcc/ada/bindusg.adb @@ -4,9 +4,9 @@ -- -- -- B I N D U S G -- -- -- --- B o d y -- +-- B o d y -- -- -- --- Copyright (C) 1992-2014, 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- -- @@ -228,6 +228,10 @@ package body Bindusg is Write_Line (" -v Verbose mode. Error messages, " & "header, summary output to stdout"); + -- Line for -V switch + + Write_Line (" -Vkey=val Record bind-time variable key " & + "with value val"); -- Line for -w switch Write_Line (" -wx Warning mode. (x=s/e for " & |