+2016-04-27 Hristian Kirtchev <kirtchev@adacore.com>
+
+ * lib-xref.adb, exp_ch3.adb: Minor reformatting.
+
+2016-04-27 Nicolas Roche <roche@adacore.com>
+
+ * rtinit.c: Add weak symbol __gnat_do_argv_expansion.
+
2016-04-27 Hristian Kirtchev <kirtchev@adacore.com>
* sem_prag.adb (Process_Atomic_Independent_Shared_Volatile): Code
-- would otherwise make two copies. The RM allows removing redunant
-- Adjust/Finalize calls, but does not allow insertion of extra ones.
- -- This part is disabled for now, because it breaks GPS builds.
+ -- This part is disabled for now, because it breaks GPS builds
return (False -- ???
and then Nkind (Expr_Q) = N_Explicit_Dereference
begin
if Nkind (Decl) = N_Object_Declaration
and then Is_Entity_Name
- (Original_Node ((Object_Definition (Decl))))
+ (Original_Node (Object_Definition (Decl)))
then
Tref :=
- Entity ((Original_Node ((Object_Definition (Decl)))));
+ Entity (Original_Node (Object_Definition (Decl)));
end if;
end;
end if;
* *
* C Implementation File *
* *
- * Copyright (C) 2014-2015, Free Software Foundation, Inc. *
+ * Copyright (C) 2014-2016, 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- *
#define EXPAND_ARGV_RATE 128
+int __gnat_do_argv_expansion = 1;
+#pragma weak __gnat_do_argv_expansion
+
static void
append_arg (int *index, LPWSTR dir, LPWSTR value,
char ***argv, int *last, int quoted)
quoted = (wargv[k][0] == _T('\''));
/* Check for wildcard expansion if the argument is not quoted. */
- if (!quoted
+ if (!quoted && __gnat_do_argv_expansion
&& (_tcsstr (wargv[k], _T("?")) != 0 ||
_tcsstr (wargv[k], _T("*")) != 0))
{
/* No wildcard. Store parameter as-is. Remove quote if
needed. */
append_arg (&argc_expanded, NULL, wargv[k],
- &gnat_argv, &last, quoted);
+ &gnat_argv, &last,
+ quoted && __gnat_do_argv_expansion);
}
}