From 2b3d67a55b8f6589dd52eea452e464c628d20bdf Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 11 Oct 2010 11:04:40 +0200 Subject: [multiple changes] 2010-10-11 Robert Dewar * sem_prag.adb, sem_aggr.adb, sprint.adb: Minor reformatting. 2010-10-11 Javier Miranda * exp_ch5.ads, exp_ch6.ads (Expand_N_Extended_Return_Statement): Moved to exp_ch6. (Expand_N_Simple_Return_Statement): Moved to exp_ch6. * exp_ch5.adb, exp_ch6.adb (Expand_Non_Function_Return): Moved to exp_ch6. (Expand_Simple_Function_Return): Move to exp_ch6. (Expand_N_Extended_Return_Statement): Moved to exp_ch6. (Expand_N_Simple_Return_Statement): Moved to exp_ch6. 2010-10-11 Robert Dewar * snames.ads-tmpl: Add names for aspects. * aspects.ads, aspects.adb: New. * gcc-interface/Make-lang.in: Update dependencies. From-SVN: r165281 --- gcc/ada/sprint.adb | 2 -- 1 file changed, 2 deletions(-) (limited to 'gcc/ada/sprint.adb') diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 816750c..c35ef0d 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -801,7 +801,6 @@ package body Sprint is -- Select print circuit based on node kind case Nkind (Node) is - when N_Abort_Statement => Write_Indent_Str_Sloc ("abort "); Sprint_Comma_List (Names (Node)); @@ -3091,7 +3090,6 @@ package body Sprint is Write_Char (';'); end if; end if; - end case; if Nkind (Node) in N_Subexpr -- cgit v1.1