diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 11:06:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 11:06:20 +0200 |
| commit | ba4a2f78eeb327397844448956bcc7abd5729050 (patch) | |
| tree | 756c6f16bfba7fb26f0b99204170088a8412a739 /gcc/ada/bindgen.adb | |
| parent | 78246a6e7541ef1c2008e68e54c941d694926fcd (diff) | |
| download | gcc-ba4a2f78eeb327397844448956bcc7abd5729050.zip gcc-ba4a2f78eeb327397844448956bcc7abd5729050.tar.gz gcc-ba4a2f78eeb327397844448956bcc7abd5729050.tar.bz2 | |
[multiple changes]
2009-04-17 Pascal Obry <obry@adacore.com>
* initialize.c: Set gnat_argv with UTF-8 encoded strings on Windows.
* adaint.h, argv.c, bindgen.adb: Reverted to previous version.
2009-04-17 Robert Dewar <dewar@adacore.com>
* a-except.adb, a-except-2005.adb: Add PE_Address_Of_Intrinsic
* sem_attr.adb (Analyze_Attribute, case Address): Use
PE_Address_Of_Intrinsic.
* types.ads: Add PE_Address_Of_Intrinsic
* types.h: Add PE_Address_Of_Intrinsic
From-SVN: r146226
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 37 |
1 files changed, 6 insertions, 31 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index ef90c6c..ce81c7a 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -1456,17 +1456,6 @@ package body Bindgen is WBI (" is"); - -- ??? the following code needs commenting - - if not Configurable_Run_Time_Mode then - WBI (" procedure Init_Args"); - WBI (" (argc : Integer;"); - WBI (" argv : System.Address;"); - WBI (" envp : System.Address);"); - WBI (" pragma Import (C, Init_Args, ""__gnat_init_args"");"); - WBI (""); - end if; - else if Exit_Status_Supported_On_Target then Set_String (" return Integer is"); @@ -1580,16 +1569,9 @@ package body Bindgen is -- Acquire command line arguments if present on target if Command_Line_Args_On_Target then - if Configurable_Run_Time_Mode then - WBI (" gnat_argc := argc;"); - WBI (" gnat_argv := argv;"); - WBI (" gnat_envp := envp;"); - - -- ??? this else needs a comment - else - WBI (" Init_Args (argc, argv, envp);"); - end if; - + WBI (" gnat_argc := argc;"); + WBI (" gnat_argv := argv;"); + WBI (" gnat_envp := envp;"); WBI (""); -- If configurable run time and no command line args, then nothing @@ -1750,16 +1732,9 @@ package body Bindgen is -- arguments are present on target if Command_Line_Args_On_Target then - if Configurable_Run_Time_Mode then - WBI (" gnat_argc = argc;"); - WBI (" gnat_argv = argv;"); - WBI (" gnat_envp = envp;"); - - -- ??? this call must be commented - else - WBI (" __gnat_init_args (argc, argv, envp);"); - end if; - + WBI (" gnat_argc = argc;"); + WBI (" gnat_argv = argv;"); + WBI (" gnat_envp = envp;"); WBI (" "); -- If configurable run-time, then nothing to do, since in this case |