From 019578498e189c256e1238fe7d981fb02740a71a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 13 Jul 2009 10:39:28 +0200 Subject: [multiple changes] 2009-07-13 Robert Dewar * gnat_ugn.texi: The gnatf switch no longer is needed to get full details on unsupported constructs. * rtsfind.adb: Remove references to All_Errors_Mode, give errors unconditionally. * s-trafor-default.adb: Correct some warnings * s-valwch.adb, a-calend.adb, freeze.adb, prj.ads, s-vmexta.adb, sem.adb, sem_ch10.adb, sem_ch6.adb, sem_disp.adb, vxaddr2line.adb: Minor reformatting. * par-ch4.adb (Conditional_Expression): Capture proper location for conditional expression, should point to IF. * s-tassta.adb, a-wtdeau.adb, s-tasren.adb, s-arit64.adb, s-imgdec.adb, s-direio.adb, s-tpobop.adb, g-socket.adb, s-tposen.adb, s-taskin.adb, g-calend.adb, s-regpat.adb, s-scaval.adb, g-catiio.adb: Minor code reorganization (use conditional expressions). 2009-07-13 Ed Schonberg * exp_util.adb (Remove_Side_Effects): If the expression is a call to a build-in-place function that returns an inherently limited type (not just a task type) create proper object declaration so that extra build-in-place actuals are properly added to the call. From-SVN: r149551 --- gcc/ada/s-valwch.adb | 1 - 1 file changed, 1 deletion(-) (limited to 'gcc/ada/s-valwch.adb') diff --git a/gcc/ada/s-valwch.adb b/gcc/ada/s-valwch.adb index fd573f8..b2db500 100644 --- a/gcc/ada/s-valwch.adb +++ b/gcc/ada/s-valwch.adb @@ -119,7 +119,6 @@ package body System.Val_WChar is if S (F + 1) = '[' then W := Wide_Wide_Character'Val (UTF_32 ('[', WCEM_Brackets)); - else W := Wide_Wide_Character'Val (UTF_32 (S (F + 1), EM)); end if; -- cgit v1.1