2012-04-26 Tristan Gingold <gingold@adacore.com>

	* gcc-interface/Make-lang.in: Update dependencies.
	Remove s-traceb and tracebak objects from gnat1 and gnatbind (not used).
	Remove s-tasdeb and s-vaflop rules (not used).

2012-04-26  Olivier Hainque  <hainque@adacore.com>

	* gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Default to
	DOUBLE_TYPE_SIZE instead of LONG_DOUBLE_TYPE_SIZE.

2012-04-26  Hristian Kirtchev  <kirtchev@adacore.com>

	* a-calend.adb (Day_Of_Week): Keep the internal
	usage of UTC_Time_Offset consistent with Time_Of and Split.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@186872 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c8e7b8e..68219cc 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,19 @@
+2012-04-26  Tristan Gingold  <gingold@adacore.com>
+
+       * gcc-interface/Make-lang.in: Update dependencies.
+       Remove s-traceb and tracebak objects from gnat1 and gnatbind (not used).
+       Remove s-tasdeb and s-vaflop rules (not used).
+
+2012-04-26  Olivier Hainque  <hainque@adacore.com>
+
+       * gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Default to
+       DOUBLE_TYPE_SIZE instead of LONG_DOUBLE_TYPE_SIZE.
+
+2012-04-26  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * a-calend.adb (Day_Of_Week): Keep the internal
+       usage of UTC_Time_Offset consistent with Time_Of and Split.
+
 2012-04-26  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * sem_ch5.adb (Analyze_Loop_Parameter_Specification): Do not freeze

diff --git a/gcc/ada/a-calend.adb b/gcc/ada/a-calend.adb
index 94257c2..cecbc52 100644 (file)
--- a/gcc/ada/a-calend.adb
+++ b/gcc/ada/a-calend.adb
@@ -1154,8 +1154,12 @@ package body Ada.Calendar is
       -----------------
 
       function Day_Of_Week (Date : Time) return Integer is
-         Date_N    : constant Time_Rep := Time_Rep (Date);
-         Time_Zone : constant Long_Integer := UTC_Time_Offset (Date, True);
+         Date_N : constant Time_Rep := Time_Rep (Date);
+
+         Time_Zone : constant Long_Integer := UTC_Time_Offset (Date, False);
+         --  Keep the internal usage of UTC_Time_Offset consistent with Time_Of
+         --  and Split.
+
          Ada_Low_N : Time_Rep;
          Day_Count : Long_Integer;
          Day_Dur   : Time_Dur;

diff --git a/gcc/ada/gcc-interface/Make-lang.in b/gcc/ada/gcc-interface/Make-lang.in
index 0ce3f98..beb1354 100644 (file)
--- a/gcc/ada/gcc-interface/Make-lang.in
+++ b/gcc/ada/gcc-interface/Make-lang.in
@@ -177,7 +177,7 @@ GCC_LINK=$(LINKER) $(GCC_LINKERFLAGS) -static-libgcc $(LDFLAGS)
 # Object files for gnat1 from C sources.
 GNAT1_C_OBJS = ada/adadecode.o ada/adaint.o ada/argv.o ada/cio.o \
  ada/cstreams.o ada/env.o ada/init.o ada/initialize.o ada/raise.o \
- ada/seh_init.o ada/targext.o ada/tracebak.o ada/cuintp.o ada/decl.o \
+ ada/seh_init.o ada/targext.o ada/cuintp.o ada/decl.o \
  ada/misc.o ada/utils.o ada/utils2.o ada/trans.o ada/targtyps.o
 
 # Object files from Ada sources that are used by gnat1
@@ -324,7 +324,6 @@ GNAT_ADA_OBJS =     \
  ada/s-strhas.o        \
  ada/s-string.o        \
  ada/s-strops.o        \
- ada/s-traceb.o        \
  ada/s-traent.o        \
  ada/s-unstyp.o        \
  ada/s-utf_32.o        \
@@ -423,7 +422,6 @@ GNATBIND_OBJS = \
  ada/raise.o      \
  ada/seh_init.o   \
  ada/targext.o    \
- ada/tracebak.o   \
  ada/ada.o        \
  ada/a-clrefi.o   \
  ada/a-comlin.o   \
@@ -505,7 +503,6 @@ GNATBIND_OBJS = \
  ada/s-stoele.o   \
  ada/s-strhas.o   \
  ada/s-strops.o   \
- ada/s-traceb.o   \
  ada/s-traent.o   \
  ada/s-unstyp.o   \
  ada/s-utf_32.o   \
@@ -1181,18 +1178,6 @@ ADA_TREE_H = ada/gcc-interface/ada-tree.h
 
 # Special flags - see gcc-interface/Makefile.in for the template
 
-ada/s-traceb.o : ada/s-traceb.adb ada/s-traceb.ads
-       $(CC) -c $(ALL_ADAFLAGS) $(FORCE_DEBUG_ADAFLAGS) $(ADA_INCLUDES) \
-         $< $(OUTPUT_OPTION)
-
-ada/s-tasdeb.o  : ada/s-tasdeb.adb ada/s-tasdeb.ads
-       $(CC) -c $(ALL_ADAFLAGS) $(FORCE_DEBUG_ADAFLAGS) -O0 $(ADA_INCLUDES) \
-         $< $(OUTPUT_OPTION)
-
-ada/s-vaflop.o  : ada/s-vaflop.adb ada/s-vaflop.ads
-       $(CC) -c -O $(ALL_ADAFLAGS) $(FORCE_DEBUG_ADAFLAGS) $(ADA_INCLUDES) \
-         $< $(OUTPUT_OPTION)
-
 ada/a-except.o  : ada/a-except.adb ada/a-except.ads
        $(CC) -c $(ALL_ADAFLAGS) $(FORCE_DEBUG_ADAFLAGS) -O1 -fno-inline \
         $(ADA_INCLUDES) $< $(OUTPUT_OPTION)
@@ -1209,10 +1194,6 @@ ada/a-tags.o  : ada/a-tags.adb ada/a-tags.ads
        $(CC) -c $(ALL_ADAFLAGS) $(FORCE_DEBUG_ADAFLAGS) $(ADA_INCLUDES) \
          $< $(OUTPUT_OPTION)
 
-ada/tracebak.o : ada/tracebak.c $(CONFIG_H) $(SYSTEM_H)
-       $(COMPILER) -c $(ALL_COMPILERFLAGS) $(ADA_CFLAGS) $(ALL_CPPFLAGS) \
-             $(INCLUDES) -fno-omit-frame-pointer $< $(OUTPUT_OPTION)
-
 # dependencies for windows specific tool (mdll)
 
 ada/mdll.o : ada/mdll.adb ada/mdll.ads ada/mdll-fil.ads ada/mdll-utl.ads
@@ -2224,31 +2205,31 @@ ada/exp_ch9.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
    ada/exp_ch9.adb ada/exp_dbug.ads ada/exp_disp.ads ada/exp_pakd.ads \
    ada/exp_sel.ads ada/exp_smem.ads ada/exp_tss.ads ada/exp_util.ads \
    ada/exp_util.adb ada/expander.ads ada/fname.ads ada/fname-uf.ads \
-   ada/freeze.ads ada/get_targ.ads ada/gnat.ads ada/g-htable.ads \
-   ada/gnatvsn.ads ada/hostparm.ads ada/inline.ads ada/interfac.ads \
-   ada/itypes.ads ada/lib.ads ada/lib-load.ads ada/lib-util.ads \
-   ada/lib-xref.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
-   ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads ada/opt.adb \
-   ada/output.ads ada/put_alfa.ads ada/restrict.ads ada/restrict.adb \
-   ada/rident.ads ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb \
-   ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
-   ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
-   ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
-   ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_disp.ads \
-   ada/sem_elab.ads ada/sem_eval.ads ada/sem_prag.ads ada/sem_res.ads \
-   ada/sem_type.ads ada/sem_util.ads ada/sem_util.adb ada/sem_warn.ads \
-   ada/sinfo.ads ada/sinfo.adb ada/sinput.ads ada/snames.ads \
-   ada/sprint.ads ada/stand.ads ada/stringt.ads ada/style.ads \
-   ada/styleg.ads ada/styleg.adb ada/stylesw.ads ada/system.ads \
-   ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads \
-   ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads \
-   ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads \
-   ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads \
-   ada/s-wchcon.ads ada/table.ads ada/table.adb ada/targparm.ads \
-   ada/tbuild.ads ada/tbuild.adb ada/tree_io.ads ada/ttypes.ads \
-   ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
-   ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/validsw.ads \
-   ada/widechar.ads 
+   ada/freeze.ads ada/get_targ.ads ada/gnat.ads ada/g-byorma.ads \
+   ada/g-htable.ads ada/gnatvsn.ads ada/hostparm.ads ada/inline.ads \
+   ada/interfac.ads ada/itypes.ads ada/lib.ads ada/lib-load.ads \
+   ada/lib-util.ads ada/lib-xref.ads ada/namet.ads ada/namet.adb \
+   ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads \
+   ada/opt.adb ada/output.ads ada/put_alfa.ads ada/restrict.ads \
+   ada/restrict.adb ada/rident.ads ada/rtsfind.ads ada/scans.ads \
+   ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
+   ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
+   ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
+   ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
+   ada/sem_ch9.ads ada/sem_disp.ads ada/sem_elab.ads ada/sem_eval.ads \
+   ada/sem_prag.ads ada/sem_res.ads ada/sem_type.ads ada/sem_util.ads \
+   ada/sem_util.adb ada/sem_warn.ads ada/sinfo.ads ada/sinfo.adb \
+   ada/sinput.ads ada/sinput.adb ada/snames.ads ada/sprint.ads \
+   ada/stand.ads ada/stringt.ads ada/style.ads ada/styleg.ads \
+   ada/styleg.adb ada/stylesw.ads ada/system.ads ada/s-exctab.ads \
+   ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
+   ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads \
+   ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
+   ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
+   ada/table.ads ada/table.adb ada/targparm.ads ada/tbuild.ads \
+   ada/tbuild.adb ada/tree_io.ads ada/ttypes.ads ada/types.ads \
+   ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
+   ada/unchdeal.ads ada/urealp.ads ada/validsw.ads ada/widechar.ads 
 
 ada/exp_code.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
    ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
@@ -3592,8 +3573,6 @@ ada/s-strops.o : ada/ada.ads ada/a-unccon.ads ada/system.ads \
    ada/s-secsta.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-strops.ads \
    ada/s-strops.adb 
 
-ada/s-traceb.o : ada/system.ads ada/s-traceb.ads ada/s-traceb.adb 
-
 ada/s-traent.o : ada/system.ads ada/s-traent.ads ada/s-traent.adb 
 
 ada/s-unstyp.o : ada/system.ads ada/s-unstyp.ads 

diff --git a/gcc/ada/gcc-interface/targtyps.c b/gcc/ada/gcc-interface/targtyps.c
index 78df4dd..cfc45e7 100644 (file)
--- a/gcc/ada/gcc-interface/targtyps.c
+++ b/gcc/ada/gcc-interface/targtyps.c
@@ -6,7 +6,7 @@
  *                                                                          *
  *                                  Body                                    *
  *                                                                          *
- *          Copyright (C) 1992-2011, Free Software Foundation, Inc.         *
+ *          Copyright (C) 1992-2012, 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- *
@@ -54,8 +54,13 @@
 #define ADA_LONG_TYPE_SIZE LONG_TYPE_SIZE
 #endif
 
+/* If we don't have a target definition of WIDEST_HARDWARE_FP_SIZE, assume
+   DOUBLE_TYPE_SIZE.  We used to default to LONG_DOUBLE_TYPE_SIZE, which now
+   most often maps 128 bits implemented with very inefficient software
+   emulations so is incorrect as a hardware size estimate.  */
+
 #ifndef WIDEST_HARDWARE_FP_SIZE
-#define WIDEST_HARDWARE_FP_SIZE LONG_DOUBLE_TYPE_SIZE
+#define WIDEST_HARDWARE_FP_SIZE DOUBLE_TYPE_SIZE
 #endif
 
 /* The following provide a functional interface for the front end Ada code