From db3dd8af71808b993831ad6373b312b8fa9d4b50 Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Wed, 23 Nov 2011 14:53:11 +0100 Subject: [PATCH] mlib-tgt-specific-vxworks.adb: Minor reformatting. 2011-11-23 Thomas Quinot * mlib-tgt-specific-vxworks.adb: Minor reformatting. 2011-11-23 Thomas Quinot * Make-generated.in (Sdefault.Target_Name): Set to $(target_noncanonical) instead of $(target) for consistency. From-SVN: r181669 --- gcc/ada/Make-generated.in | 2 +- gcc/ada/mlib-tgt-specific-vxworks.adb | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/Make-generated.in b/gcc/ada/Make-generated.in index ac52e491eeb..833d47f2582 100644 --- a/gcc/ada/Make-generated.in +++ b/gcc/ada/Make-generated.in @@ -72,7 +72,7 @@ $(ADA_GEN_SUBDIR)/stamp-sdefault : $(srcdir)/version.c Makefile $(ECHO) " S0 : constant String := \"$(prefix)/\";" >>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) " 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) " function Include_Dir_Default_Name return String_Ptr is" >>tmp-sdefault.adb $(ECHO) " begin" >>tmp-sdefault.adb diff --git a/gcc/ada/mlib-tgt-specific-vxworks.adb b/gcc/ada/mlib-tgt-specific-vxworks.adb index 1e1fad1d777..17a9d74a17f 100644 --- a/gcc/ada/mlib-tgt-specific-vxworks.adb +++ b/gcc/ada/mlib-tgt-specific-vxworks.adb @@ -7,7 +7,7 @@ -- -- -- 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 -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -132,9 +132,9 @@ package body MLib.Tgt.Specific is return ""; end Dynamic_Option; - ----------------------------- + ----------------------- -- Get_Target_Suffix -- - ----------------------------- + ----------------------- function Get_Target_Suffix return String is Target_Name : constant String := Sdefault.Target_Name.all;