[Plplot-cvs] SF.net SVN: plplot:[12890] trunk/bindings/ada/plplot_auxiliary.ads

[<jb...@us...>]

Revision: 12890
          http://sourceforge.net/p/plplot/code/12890
Author:   jbauck
Date:     2013-12-19 20:45:09 +0000 (Thu, 19 Dec 2013)
Log Message:
-----------
Correct type declarations to once again allow building Ada with an Ada 95 compiler.

Modified Paths:
--------------
    trunk/bindings/ada/plplot_auxiliary.ads

Modified: trunk/bindings/ada/plplot_auxiliary.ads
===================================================================
--- trunk/bindings/ada/plplot_auxiliary.ads	2013-12-19 20:13:08 UTC (rev 12889)
+++ trunk/bindings/ada/plplot_auxiliary.ads	2013-12-19 20:45:09 UTC (rev 12890)
@@ -29,7 +29,7 @@
     Ada.Strings.Bounded,
     Ada.Strings.Unbounded;
     
-    with Ada.Numerics.Long_Real_Arrays;
+--    with Ada.Numerics.Long_Real_Arrays;
 
 package PLplot_Auxiliary is
 
@@ -39,8 +39,8 @@
 
     -- Declarations for Ada 95 and Ada 2005 when it is desired to _not_ invoke
     -- the numerical capability of Annex G.3.
---   type Real_Vector is array (Integer range <>) of Long_Float;
---   type Real_Matrix is array (Integer range <>, Integer range <>) of Long_Float;
+   type Real_Vector is array (Integer range <>) of Long_Float;
+   type Real_Matrix is array (Integer range <>, Integer range <>) of Long_Float;
 
 
     -- Declarations when using Ada 2005 and it is desired to invoke the numerics
@@ -50,8 +50,8 @@
     -- Using Annex G.3 requires linking to BLAS and LAPACK libraries or the
     -- PLplot build process will fail when attempting to link the Ada examples
     -- e.g. x01a.adb.
-    subtype Real_Vector is Ada.Numerics.Long_Real_Arrays.Real_Vector;
-    subtype Real_Matrix is Ada.Numerics.Long_Real_Arrays.Real_Matrix;
+--    subtype Real_Vector is Ada.Numerics.Long_Real_Arrays.Real_Vector;
+--    subtype Real_Matrix is Ada.Numerics.Long_Real_Arrays.Real_Matrix;
 
     ----------------------------------------------------------------------------
     -- Implementation note: The easy ability to switch to Ada 2005 Annex G.3

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.