My recent changes are in monotone at org.emacs.ada-mode.sjw at 
279a675319535670119e771355becbf6170cb22d - this includes the gpr-mode changes I 
wrote about earlier.

Also minor changes in build/common.make and build/wisi/Makefile - you may 
disapprove of the former, but I have yet to work out how to run just one test, 
and this way one can run through all the tests and collect the failures at the 
end.

I noticed that there are some failing tests, diffs at end.

autoloads.el calls up ada-project, project-menu, project patches; I don't think 
anything uses ada-project, and the other two are missing (I dummied them).

nidhoggr:wisi simon$ find . -name \*.diff -not -size 0
./ada_mode-parens.adb.diff
./aspects.ads.diff
./gpr-skel.gpr.diff
nidhoggr:wisi simon$ more ada_mode-parens.adb.diff 
--- ../../test/ada_mode-parens.adb      2016-01-10 18:53:46.000000000 +0000
+++ ada_mode-parens.adb.tmp     2016-01-14 20:04:29.000000000 +0000
@@ -446,14 +446,14 @@
 
    procedure If_Expr_As_Actual_Parameter is
 
-      function Id (X : Boolean) return Boolean is
+      function ID (X : Boolean) return Boolean is
       begin
          return X;
-      end Id;
+      end ID;
 
       -- ARM 4.5.7(7) allows removing the doubled parens
       -- around a conditional_expression
-      Tmp : Boolean := Id (if True then True else True);
+      Tmp : Boolean := ID (if True then True else True);
    begin
       null;
    end If_Expr_As_Actual_Parameter;
nidhoggr:wisi simon$ more aspects.ads.diff 
--- ../../test/aspects.ads      2016-01-07 12:04:43.000000000 +0000
+++ aspects.ads.tmp     2016-01-14 20:05:16.000000000 +0000
@@ -12,10 +12,10 @@
      Iterator_Element  => Element_Type;
 
    type Date_Set is new Iterator_Interfaces.Forward_Iterator with private
-   with
-     Constant_Indexing => Element,
-     Default_Iterator  => Iterate,
-     Iterator_Element  => Ada.Calendar.Time;
+     with
+       Constant_Indexing => Element,
+       Default_Iterator  => Iterate,
+       Iterator_Element  => Ada.Calendar.Time;
 
    procedure Foo (X : Integer;
                   Y : out Integer)
nidhoggr:wisi simon$ more gpr-skel.gpr.diff 
--- ../../test/gpr/gpr-skel.gpr 2015-04-26 08:48:01.000000000 +0100
+++ gpr-skel.gpr.tmp    2016-01-14 20:06:47.000000000 +0000
@@ -8,7 +8,7 @@
    case foo is
       when =>
    end case;
-   --  Copyright (C) 2015 gpr-skel All Rights Reserved.
+   --  Copyright (C) 2016 gpr-skel All Rights Reserved.
    --
    --  This program is free software; you can redistribute it and/or
    --  modify it under terms of the GNU General Public License as
@@ -22,7 +22,7 @@
    --  the Free Software Foundation, 51 Franklin Street, Suite 500, Boston,
    --  MA 02110-1335, USA.
 
-   --  Copyright (C) 2015 gpr-skel All Rights Reserved.
+   --  Copyright (C) 2016 gpr-skel All Rights Reserved.
 
    package foo is
    end foo;


_______________________________________________
Emacs-ada-mode mailing list
[email protected]
http://host114.hostmonster.com/mailman/listinfo/emacs-ada-mode_stephe-leake.org

Reply via email to