OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

mlib-tgt-specific-vxworks.adb: Minor reformatting.

Browse Source 
2011-11-23  Thomas Quinot  <quinot@adacore.com>

	* mlib-tgt-specific-vxworks.adb: Minor reformatting.

2011-11-23  Thomas Quinot  <quinot@adacore.com>

	* Make-generated.in (Sdefault.Target_Name): Set to
	$(target_noncanonical) instead of $(target) for consistency.

From-SVN: r181669
This commit is contained in:
Thomas Quinot 2011-11-23 14:53:11 +01:00 committed by Arnaud Charlet
parent ef9924527b
commit db3dd8af71
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/Make-generated.in
View File

@ -72,7 +72,7 @@ $(ADA_GEN_SUBDIR)/stamp-sdefault : $(srcdir)/version.c Makefile
$(ECHO) " S0 : constant String := \"$(prefix)/\";" >>tmp-sdefault.adb $(ECHO) " S0 : constant String := \"$(prefix)/\";" >>tmp-sdefault.adb
$(ECHO) " S1 : constant String := \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.adb $(ECHO) " S1 : constant String := \"$(ADA_INCLUDE_DIR)/\";" >>tmp-sdefault.adb
$(ECHO) " S2 : constant String := \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.adb $(ECHO) " S2 : constant String := \"$(ADA_RTL_OBJ_DIR)/\";" >>tmp-sdefault.adb
$(ECHO) " S3 : constant String := \"$(target)/\";" >>tmp-sdefault.adb $(ECHO) " S3 : constant String := \"$(target_noncanonical)/\";" >>tmp-sdefault.adb
$(ECHO) " S4 : constant String := \"$(libsubdir)/\";" >>tmp-sdefault.adb $(ECHO) " S4 : constant String := \"$(libsubdir)/\";" >>tmp-sdefault.adb
$(ECHO) " function Include_Dir_Default_Name return String_Ptr is" >>tmp-sdefault.adb $(ECHO) " function Include_Dir_Default_Name return String_Ptr is" >>tmp-sdefault.adb
$(ECHO) " begin" >>tmp-sdefault.adb $(ECHO) " begin" >>tmp-sdefault.adb

6
gcc/ada/mlib-tgt-specific-vxworks.adb
View File

@ -7,7 +7,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2003-2008, Free Software Foundation, Inc. -- -- Copyright (C) 2003-2011, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -132,9 +132,9 @@ package body MLib.Tgt.Specific is
return ""; return "";
end Dynamic_Option; end Dynamic_Option;
----------------------------- -----------------------
-- Get_Target_Suffix -- -- Get_Target_Suffix --
----------------------------- -----------------------
function Get_Target_Suffix return String is function Get_Target_Suffix return String is
Target_Name : constant String := Sdefault.Target_Name.all; Target_Name : constant String := Sdefault.Target_Name.all;