From a18430a08452941c9dafa97e4cb589d59607b296 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 26 Apr 2012 10:49:44 +0000 Subject: [PATCH] 2012-04-26 Tristan Gingold * 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 * gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Default to DOUBLE_TYPE_SIZE instead of LONG_DOUBLE_TYPE_SIZE. 2012-04-26 Hristian Kirtchev * 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 --- gcc/ada/ChangeLog | 16 +++++++++ gcc/ada/a-calend.adb | 8 +++-- gcc/ada/gcc-interface/Make-lang.in | 73 ++++++++++++++------------------------ gcc/ada/gcc-interface/targtyps.c | 9 +++-- 4 files changed, 55 insertions(+), 51 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c8e7b8e..68219cc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,19 @@ +2012-04-26 Tristan Gingold + + * 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 + + * gcc-interface/targtyps.c (WIDEST_HARDWARE_FP_SIZE): Default to + DOUBLE_TYPE_SIZE instead of LONG_DOUBLE_TYPE_SIZE. + +2012-04-26 Hristian Kirtchev + + * 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 * 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 --- 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 --- 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 --- 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 -- 2.7.4